www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_chklogin.asp

    <!--#include file="const.asp"-->
<%
username=Checkin(trim(Request.form("username")))
password=Checkin(trim(Request.form("password")))
VerifyCode = Replace(Trim(Request("VerifyCode")),"'","")
if UserName = "" or  PassWord = "" then
	Response.Write("<script>alert(""错误：\n请填写完整用户名和密码!"");location.href=""admin_login.asp"";</script>")
	Response.End
end if
if  VerifyCode <> CStr(Session("GetCode"))  then 
	Response.Write("<script>alert(""错误：\n验证码错误-请正确填写!"");location.href=""admin_login.asp"";</script>")
	Response.End
end if
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'and password='"&password&"'"
rs.open sql,conn,1,3
if not rs.EOF then
	rs("LoginTimes")=rs("LoginTimes")+1
	rs("LoginTime")=now()
	rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
	rs.Update
	Session("AdminID")=rs("id")
	Session("IsAdmin")=true
	Session("KEY")=rs("oskey")
	Response.Redirect ("admin.asp")
else
	Response.Write("<script>alert(""错误：\n请输入正确的管理员名字和密码!"");location.href=""admin_login.asp"";</script>")
	Response.End
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>