chk_log.asp

泡泡堂单机版（含ASL游戏引擎源码）

<!--#include file="Conn.asp"-->
<!--#include file="Inc/MD5.asp"-->
<!--#include file="Inc/Char.asp"-->
<% 
Dim server_v1
Dim server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) 
server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) 
if mid(server_v1,8,len(server_v2))<>server_v2 then 
response.write "<br><br><center><table border=0 cellpadding=20 width=450>" 
response.write "<tr><td>" 
response.write "不要外部提交,跳过Http提交吧!" 
response.write "</td></tr></table></center>" 
response.end 
end if 
%>
<%
Dim kname,passa,ch,ino
Dim ip,k
kname=killstr(Trim(Request.Form("name")))
passa=MD5(Request.Form("pass"))
Set ch = Conn.execute("Select * From [Admin] Where admin='"&kname&"' and password = '"&passa&"'")
If ch.Eof and ch.Bof Then%>
<Script Language="JavaScript">
alert("密码或者用户错误!请返回!");
javascript:history.go(-1);
</Script>
<%
Else
ip = Request.ServerVariables("REMOTE_ADDR") 
k = now()
Set ino = Conn.execute("Update [Admin] Set loginTime='"&k&"',ip = '"&ip&"' Where admin = '"&kname&"'")

Conn.Execute("Insert into LogNews(admin,loginTime,outTime,ip) values('"&kname&"','"&k&"','"&k&"','"&ip&"')")

Session("AdminUser")=kname
Session("AdminPwd")=passa
Session.Timeout = 60

Response.Redirect("Admin.html")
End If
ch.close
Set ch = nothing
ino.close
Set ino = nothing
Conn.Close
Set Conn=Nothing
%>