security.aspxml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
<%
bLoggedIn = (len(session(“UserName”)) > 0)
if bRequireLogin then
‘ è¦Âæ±Âç»å½Â.
ÃÂ ÃÂ if Not bLoggedIn thenÃÂ ÃÂ ÃÂ
ÃÂ ÃÂ ÃÂ ÃÂ response.redirect “login.asp?comebackto=” & _
ÃÂ ÃÂ ÃÂ ÃÂ request.servervariables(“script_name”) & “?” & _
ààààà‘ å¦ÂæÂÂ没注åÂÂ,请注åÂÂ.
ÃÂ ÃÂ ÃÂ ÃÂ server.urlencode(request.querystring)
ÃÂ ÃÂ end if
end if
%>ÃÂ
ãÂÂ
login.asp
<%
if request(“comebackto”) <> “” then
ÃÂ ÃÂ sReferer = request(“comebackto”)
ÃÂ ÃÂ sGoBackTo = “?” & request.querystring
end if
if request(“cmdLogin”) <> “” then
ÃÂ ÃÂ sUserName = request(“txtUserName”)
ÃÂ ÃÂ sPassword = request(“txtPassword”)
àà‘ æÂÂ交注åÂÂ.
ÃÂ ÃÂ if sUserName = “bill” And sPassword = “gates” then
ÃÂ ÃÂ ÃÂ ÃÂ bLoginSuccessful = True
àààà‘ éªÂè¯Âå¸Âå·åÂÂå¯Âç Â.
ÃÂ ÃÂ end if
ÃÂ ÃÂ session(“UserName”) = sUserName
ÃÂ ÃÂ if sReferer = “” then
ÃÂ ÃÂ ÃÂ ÃÂ response.redirect “index.asp”
àààà‘ ç»å½ÂæÂÂÃ¥ÂÂ,å°ç¨æ·请æ±Â页.
ÃÂ ÃÂ else
ÃÂ ÃÂ ÃÂ ÃÂ response.redirect sReferer
àààà‘ å¦ÂæÂÂ没填åÂÂ,éÂÂå®ÂÃ¥ÂÂå°ç»å½Â页æÂÂå ¶ä»Â约å®ÂçÂÂ页.
end if
else
%>
ÃÂ ÃÂ <form action=”login.asp<%=sGoBackTo%>” method=”post”>
ÃÂ ÃÂ ÃÂ ÃÂ <input type=”text” name=”txtUserName”><br>
ÃÂ ÃÂ ÃÂ ÃÂ <input type=”password” name=”txtPassword”><br>
ÃÂ ÃÂ ÃÂ ÃÂ <input type=”submit” name=”cmdLogin”><br>
ÃÂ ÃÂ </form>
ààà‘ æ¾示ç»å½Â.
<%
end if
%>
ÃÂ
testpage.asp
<%
ÃÂ ÃÂ bRequireLogin = True
%>
<!–#include file=”security.asp”–>
‘ å° bRequireLogin设为çÂÂ,æ¾å° security.asp ä¸Â.
ÃÂ
[1]