check_user.asp

在线网页编辑工具,可以在线编辑网页程序。

<%
Dim adoCon 		'数据库连接变量
Dim strCon		'保存数据库驱动程序和路径以及数据库名
Dim rsCheckUser 	'数据库记录设置变量
Dim strAccessDB 	'保存数据库名
Dim strSQL 		'数据库查询域
Dim strUserName 	'保存用户名

strUserName = Request.Form("txtUserName")

strAccessDB = "users"

Set adoCon = Server.CreateObject("ADODB.Connection")
			 
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=letmein; DBQ=" & Server.MapPath(strAccessDB)

adoCon.Open strCon

Set rsCheckUser = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT tblUsers.Password FROM tblUsers WHERE tblUsers.name ='" & strUserName & "'"

rsCheckUser.Open strSQL, strCon

If NOT rsCheckUser.EOF Then
	
		If (Request.Form("txtUserPass")) = rsCheckUser("Password") Then
		
		Session("blnIsUserGood") = True
		
		Set adoCon = Nothing
		Set strCon = Nothing
		Set rsCheckUser = Nothing
		
		Response.Redirect"default1.htm?name=" & strUserName
	End If
End If
		
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
	
Session("blnIsUserGood") = False

Response.Redirect"no.htm"
%>