(蜘蛛精 译)

英文原文

现在我们创建查询语句，可以验证在表单中输入的内容是否与数据库中的内容相一致。

<%@ Language=VBScript %>

<% Response.Buffer = True %>

<% Session("allow") = True %>

<%

UserName = Request.Form("username")

Password = Request.Form("password")

'grab the form contents

Set MyConn=Server.CreateObject("ADODB.Connection")

MyConn.Open "your connection string here"

SQL = "Select * From tblLogin"

Set RS = MyConn.Execute(SQL)

If UserName = RS("UserName") AND Password = RS("Password") Then

'if there is a match then show the page

%>

Put the contents of your page here.

<%

Else

Response.Redirect "http://www.yourdomain.com/login.asp"

RS.Close

MyConn.Close

Set RS = Nothing

Set MyConn = Nothing

End If

%>

'if there was no match then make the visitor try again to login.

把含上述代码的文件命名为login.asp