rsquotloginnumquot=rsquotloginnumquot+1 將數(shù)據(jù)庫(kù)中登錄的次數(shù)增加1 rsUpdate 更新數(shù)據(jù)庫(kù) rsClose 關(guān)閉數(shù)據(jù)庫(kù) set rs=nothing 刪除rs變量 responseredirect quotmuseraspquot 網(wǎng)頁(yè)重定向到muserasp else call MsgBoxquot對(duì)不起，您的用戶名或密碼有誤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用戶名或密碼不能為空請(qǐng)返回后重新輸入quot end if %。

dim admin_username，admin_password admin_username=trimrequestquotusernamequotadmin_password=trimrequestquotpasswordquotif admin_username=quotquot or admin_password=quotquot then responsewrite quotalert#39對(duì)不起，用戶名和密碼不能為空#39=#39indexasp#39quotresponseend end if lt；coonasplt connstr = quotDBQ=quot + + quotDRIVER=Microsoft Access Driver *mdbquotSet conn=ServercreateobjectquotADODBCONNECTIONquotconnOpen connstr 外加after_loginasp登錄驗(yàn)證頁(yè)面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)鍵代碼 用戶名 密 碼 驗(yàn)證碼 lognoasp關(guān)鍵代碼lt Dim conn #39建立數(shù)據(jù)庫(kù)連接，因?yàn)樘峁┝嗣艽a和用戶，用的是較老方式的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；先寫好登錄頁(yè)面的代碼，也就是外觀然后用request來(lái)接受傳來(lái)的參數(shù)requestformquotvarquot將它賦值給變量然后用判斷語(yǔ)句來(lái)判斷帳號(hào)和密碼是不是正確的如果正確就轉(zhuǎn)到主頁(yè)，不正確就用alertquot你輸入的密碼帳號(hào)不正確”。

asp登錄頁(yè)面代碼

登錄成功后跳轉(zhuǎn)到webform1aspx頁(yè) else ResponseWritequotalert#39用戶名和密碼輸入不匹配，請(qǐng)重輸#39quot 2WebForm1aspx頁(yè)代碼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舉例來(lái)說(shuō)吧 lt if 登錄帳號(hào)與密碼成功 then sessionquotadminquot=rsquotadminquotsessionquotadminnamequot=rsquotadminnamequotend if 那麼，在前臺(tái)頁(yè)面顯示時(shí)，直接lt%=sessionquotadminnamequot%。

asp用戶登錄代碼

height=quot15quot 解釋lt%if cstrsessionquotpSNquotltcstrtrimrequestquotverifycodequot then responseWrite quotalert#39請(qǐng)輸入正確的驗(yàn)證碼#39locationhref=quotquotindexaspquotquotquotresponseCookiesquotnamesquot=user responseend end if% 拿去，不懂問(wèn)。

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注冊(cè)失??！原因此用戶已存在#39，=#39Reg_Userasp？Reg_User=true#39quotEnd If End If lt End If 這是注冊(cè)的 登錄的就簡(jiǎn)單了 驗(yàn)證下數(shù)據(jù)庫(kù)里面有沒(méi)就OK了。

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

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