📄 logincheck.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=login.asp>1、重新进入会员信息确认页面</a></p>"
Response.Write "<p align=center><a href=enroll.asp>2、重新进入注册页面</a></p>"
response.end
else
Response.redirect "makeinvoice.asp"
end if
'关闭数据库，并释放变量
cn.close
set cn=nothing
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -