📄 findhistory.asp
字号:
<!--#INCLUDE file="config.inc" -->
<html>
<head>
<title>老会员登录</title>
<style>
<!-- td{font:10pt;} -->
</style>
</head>
<body style="font:10pt">
<%
dim flag
logname = trim(Request.Form("logname"))
pasword = trim(Request.Form("pasword"))
'防止不经过表单递交页面而直接进入此页面
if logname="" then
response.write "<center><h1>错误操作！请重试。。。</center></h1>"
response.end
else
'定义几个变量
dim cn,points,login
'检查用户名及密码是否为空
if logname="" or pasword="" then
Response.Write "<p align=center>出错提示：会员名、密码不能为空！</p>"
Response.Write "<p align=center><a href=oldlogin.asp>点击这里重新进入登录页面</a></p>"
Response.End
end if
'显式地创建Recordset对象实例cn,并连接数据库
set cn=Server.CreateObject("ADODB.Recordset")
cn.Open " select * from users where userid='" & logname & "' and userpw='" & pasword & "' ",connstring
'判断数据库表中的记录
if cn.eof then
Response.Write "<p align=center>出错提示：会员名不存在或会员名、密码不正确！</p>"
Response.Write "<p align=center><a href=oldlogin.asp>1、重新进入登录页面</a></p>"
Response.Write "<p align=center><a href=enroll.asp>2、重新进入注册页面</a></p>"
response.end
else
Response.Write "<font style=font:10pt>登录成功！<a href=temp.htm style=color:blue>继续购物</a></font><br>"
session("login")=session.sessionid
session("loginuser")=cn("userid")
end if
'输出该用户的积分数
points=cn("points")
if points<>0 then
response.write "<br><font style=font:10pt>恭喜恭喜，您的总积点数已经达到<font color=red>"& points& "</font>！（包括最新购物结果）</font>"
end if
'关闭数据库，并释放变量
cn.close
set cn=nothing
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -