login.asp

鄂尔多斯建站网全站程序(冬季修正版)

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
'**********************************
'版本:host_free 3.0               *
'官方网站:http://www.850518.com   *
'技术论坛:http://forum.850518.com *
'qq:54455245 (欢迎咨询商业版)     *
'msn: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
<%
thesoft=request.servervariables("http_user_agent")
if instr(thesoft,"windows nt 5.0") then
	vos="win 2000"
elseif instr(thesoft,"windows nt 5.1") then
	vos="win xp"
elseif instr(thesoft,"windows nt") then
	vos="win nt"
elseif instr(thesoft,"windows 9") then
	vos="win 9x"
elseif instr(thesoft,"unix") or instr(thesoft,"linux") or instr(thesoft,"sunos") or instr(thesoft,"bsd") then
	vos="类unix"
elseif instr(thesoft,"mac") then
	vos="mac"
else
	vos="other"
end if

dim admin_name,admin_pass,sql,rs
admin_name=replace(trim(request("admin_name")),"'","")
admin_pass=replace(trim(request("admin_pass")),"'","")
admin_pass2=replace(trim(request("admin_pass")),"'","")
admin_pass=xy20_md5(admin_pass,"short")
f_j_ma=request("f_j_ma")
ma=request("ma")
set rs=server.createobject("adodb.recordset")
if admin_name="" then
response.write("<script>alert('用户名不能为空！');history.go(-1)</script>")
response.end
end if
if admin_pass="" then
response.write("<script>alert('密码不能为空！');history.go(-1)</script>")
response.end
end if
if f_j_ma="" or f_j_ma<>ma then
response.write("<script>alert('附加码错误或者为空！');history.go(-1)</script>")
response.end
end if
sql="select * from admin where admin_name='"&admin_name&"' and admin_pass='"&admin_pass&"'"
rs.open sql,conn,3,3
if rs.eof then

set rs2=server.createobject("adodb.recordset")
sql2="select * from rizhi" 
rs2.open sql2,conn,1,3
rs2.addnew
rs2("login_what")="非法登陆"
rs2("login_name")=admin_name
rs2("login_pass")=admin_pass2
rs2("login_ip")=request.servervariables("remote_host")
rs2("login_system")=vos
rs2("login_time")=now()
rs2.update
rs2.close
set rs2=nothing 

response.write("<script>alert('用户名或者密码错误,ip已记录');history.go(-1)</script>")
response.end
else

set rs3=server.createobject("adodb.recordset")
sql3="select * from rizhi" 
rs3.open sql3,conn,1,3
rs3.addnew
rs3("login_what")="正常登陆"
rs3("login_name")=admin_name
rs3("login_pass")="-"
rs3("login_ip")=request.servervariables("remote_host")
rs3("login_system")=vos
rs3("login_time")=now()
rs3.update
rs3.close
set rs3=nothing

session("admin_name")=rs("admin_name")
session("admin_pass")=rs("admin_pass")
session("flag")=rs("flag")

response.redirect "manage.asp"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%
'**********************************
'版本:host_free 3.0               *
'官方网站:http://www.850518.com   *
'技术论坛:http://forum.850518.com *
'qq:54455245 (欢迎咨询商业版)     *
'msn: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>