rsquotloginnumquot=rsquotloginnumquot+1 將數(shù)據(jù)庫中登錄的次數(shù)增加1 rsUpdate 更新數(shù)據(jù)庫 rsClose 關(guān)閉數(shù)據(jù)庫 set rs=nothing 刪除rs變量 responseredirect quotmuseraspquot 網(wǎng)頁重定向到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關(guān)鍵代碼 用戶名 密 碼 驗證碼 lognoasp關(guān)鍵代碼lt Dim conn #39建立數(shù)據(jù)庫連接，因為提供了密碼和用戶，用的是較老方式的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來接受傳來的參數(shù)requestformquotvarquot將它賦值給變量然后用判斷語句來判斷帳號和密碼是不是正確的如果正確就轉(zhuǎn)到主頁，不正確就用alertquot你輸入的密碼帳號不正確”。

asp登錄頁面代碼

登錄成功后跳轉(zhuǎn)到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。

在你的登錄代碼中，出現(xiàn)sessionquotadminquot ，相同道理也可以出現(xiàn)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 這是注冊的 登錄的就簡單了 驗證下數(shù)據(jù)庫里面有沒就OK了。

lt if requestquotlogoutquotltquotquot then #39上面這一句意思為如果logout不為空，也就是用戶要退出時，就執(zhí)行下面的 sessionquotadminquot=quotquotsessionquotpasswordquot=quotquotsessionquotaleavequot=quotquot#39把上面這三個的session清空，讓用戶權(quán)限變?yōu)橛慰蛂esponseredirect quotadminloginaspquot#39跳轉(zhuǎn)到登錄頁面end if。

登陸名稱 登錄密碼 lt！登錄處理代碼 lt！#include file=quotconnaspquot lt if requestquerystringquotactquot=quotdenglquot then if requestquotnamequot=quotquot and requestquotpasswordquot=quotquot then responsewritequot請輸入用戶名和密碼！quotelse set rs=serverCreateObjectquotADODB。