rsquotloginnumquot=rsquotloginnumquot+1 将数据库中登录的次数增加1 rsUpdate 更新数据库 rsClose 关闭数据库 set rs=nothing 删除rs变量 responseredirect quotmuseraspquot 网页重定向到muserasp else call MsgBoxquot对不起，您的用户名或密码有误quot，quotBackquot，quotNonequot 否则提示；User_LoginCheckasp代码 lt！#include file=quotIncludecnOpenaspquot lt% dim User，Pwd set User = requestFormquotUser_Namequot set Pwd = requestFormquotUser_Pwdquot if User = quotquot or Pwd = quotquot then ResponseWrite quot用户名或密码不能为空请返回后重新输入quot end if %。

dim admin_username，admin_password admin_username=trimrequestquotusernamequotadmin_password=trimrequestquotpasswordquotif admin_username=quotquot or admin_password=quotquot then responsewrite quotalert#39对不起，用户名和密码不能为空#39=#39indexasp#39quotresponseend end if lt；coonasplt connstr = quotDBQ=quot + + quotDRIVER=Microsoft Access Driver *mdbquotSet conn=ServercreateobjectquotADODBCONNECTIONquotconnOpen connstr 外加after_loginasp登录验证页面lt！#include file=quotConnAspquot lt Dim UserName，PassWord UserName=。

function quot#btloginquotclickfunction var txtaccount = $quot#txtaccountquotval var txtpassword = $quot#txtpasswordquotval if txtaccount == quotquot $quot#txtaccountquotfocus formMessage#39登录账户不能为空#39， #39warning#39 return false；loginasp关键代码 用户名 密 码 验证码 lognoasp关键代码lt Dim conn #39建立数据库连接，因为提供了密码和用户，用的是较老方式的Access连接Set conn=Servercreatobjecquotadodbconnectionquotconnopen quotdriver=driver do microsoft acess*mdbuid=quotadminnamequotpwd=quotadminpass。

Usersusers=newUsersListltUsersuserList=usersFindstringFormatquot0=#391#39and2=#393#39and4=1quot，UsersLoginID_FieldUsersLoginPass_FieldUsersIsEnabled_Fieldregion2014321 ifuserListCount==1 intUserID=userList；先写好登录页面的代码，也就是外观然后用request来接受传来的参数requestformquotvarquot将它赋值给变量然后用判断语句来判断帐号和密码是不是正确的如果正确就转到主页，不正确就用alertquot你输入的密码帐号不正确”。

asp登录页面代码

登录成功后跳转到webform1aspx页 else ResponseWritequotalert#39用户名和密码输入不匹配，请重输#39quot 2WebForm1aspx页代码using Systemusing using SystemLinqusing SystemWebusing using。

lt！#include file=quotzjy_md6aspquot lt%dim admin，password，verifycode admin=replacetrimrequestquotadminquot，quot#39quot，quotquotpassword=zjy_md6replacetrimrequestquotpasswordquot，quot#39quot，quotquotverifycode=replacetrimrequestquotverifycodequot，quot#39quot，quotquotif admin=quotquot or password=quotquot then response。

在你的登录代码中，出现sessionquotadminquot ，相同道理也可以出现sessionquotadminnamequot举例来说吧 lt if 登录帐号与密码成功 then sessionquotadminquot=rsquotadminquotsessionquotadminnamequot=rsquotadminnamequotend if 那麽，在前台页面显示时，直接lt%=sessionquotadminnamequot%。

asp用户登录代码

height=quot15quot 解释lt%if cstrsessionquotpSNquotltcstrtrimrequestquotverifycodequot then responseWrite quotalert#39请输入正确的验证码#39locationhref=quotquotindexaspquotquotquotresponseCookiesquotnamesquot=user responseend end if% 拿去，不懂问。

1connectionasp里的代码是lt set conn=servercreateobjectquotadodbconnectionquotconnopen quotprovider=data source=quotserverMapPathquotstudentmdbquot 2yanzhengasp里的代码是lt！#include file=quotconnectionaspquot lt dim zhanghao，mima zhanghao=requestquotzhanghao。

locationhref=#39indexasp#39quotElse ResponseWritequotalert#39注册失败！原因此用户已存在#39，=#39Reg_Userasp？Reg_User=true#39quotEnd If End If lt End If 这是注册的 登录的就简单了 验证下数据库里面有没就OK了。

lt if requestquotlogoutquotltquotquot then #39上面这一句意思为如果logout不为空，也就是用户要退出时，就执行下面的 sessionquotadminquot=quotquotsessionquotpasswordquot=quotquotsessionquotaleavequot=quotquot#39把上面这三个的session清空，让用户权限变为游客responseredirect quotadminloginaspquot#39跳转到登录页面end if。

登陆名称 登录密码 lt！登录处理代码 lt！#include file=quotconnaspquot lt if requestquerystringquotactquot=quotdenglquot then if requestquotnamequot=quotquot and requestquotpasswordquot=quotquot then responsewritequot请输入用户名和密码！quotelse set rs=serverCreateObjectquotADODB。