📄 userlogin.asp
字号:
<!--#include file="inc/userconn.inc"-->
<%
if request("userlogout")="logout" then
Session("username") = ""
Session("password") = ""
Session("ProductList") = ""
Session("userleavel")= ""
response.redirect "main.asp"
end if
%>
<html>
<head>
<title>用户登陆</title>
<link rel="stylesheet" type="text/css" href="inc/guhongying.css">
</head>
<body bgcolor="7C96B8" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="ifuserlogin.asp"-->
<form name="Login" method="post" action="userlogin.asp">
<table height="50" align="center"><tr><td></td></tr></table>
<table width="50%" border="0" cellspacing="1" cellpadding="6" bgcolor="#000000" align="center">
<tr align="center" bgcolor="316395">
<td colspan="2">
<div align="left"><font color="#FFFFFF"><b>用户登陆: </b></font></div>
</td>
</tr>
<tr bgcolor="eeeeee">
<td width="260" align="right">用户名:</td>
<td width="408">
<input type="text" name="username" >
<a href="newuser.asp">您没有注册？</a> </td>
</tr>
<tr bgcolor="#6699CC">
<td width="260" align="right"><font color="#FFFFFF">密码：</font></td>
<td width="408">
<input type="password" name="password">
</td>
</tr>
<tr align="center" bgcolor="eeeeee">
<td colspan="2">
<input type="hidden" name="UserLogin" value="True">
<input type="submit" name="Submit" value="确 定">
<input type="reset" name="Submit2" value="清 除">
</td>
</tr>
</table>
</form>
</body>
</html>
<%
if request.form("UserLogin")<>"True" then response.end
if Session("username")=request("username") then response.redirect "error.asp?error=005"
Username=request.form("UserName")
Password=request.form("Password")
Username=replace(Username,"'","")
Password=replace(Password,"'","")
sql = "SELECT top 1 username,password,sumjifen FROM user where Username='" & Username & "'"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if rs.bof or rs.eof then
response.redirect "error.asp?error=003"
else
if rs("Password")=Password then
Session("username") = Username
Session("password") = Password
'判断用户现在应有的级别，首先判断是否小于第一级，在本程序，小于第一级也给予第一级的折扣
'这样写程序是不好的，请大家看明白后自行修改 ^&^ 然后把更好的算法告诉我:guhongying@163.net
'谢谢~。。。
'PS:如果想给普通用户的级别也可以[即没有折扣]，在此修改session("userleavel")后再到支付中修改，加入一个判断即可
sql1 = "select * from discount"
Set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.open sql1,conn,1,1
'if rs("sumjifen")=0 then session("userleavel")=1
if rs("sumjifen")>=0 and rs("sumjifen")<= rs1("jifen") then
session("userleavel")=1
else
for i=1 to rs1.recordcount
if rs("sumjifen")>=rs1("jifen") then session("userleavel")=rs1("leavel")
rs1.movenext
next
end if
else
response.redirect "error.asp?error=004"
end if
end if
'判断从哪里登陆，是否返回购物车
if Session("ProductList")<>"" then
response.redirect "check.asp"
else
response.redirect "main.asp"
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -