checkuser.asp

来自「if you want it,call me.」· ASP 代码 · 共 41 行

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:[phone]
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
if request.form("user")="" then
response.write"<script language=javascript>alert('用户名必须填写');window.location.reload('javascript:window.close()')</script>"
end if
if request.form("password")="" then
response.write"<script language=javascript>alert('密码必须填写');window.location.reload('javascript:window.close()')</script>"
end if

username=request("user")
password=md5(request("password"))
set rs=server.createobject("adodb.recordset")
sql="select * from member where cname='"&username&"'"
rs.open sql,conn,1,3
if rs.eof then
response.write"<script language=javascript>alert('此用户名尚未注册');window.location.reload('javascript:window.close()')</script>"
response.end
else
pass=rs("password")
if pass<>password then
response.write"<script language=javascript>alert('密码错误');window.location.reload('javascript:window.close()')</script>"
response.end
end if

rs("lastlogin")=now()
rs("logins")=rs("logins")+1
rs.update
session("user")=username

response.write "<script language=javascript>alert('登陆成功，请返回刷新页面');window.location.reload('javascript:window.close()')</script>"
end if
rs.close
set rs=nothing
%>