checklogin.asp

《asp网页设计》作者沈才梁源代码,共十章

<%
Option Explicit
Dim SName,SPass 
SName=Trim(Request("UserName"))  '接收用户名信息
SPass=Trim(Request("Password"))  '接收用户密码信息
'''''''''''''''''''''''''''''''''''''''''''
'' 这里是校验用户名和密码是否正确的代码（省略）  ''
'''''''''''''''''''''''''''''''''''''''''''
'密码校验成功后，就用Session("UserName")变量保存用户名，以便在Main.asp页面中调用
Session("UserName")=SName
Response.Redirect "main.asp"  '跳转到main.asp页面
%>