www.gusucode.com > 易心博客[圣诞版] 3.5手动安装码程序 > UserLogin.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="conn.asp"--> <!--#include file="Ex_Cls/Ex_SkinCls.asp"--> <!--#include file="Ex_Cls/Ex_SplitPageCls.asp"--> <% Dim ExComm Set ExComm=new Ex_CommonCls ExComm.GetConfigCache("runmode,ShowName,CmtPageSize,IsCheckCode,cmtmsgcheckre,iscmtmsgcheck,LogNum,blogname,BlogDescription,BlogKeyWord,IndexAddWord,blogurl,logourl,DefaultSkin") ExComm.CheckInstall ExComm.IsIpAllow Dim Title,Show_logids,show_blogKeyword dim action action=request.QueryString("action") select case action case "login" call login() case else call loginf() end select Function loginf() if request.Cookies(Md5(sn))("uname")="" and session("user")="" Then Dim temp temp=temp&"<form name=""form1"" method=""post"" action=""userlogin.asp?action=login"">" temp=temp&"<table width=""60%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"">" temp=temp&" <tr>" temp=temp&" <td height=""22"" colspan=""2""><div align=""center"">用户登陆</div></td>" temp=temp&"</tr>" temp=temp&"<tr>" temp=temp&"<td width=""39%""><div align=""right"">用户名: </div></td>" temp=temp&"<td width=""61%""><label>" temp=temp&"<input name=""username"" type=""text"" id=""username"">" temp=temp&"</label></td>" temp=temp&"</tr>" temp=temp&"<tr>" temp=temp&"<td><div align=""right"">密码: </div></td>" temp=temp&"<td><label>" temp=temp&"<input name=""userpwd"" type=""password"" id=""userpwd"">" temp=temp&"</label></td>" temp=temp&"</tr>" temp=temp&"<tr>" temp=temp&" <td><div align=""right"">记住密码: </div></td>" temp=temp&" <td><label>" temp=temp&"<input name=""remember"" type=""checkbox"" id=""remember"" value=""1"">" temp=temp&" <a href=""UserReg.asp"">用户注册</a> <a href=""UserEditINFO.asp?action=FIndPwd"">忘记密码</a> </label></td>" temp=temp&"</tr>" temp=temp&"<tr>" temp=temp&" <td colspan=""2""><label>" temp=temp&"<div align=""center"">" temp=temp&" <input type=""submit"" name=""Submit"" value=""登陆"">" temp=temp&" <input type=""reset"" name=""Submit2"" value=""取消"">" temp=temp&"</div>" temp=temp&"</label></td>" temp=temp&"</tr>" temp=temp&"</table>" temp=temp&"</form>" Else session("user")=request.Cookies(Md5(sn))("uname") temp=temp&"<p> </p>" temp=temp&"<table width=""60%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"">" temp=temp&" <tr>" temp=temp&"<td height=""22"" colspan=""2""><div align=""center"">用户管理</div></td>" temp=temp&"</tr>" temp=temp&" <tr>" temp=temp&" <td width=""49%""><div align=""center""> </div></td>" temp=temp&"<td width=""51%""><label>" temp=temp&" <div align=""center""> </div>" temp=temp&"</label></td>" temp=temp&"</tr>" temp=temp&"<tr>" temp=temp&" <td><div align=""center""><a href=""UserEditInfo.asp"">修改资料</a></div></td>" temp=temp&" <td><label>" temp=temp&" <div align=""center""><a href=""UserEditINFO.asp?action=loginout"">注销登陆</a></div>" temp=temp&"</label></td>" temp=temp&"</tr>" temp=temp&"<tr>" temp=temp&" <td> </td>" temp=temp&"<td><label></label></td>" temp=temp&"</tr>" temp=temp&"</table>" End If loginf=temp end Function sub login() dim username,userpwd,remember,userSql,userRs username=ExComm.G(request.form("username")) userpwd=ExComm.G(request.form("userpwd")) remember=CInt(request.form("remember")) userSql="select userpwd,lock,homepage from Ex_user where username='"&username&"'" set userRs=server.createobject("adodb.recordset") userRs.open userSql,Conn,1,1 if not userRs.eof and not userRs.bof then if Trim(userRs("userpwd"))=md5(trim(userpwd)) then if userRs("lock")=true then ExComm.ShowMsg "账号被锁定",request.ServerVariables("HTTP_REFERER") end If response.Cookies(Md5(sn))("uname")=ExComm.DeCode(username) response.Cookies(Md5(sn))("upwd")=ExComm.DeCode(md5(userpwd)) response.Cookies(Md5(sn))("homepage")=ExComm.DeCode(userRs("homepage")) session("user")=username response.Redirect(request.ServerVariables("HTTP_REFERER")) if remember=1 then response.Cookies(sn).Expires=date+365 end If else ExComm.ShowMsg "密码不正确",request.ServerVariables("HTTP_REFERER") end if else ExComm.ShowMsg "用户名不存在",request.ServerVariables("HTTP_REFERER") end if end sub '主模板标记替换开始 Dim ExSkin,Head,Body,Bottom,Skin1 Set ExSkin=new Ex_SkinCls Skin1=ExSkin.GetTxtSkin("default.html") Body=Replace(Skin1,"$show_log$",loginf) Body=Replace(Body,"$show_info$",ExSkin.Info) Body=Replace(Body,"$show_login$",ExSkin.Login) Body=Replace(Body,"$show_calendar$",ExSkin.calendar("","","")) Set ExSkin=Nothing Bottom=ExComm.BottomInfo Title="用户登陆" '输出内容 Head=Head&"<html xmlns=""http://www.w3.org/1999/xhtml"">"&vbcrlf Head=Head&"<head>"&vbcrlf Head=Head&"<meta http-equiv=""content-type"" content=""text/html; charset=gb2312"">"&vbcrlf Head=Head&"<meta name=""generator"" content=""易心博客"">"&vbcrlf Head=Head&"<meta name=""Description"" content="""&Application(sn&"BlogDscription")&""">"&vbcrlf Head=Head&"<meta name=""Keywords"" content="""&Application(sn&"BlogKeyWord")&""">"&vbcrlf Head=Head&"<title>"&Title&Application(sn&"IndexAddWord")&"</title>"&vbcrlf Head=Head&"<script src=""inc/Main.js""></script>" Head=Head&"<script src=""inc/UserInfo.js""></script>" Head=Head&"<script src=""inc/jquery.js""></script>" Head=Head&"<link href=""inc/OblogSkin.Css"" rel=""stylesheet"" type=""text/css"" />"&vbcrlf Head=Head&"</head>"&vbcrlf Head=Head&"<body>"&vbcrlf If ExComm.IsOblogSkin Then Response.Write Head Response.Write Body Response.Write "</body></html>" Else Body=Replace(Body,"$show_blogtitle$",Title&Application(sn&"IndexAddWord")) Body=Replace(Body,"$show_blogkeyword$",Application(sn&"blogkeyword")) Body=Replace(Body,"$show_blogdescription$",Application(sn&"blogdescription")) Response.Write Body End If If request.querystring("action")="add" Then Call add() End if If Application(Sn&"Runmode")<>"静态" Then ExComm.visitorCount End If Set ExComm=Nothing %>