chkadmin.asp

图书销售系统,页面丰富,连接数据库,多个运行.

<!--#include file="connection.asp"-->
<!--#include file="Vchar.asp"-->
<!--#include file="md5.asp"-->
<%dim admin,password
admin=replace(trim(request("admin")),"'","")
password=md5(replace(trim(request("password")),"'",""))
if admin="" or password="" then
response.Write "<center><a href=login.asp><font color=red size=2>对不起，登陆失败，请检查您的登陆名和密码</font></a></center>"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_admin where admin='"&admin&"' and password='"&password&"' " ,conn,1,1
if not(rs.bof and rs.eof) then
if password=trim(rs("password")) then
session("admin")=trim(rs("admin"))
session("flag")=int(rs("flag"))
session.Timeout=45
dim adminid,logins
adminid=int(rs("adminid"))
rs.Close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_admin where adminid="&adminid,conn,1,3
logins=int(rs("logins"))
rs("logins")=logins+1
rs.update
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_AdminLog" ,conn,1,3
rs.addnew
rs("adminid")=adminid
rs("ThisLogin")=logins+1
rs("datestart")=now()
rs("adminip")=Request.serverVariables("REMOTE_ADDR")
rs.update
rs.close
set rs=nothing

response.Redirect "index.asp"
else
response.write "<script LANGUAGE='javascript'>alert('对不起，登陆失败！');window.location.reload('javascript:history.go(-1)')</script>"

end if
else
response.write "<script LANGUAGE='javascript'>alert('对不起，登陆失败！');window.location.reload('javascript:history.go(-1)')</script>"

end if

%>