<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
图片上传系统后台登陆
<%
dim adminname,adminpwd,adminip
if request.querystring("action")="log" then
adminname =CheckStr(trim(Request.form("adminname")))
adminpwd =CheckStr(trim(Request.form("adminpwd")))
adminpwd =md5(mid(md5(adminpwd),4,12))
mycode = trim(request.form("code"))
if adminname="" or adminpwd="" then
Call Alert("请输入用户名和密码！",-1)
end if
if mycode<>Session("getcode") then
Call Alert("请输入正确的验证码！",-1)
end if
response.write adminname & "--" & adminpwd
'response.End
set rs=server.createobject("adodb.recordset")
sql="select * from jr_admin where admin='"&adminname&"' and password='"&adminpwd&"'"
rs.open sql,conn,1,3
If Not rs.Eof Then
Session("YaoContent")=""
Response.Cookies(QiyeSiteCookie)(QiyeSiteCookie&"_id")=rs("ID")
Response.Cookies(QiyeSiteCookie)(QiyeSiteCookie)=adminname
Response.Cookies(QiyeSiteCookie)(QiyeSiteCookie&"_psd")=adminpwd
Response.Cookies(QiyeSiteCookie)(QiyeSiteCookie&"_name")=rs("admin")
'rs("password")=adminpwd
'Response.Cookies("LaoYAdmin").path="/"
'Response.Cookies("LaoYAdmin")("UserID")=rs("ID")
'Response.Cookies("LaoYAdmin")("UserPass")=rs("Admin_Pass")
'Response.Cookies("LaoYAdmin")("UserName")=rs("Admin_Name")
'Response.Cookies("LaoYAdmin").Expires=Date+1
rs("Time") = Now()
rs("IP") = Request.serverVariables("REMOTE_ADDR")
rs.update
rs.close
set rs=Nothing
Set sql=Nothing
set rs=server.createobject("adodb.recordset")
sql="select * from ip"
rs.open sql,conn,1,3
rs.addnew
rs("admin")=adminname
rs("Time") = Now()
rs("IP") = Request.serverVariables("REMOTE_ADDR")
rs.update
rs.close
Set rs=Nothing
Set sql=Nothing
response.Redirect "manager.asp"
else
Call Alert("您输入的用户名或密码不正确！",-1)
end if
ElseIf request.querystring("action")="out" Then
Session("YaoContent")=""
Response.Cookies(QiyeSiteCookie)(QiyeSiteCookie&"_id")=""
Response.Cookies(QiyeSiteCookie)(QiyeSiteCookie)=""
Response.Cookies(QiyeSiteCookie)(QiyeSiteCookie&"_psd")=""
Response.Cookies(QiyeSiteCookie)(QiyeSiteCookie&"_name")=""
response.Redirect "./"
end if
%>