28,409
社区成员




<%
if request("UserName") <>"" then
if request("txtYanZheng") <>request("hideYanZheng") then '验证码
response.write(ShowNext("您的验证码输入有误,请重新输入!","/admin/admin_login.asp"))
else
UserName=request("UserName")
Password=md5(trim(request("Password")))
set rs=Server.CreateObject("Adodb.Recordset")
rs.open "Select * from DCR_admin where AdminUser='" & UserName &"' and pwd='"& Password & "'",conn,1,1
if rs.eof and rs.bof then
response.write(ShowNext("请核对您的用户名或密码!","/admin/admin_login.asp"))
else
session.timeout=60
session("admin")="Yes"
response.Redirect("/admin/index.asp")
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>