📄 defaultn.asp
字号:
<!--#include file="inc/userconn.inc"-->
<%
if request("userlogout")="logout" then
Session("username") = ""
Session("password") = ""
Session("ProductList") = ""
Session("userleavel")= ""
response.redirect "default.asp"
end if
on error resume next
%>
<html>
<head>
<title>网上商城</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/guhongying.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<table width="778" border="0" cellspacing="1" cellpadding="0" bgcolor="#730025" align="center" height="600">
<tr>
<td bgcolor="#FFFFFF" valign="top"><table width="776" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="776" border="0" cellspacing="0" cellpadding="0" valign="top">
<tr>
<td width="141" valign="top">
<table width="141" border="0" cellspacing="0" cellpadding="0" height="500" valign="top">
<tr valign="top">
<td height="46" valign="top"> </td>
</tr>
<tr valign="top">
<td height="385" valign="top">
<%
sql="select * from bigarea order by id "
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
for i=1 to rs.recordcount
%>
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center" valign="top">
<tr>
<td rowspan="2" width="35" valign="top"> </td>
<td valign="baseline" height="5" ></td>
</tr>
<tr>
<td> <a href="main.asp?bigarea=<%Response.Write rs("bigarea")%>" >
<%response.write rs("bigarea")%>
</a> </td>
</tr>
<tr>
<td colspan="2" height="7" valign="top"></td></tr>
</table>
<%
rs.movenext
next
%>
</td>
</tr>
<tr>
<td align="center" height="35" valign="bottom"> </td>
</tr>
<tr>
<td align="center" height="50"> </td>
</tr>
</table>
</td>
<td width="470" valign="top">
<table width="470" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="470" border="0" cellspacing="0" cellpadding="0">
<form name="userlogin" method="post" action="default.asp">
<tr>
<td width="88"> </td>
<td height="39" valign="bottom" width="382">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="18"></td>
<td width="282"> <%if Session("username")="" then%>
<font color="#9A1C4C">帐号
<input type="text" name="username" size="6" class="form">
密码
<input type="password" name="password" size="6" class="form">
</font>
<input type="submit" name="Submit2" value="登陆">
<%
else
response.write "<font color=9A1C4C>您已成功登陆</font> "
response.write "<a href='default.asp?userlogout=logout'><font color=9A1C4C>登出</font></a>"
end if
%> </td>
<input type="hidden" name="UserLogin" value="True">
</tr>
<tr>
<td width="18" height="5"></td>
<td height="5" width="282"></td>
<td height="5" width="24"></td>
</tr>
</table>
</tr>
</form>
</table>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="470" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="center"></div>
</td>
</tr>
</table>
<table width="470" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td>
<table width="85%" border="0" cellspacing="0" cellpadding="0" align="center">
<form method="post" name="add" action="add.asp">
<tr>
<td colspan="4" height="27"></td>
</tr>
<%
sql1="select * from subs where top='1' order by id "
Set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.Open sql1,conn,1,1
iii=rs1.recordcount
iii=iii/2
for ii=1 to iii
%>
<tr>
<td width="20%" height="88">
<%
photo=rs1("photo")
photo="photo/"+photo
%> <%if photo<>"photo/0" then%><img src="<%=photo%>" border="1" ><%end if%> </td>
<td width="30%" height="37"> <%response.write "<font color=B0266D><b>" & rs1("subsname") & "</b></font><br>价格:" & rs1("price") & "RMB"%><br>
<a href="showsubs.asp?subsname=<%=rs1("subsname")%>" target="target">详细资料</a><br>
<%
'判断一件商品是否被客户订购过，是则CHECKED
IsCheck=""
If InStr(Session("ProductList"), rs1("bookbm")) > 0 Then
IsCheck="Checked"
End If
%> 购买:
<input type="CheckBox" name="add" value="<%=rs1("bookbm")%>" <%=IsCheck%> >
<%rs1.movenext%> </td>
<td width="20%" height="37"> <%
photo=rs1("photo")
photo="photo/"+photo
%> <%if photo<>"photo/0" then%><img src="<%=photo%>" border="1"><%end if%> </td>
<td width="30%" height="37"> <%response.write "<font color=B0266D><b>" & rs1("subsname") & "</b></font><br>价格:" & rs1("price") & "RMB"%><br>
<a href="showsubs.asp?subsname=<%=rs1("subsname")%>" target="target">详细资料</a><br>
<%
'判断一件商品是否被客户订购过，是则CHECKED
IsCheck=""
If InStr(Session("ProductList"), rs1("bookbm")) > 0 Then
IsCheck="Checked"
End If
%> 购买:
<input type="CheckBox" name="add" value="<%=rs1("bookbm")%>" <%=IsCheck%> >
<%rs1.movenext%> </td>
</tr>
<%next%>
<tr>
<td colspan="4" height="65">
<div align="center">
<input type="submit" name="Submit" value="放入购物车">
</div>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<table width="470" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="85%" border="0" cellspacing="0" cellpadding="0" align="center">
<%
sqlg="select * from message"
Set rsg=Server.CreateObject("ADODB.RecordSet")
rsg.Open sqlg,conn,1,1
for g=1 to 5
%>
<tr>
<td height="21"> <a href="showgonggao.asp?subject=<%=rsg("subject")%>" target="target">
<%response.write " <font color=B0266D>" & rsg("subject") & "</font>"%>
</a></td>
</tr>
<%
rsg.movenext
next
%>
</table>
</td>
<td width="165" valign="top">
<table width="165" border="0" cellspacing="0" cellpadding="0" >
<tr>
<td height="167">
<table width="165" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td width="14"> </td>
<td width="151" height="80" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="165" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="showsubs.asp">
<tr>
<td height="23" bgcolor="#FFFFFF">
<input type="text" name="subsname" size="13" class="form">
</td>
<td colspan="2" height="23" bgcolor="#FFFFFF">
<input type="submit" name="Submit3" value="查">
</td>
</tr>
</form>
</table>
</td>
</tr>
<tr>
<td>
<table width="165" border="0" cellspacing="0" cellpadding="0">
<tr valign="top" >
<td colspan="2"> </td>
</tr>
<%
sql2="select * from subs where tuijian='1' order by id "
Set rs2=Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
for t=1 to rs2.recordcount
%>
<tr width="165">
<td height="100%" width="10"></td>
<td height="100%" width="155">
<br>
<a href="showsubs.asp?subsname=<%=rs2("subsname")%>" target="target">
<%response.write " <p> <font color=B0266D>" & rs2("subsname") & "</font></p>"%>
</a> </td>
</tr>
<%
rs2.movenext
next
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="13"> </td>
</tr>
<tr>
<td align="center" height="40">
<p><font color="#9A1C4C"></font></p>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
if request.form("UserLogin")<>"True" then
response.end
else
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 "default.asp"
end if
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -