<% if memName=empty or stat_Admin<>true then Response.Redirect("default.asp") else if session(CookieName&"_System")=true then %> <% else %>
管理员密码:
<%=session(CookieName&"_ShowError")%>
<%session(CookieName&"_ShowError")=""%>
PJBlog2 v<%=blog_version%>
<% dim action action=CheckStr(Request.form("action")) if action="login" then dim chUser,getPass getPass=CheckStr(Request.form("adpass")) set chUser=conn.execute("SELECT Top 1 mem_Name,mem_Password,mem_salt,mem_Status,mem_LastIP,mem_lastVisit,mem_hashKey FROM blog_member WHERE mem_Name='"&memName&"'") if chUser.eof or chUser.bof then session(CookieName&"_ShowError")="管理员密码错误!" Response.Redirect("control.asp") else if chUser("mem_Password")<>SHA1(getPass&chUser("mem_salt")) then session(CookieName&"_ShowError")="管理员密码错误!" Response.Redirect("control.asp") else session(CookieName&"_System")=true Response.Redirect("control.asp") end if end if end if end if end if %>