If IsEmpty(UserID) Or IsNull(UserID) Or UserID="" Then
Attempted=False
URL=Request.ServerVariables("QUERY_STRING")
If IsEmpty(URL) Or URL="" Then
URL="" ' just in case
Else
URL="?" & URL
End If
URL=Request.ServerVariables("SCRIPT_NAME") & URL
If IsEmpty(UserID) Or IsNull(UserID) Or UserID="" Then
Rejected=True
Else
' 在这里写上自己的所要验证的UserID,和UserPWD,当然你也可以从数据库中取,这里就不多写了
If UserID="Foo" AND UserPWD="Foo" Then
'保存 session 的值
Session("UserID")=UserID
Rejected=False
Else
Attempted=True
Rejected=True
End If
End If
End If
If Rejected Then
If Attempted Then
Title="Authentication Failure"
Else
Title="Please Authenticate"
End If
%>
<!--#INCLUDE FILE="authentication_form.htm"-->
<%
Response.End '在回来之前停止程序的执行
End If
' 否则,转向正常的网页。
%>