在主页中利用ASP技术实现用户口令的验证

check.htm 文件如下：

　 ＜ %@ LANGUAGE="VBSCRIPT" % ＞

　 ＜ %

　 session("username")=request.form("username")

　 session("password")=request.form("password")

　 if (session("username")="") then

　 response.redirect "homepage.htm"

　 end if

　 SQLQuery="SELECT * FROM users WHERE username='"+session

　 ("username")+"' and password='"+session("password")+"'"

　 Set List=session("OBJdbConnection").Execute(SQLQuery)

　 if (list.eof and list.bof) then

　 session("username")=""

　 session("password")=""

　 response.redirect "homepage.htm"

　 end if

　 % ＞

　 < HTML >

　 < HEAD >

　 < TITLE > 用户与口令验证过程< /TITLE >

　 < /HEAD >

　 < BODY >

　 你已通过用户与口令验证

　 < p >< a href="homepage1.htm" > 连接到下一页!< /a >< /p >

　 < /BODY >

　 < /HTML >