<%
dim action : action=getform("action","get")
if action = "login" then
dim LoginName,Password,sql,code,rs
if getForm("code","post")<>Session("Code") then alertMsgAndGo "驗證碼不正確","-1"
LoginName = filterPara(getForm("LoginName","post"))
Password = md5(getForm("userPass","post"),16)
sql = "select count(*) from {prefix}User where LoginName = '"& LoginName &"' and PassWord='"&Password&"'"
Dim rsObj : Set rsObj=Conn.Exec(sql,"r1")
if rsObj(0)=1 then
Set rsObj=Conn.Exec("select UserId,LoginName,GroupMark from {prefix}User,{prefix}UserGroup where {prefix}User.GroupID={prefix}UserGroup.GroupID and LoginName='"&LoginName&"' and UserStatus=1","r1")
if not rsObj.Eof Then
'die rsObj("LoginName")
wCookie"loginName",rsObj("LoginName")
wCookie"userID",rsObj("UserId")
wCookie"loginstatus","1"
session("GroupMark")=rsObj("GroupMark")
Conn.Exec"update {prefix}User set LastLoginTime='"&now()&"',LastLoginIP='"&getIp()&"',LoginCount=LoginCount+1 where UserId="&rsObj("UserId"),"exe"
'Response.Redirect Request.ServerVariables("HTTP_REFERER")
response.Redirect("userinfo.asp")
response.End()
else
alertMsgAndGo "對不起，您的賬號已被禁用!","-1"
end if
else
alertMsgAndGo "用戶名或密碼錯誤,系統即將返回登錄頁面!","-1"
end if
rsObj.Close() : set rsObj=Nothing
elseif action = "logout" then
wCookie"loginName",""
wCookie"loginstatus","0"
wCookie"userID",""
session("GroupMark")=""
alertMsgAndGo "您已經成功退出登錄!",sitePath&setting.languagePath
elseif action = "relog" then
alertMsgAndGo "對不起,您的登錄狀態已經失效,請重新登錄!",sitePath&setting.languagePath
else
echoContent()
end if
Sub echoContent()
dim templateobj,templatePath : set templateobj = new TemplateClass
templatePath=sitePath&"/"&"templates/"&setting.defaultTemplate&"/"&setting.htmlFilePath&"/login.html"
if not CheckTemplateFile(templatePath) then echo "login.html"&err_16
with templateObj
.content=loadFile(templatePath)
.parseHtml()
.indexpath
.parseCommon
echo .content
end with
set templateobj =nothing : terminateAllObjects
End Sub
%>羞羞漫画_成人漫画_成人专用,好想被狂躁A片免费视频无码,少妇人妻好深太紧了A片VR,从头啪到尾全肉小黄书完整
日韩一区二区三区无码影院|
国精品无码一区二区三区在线蜜臀|
亚洲AV无码专区国产乱码电影|
CHINESE国产AVVIDEOXXXX实拍|
男人把大JI巴放进女人有视频|
成人免费无码大片A毛片抽搐|
亚洲AV无码乱码精品国产|
国产无线卡一卡二|
亚洲AV无码一区二区三区DV|
久久久久亚洲AV无码网站|
日本久久久久久久久精品|
无码毛片AAA在线|
无码人妻一区二区三区APP|