chlogin.asp

网站关键词作弊

<!--#include file="../Sql.asp" -->
<!--#include file="../Http.asp" -->
<% 
dim Conn_KongZhi
Conn_KongZhi="yes"
%>
<!--#include file="../Ckk_Conn.asp" -->
<!--#include file="../Md5.asp" -->
<%
dim username,userpassword,sql,sqlping
username=replace(trim(request("name")),"'","")
userpassword=md5(replace(trim(request("pass")),"'",""))
if username="" or userpassword="" then
response.write "<script LANGUAGE='javascript'>alert('您的用户名或密码有误！');history.back();</script>"
response.end
end if
set rstping=server.createobject("adodb.recordset")
sqlping="select * from Ckk_admin where AdminName='"&username&"' and PassWord='"&userpassword&"' "
rstping.open sqlping,dsn,3,3
if rstping.eof then    
response.write("<script>alert(""您的用户名或密码不对！"");history.back();</script>")
response.End
Else 
session("name")=rstping("AdminName")
session("pass")=rstping("PassWord")
sql="select * from Ckk_admin where AdminName='"&username&"' and PassWord='"&userpassword&"' "
set rs=server.createobject("adodb.recordset")
rs.open sql,dsn,3,2
rs("Dates")=Now()
rs("Ip")=Request.serverVariables("REMOTE_ADDR")
rs.update
rs.close
Set rs=Nothing
sql="select * from Ckk_Admin_Log"
set rs=server.createobject("adodb.recordset")
rs.open sql,dsn,3,2
rs.addnew
rs("Admin")=username
rs("Ckk_Administrator")=session("Ckk_Administrator")
rs("Dates")=Now()
rs("Ip")=Request.serverVariables("REMOTE_ADDR")
rs.update
rs.close
response.Redirect "Main.asp"
End If
Set rstping=Nothing
rstping.close %>
<!--#include file="../Close.asp"-->