www.gusucode.com > cso中国seo优化html整站源码程序 > manage/admin_login.asp

    <!--#include file="../include/config.asp"-->
<!--#include file="../include/conn.asp"-->
<!--#include file="../include/md5.asp"-->
<%
response.contenttype = "text/html;charset=gb2312"
username = trim(request.form("username"))
password = trim(request.form("password"))
verifycode = trim(request.form("verifycode"))
if verifycode <> session("getcode") then
	response.write "<script type=""text/javascript"">alert(""验证码错误！"");"
	response.write "location.href=""index.asp"";</script>"
end if
Md5_Pass = md5(password)

set rs = server.createobject("adodb.recordset")
sql = "select * from so_admin where username = '"&username&"'"
rs.open sql,conn,2,2
if rs.eof then
	response.write "<script type=""text/javascript"">alert(""当前用户不存在！"");"
	response.write "location.href=""index.asp"";</script>"
else
	if rs("password") = md5_pass then
		rs("Logins") = rs("Logins") + 1
		rs("LoginTime") = now()
		rs("LoginIP") = Request.ServerVariables("REMOTE_ADDR")
		rs.update
		response.cookies(config_cname).path = "/"
		response.cookies(config_cname)("id") = rs("id")
		response.cookies(config_cname)("name") = rs("username")
		response.cookies(config_cname)("flag") = rs("flag")
		response.write "<script type=""text/javascript"">"
		response.write "location.href=""admin.htm"";</script>"
	else
		response.write "<script type=""text/javascript"">alert(""密码错误！"");"
		response.write "location.href=""index.asp"";</script>"
	end if
end if
rs.close
set rs = nothing
call closeconn()
%>