www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > member/login_pass.asp

    <!--#include file="../conn.asp"-->
<!--#include file="Md5.asp"-->
<% 
useradmin=Replace(request.Form("useradmin"), "'", "''") 
password=md5(Request("password"))
if useradmin=""  then 
response.Write("<script language=javascript>alert('请输入登陆帐号!');history.go(-1)</script>") 
response.end
end if 
if Request("password")=""  then 
response.Write("<script language=javascript>alert('请输入登陆密码!');history.go(-1)</script>") 
response.end
end if 
sql="select * from user where useradmin='"&useradmin&"' and userpassword='"&password&"'" 
set rs=conn.execute(sql) 
if rs.eof or rs.bof then 
response.Write("<script language=javascript>alert('帐号密码错误!');history.go(-1)</script>")  
response.End
end if
if rs("sh")=0 then
response.Write("<script language=javascript>alert('对不起，您的帐号暂时未通过审核！请稍候再尝试登陆!');history.go(-1)</script>")  
response.End()
end if
session("username")=rs("id")
sql="update user set dlcs=dlcs+1 where id=" & session("username") '登陆次数+1
conn.execute(sql) 
sql="update user set dldata=#" & now & "# where id=" & session("username")  '记录登陆时间
conn.execute(sql) 
Response.Write("<script language=""JavaScript"">alert("""&rs("useradmin")&" 登陆成功！这是您第"&rs("dlcs")&"次登陆!"");window.location.href='/index.asp';</script>")
%>