📄 main.asp
字号:
<!--#include file="inc/userconn.inc"-->
<html>
<head>
<title>订单管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="inc/guhongying.css">
<%
bigarea=request("bigarea")
if bigarea="" then
response.redirect "product.asp"
end if
%>
<body bgcolor="316395" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="ifuserlogin.asp"-->
<table height="50" align="center"><tr><td></td></tr></table>
<Form method="post" name="add" action="add.asp">
<table width="70%" border="0" cellspacing="1" cellpadding="6" bgcolor="" align="center" >
<tr>
<td bgcolor="#6699CC" colspan="5">
<div align="right">
<input type="submit" name="order" value="查看购物车">
</div>
</td>
</tr>
<%
sql="select * from area where bigarea='"&bigarea&"' "
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.eof or rs.bof then
response.write "<font color=ffffff><br><br>"& bigarea & "公司还没有发布相应的考试证书</font><br><br>"
else
for i=1 to rs.recordcount
%>
<tr>
<td bgcolor="#6699CC" colspan="5"> <%response.write "<font color=ffffff><b>" & rs("area") & "</b></font>"%>
</td>
</tr>
<%
sql1="select * from subs where bigarea='"&bigarea&"' and area='"&rs("area")&"' and ispacket='0'"
Set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.Open sql1,conn,1,1
if rs1.eof or rs1.bof then
response.write bigarea & "公司" & rs("area") & "的具体分类还不存在，Sorry!<br>"
else
for ii=1 to rs1.recordcount
%>
<tr>
<td bgcolor="#eeeeee" width="15%">
<a href="showsubs.asp?subsid=<%=rs1("subs")%>" target="target">
<%response.write rs1("subs")%></a></td>
<td bgcolor="#eeeeee">
<a href="showsubs.asp?subsid=<%=rs1("subs")%>" target="target">
<%response.write rs1("subsname")%></a></td>
<td bgcolor="#eeeeee" width="15%">
<%response.write rs1("subsnumber")%></td>
<td bgcolor="#eeeeee" width="15%">
<%response.write rs1("price")%></td>
<td bgcolor="#eeeeee" width="13%">
<div align="center"><img src="image/y_basket.gif" width="16" height="16">
<%
'判断一件商品是否被客户订购过，是则CHECKED
IsCheck=""
If InStr(Session("ProductList"), rs1("bookbm")) > 0 Then
IsCheck="Checked"
End If
%>
<input type="CheckBox" name="add" value="<%=rs1("bookbm")%>" <%=IsCheck%> >
</div>
</td>
</tr>
<%
rs1.movenext
next
end if
%>
<%
rs.movenext
next
end if
%>
<tr>
<td bgcolor="#6699CC" colspan="5"><font color=ffffff><b><%=bigarea%>相关的套装服务：</b></font>
</td>
</tr>
<%
sqlbb="select * from subs where bigarea='"&bigarea&"' and ispacket='1'"
Set rsbb=Server.CreateObject("ADODB.RecordSet")
rsbb.Open sqlbb,conn,1,1
if rsbb.eof or rsbb.bof then
response.end
else
for bb=1 to rsbb.recordcount
%>
<tr>
<td bgcolor="#eeeeee" width="15%">
<a href="showsubs.asp?subsid=<%=rsbb("subs")%>" target="target">
<%response.write rsbb("subs")%></a></td>
<td bgcolor="#eeeeee">
<a href="showsubs.asp?subsid=<%=rsbb("subs")%>" target="target">
<%response.write rsbb("subsname")%></a></td>
<td bgcolor="#eeeeee" width="15%">
<%response.write rsbb("subsnumber")%></td>
<td bgcolor="#eeeeee" width="15%">
<%response.write rsbb("price")%></td>
<td bgcolor="#eeeeee" width="13%">
<div align="center"><img src="image/y_basket.gif" width="16" height="16">
<%
'判断一件商品是否被客户订购过，是则CHECKED
IsCheck=""
If InStr(Session("ProductList"), rsbb("bookbm")) > 0 Then
IsCheck="Checked"
End If
%>
<input type="CheckBox" name="add" value="<%=rsbb("bookbm")%>" <%=IsCheck%> >
</div>
</td>
</tr>
<%
rsbb.movenext
next
end if
%>
<tr>
<td bgcolor="#6699CC" colspan="5">
<div align="center">
<input type="submit" name="order" value="放入购物车">
</div>
</td>
</tr>
</table>
</form>
<p> </p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -