用ASP实现登陆功能的源代码 [复制链接] qrcode

扫下二维码，文章随身看

用手机或平板电脑扫描一下二维码，即可把帖子装进手机或平板电脑里继续观看哦，快快进行扫描体验吧!
用ASP实现登陆功能的源代码

* 需二维码识别软件支持。（微信或手机浏览器一般有内置扫码功能。）什么是二维码？

查看: 6175 | 回复: 3

发表于: 2007-12-6 15:04:12 | 显示全部楼层

具体ＡＳＰ源代码如下：（包括３个文件：login.ASP；dbConn.asp；secret-page.asp）

login.ASP

<%@ Language="vbscript" %>
<% Option EXPlicit %>
<% Response.Buffer = True %>

<%
'================================================
' Was the form submitted?
' If so, lets check the Username and PassWord
'================================================
If Request.Form("Submitted") = "login" Then
' Declare our variables
Dim objConn, objRS, strSQL

' Create Connection Object
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnect

' Build SQL String
strSQL = "SELECT * FROM MemberInfo WHERE Username='" & Request.Form("Username") & "'"

' Create Recordset Object
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn

If objRS.EOF Then
      '================================================
      ' Does the Username exist?
      ' If not, set strFailed and destroy all objects.
      ' We'll then display the login form again.
      '================================================
      strFailed = "Invalid Username"
      objRS.Close
      Set objRS = Nothing
      objConn.Close

Set objConn = Nothing
Else
      '================================================
      ' Username exists - is the password correct?
      ' If not, set strFailed and destroy all objects.
      ' We'll then display the login form again.
      '================================================
      If objRS.Fields("Password") <> Request.Form("Password") Then

         strFailed = "Invalid Password"
         objRs.Close
         Set objRS = Nothing
         objConn.Close
         Set objConn = Nothing
      Else
         '================================================
         ' Username and password are valid.
         ' Set session variable.
         ' Destroy all objects.
         ' Redirect to secret page
         '================================================
         Session("ValidUser") = "true"
         objRS.Close
         Set objRS = Nothing
         objConn.Close
         Set objConn = Nothing
         Response.Redirect "secret-page.asp"
      End If
End If
End If
%>
<!DOCTYPE Html PUBLIC "-//W3C//DTD HTML 4.01//EN"
         "http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
<title>会员登陆系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<h1>Login Area</h1><%
If strFailed <> "" Then
Response.Write "<p>" & strFailed & "</p>" & vbCrLf
End If
%><form method="post" action="login.asp">
<p>
<label for="username">用户名:</label>>
<input type="text" id="username name="username">
</p>
<p>
<label for="password">密码:</label>
<input type="password" id="password" name="password">
</p>
<p>
<input type="submit" name="Submitted" value="login">
</p>
</form>
</body>
</html>

电梯直达

asper

发表于: 2007-12-6 15:07:51 | 显示全部楼层

沙发

dbConn.asp

<%

' Declare our variables
Dim strDBVirtualPath, strDBLocation, strConnect
strDBVirtualPath = "memberDB/LoginInfo.mdb"
strDBLocation = Server.MapPath(strDBVirtualPath)
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBLocation
Response.Write Chr(13)
%>

asper

发表于: 2007-12-6 15:11:05 | 显示全部楼层

板凳

secret-page.asp

<%@ Language="vbscript" %>

<% Option Explicit %>
<% Response.Buffer = True %>
<%
'=====================================
' Is the Session variable "ValidUser"
' set to "true"? - If not, redirect to
' login.asp
'=====================================
If Session("ValidUser") <> "true" Then
Response.Redirect "login.asp"
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
<title>Secret Area</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<h1>Secret Area</h1>
<p>
Welcome to this secret area.
</p>
</body>
</html>