📄 product.asp
字号:
<!--#include file="conn.asp"-->
<!-- #include file="adovbs.inc" -->
<script type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<%
cls=request("cls")
if cls="" or cls=null then
cls=78
end if
select case cls
case 78
sname1="<font color=#FF6633>男装</font>"
sname2="<font color=#333333>童装</font>"
sname3="<font color=#333333>女装</font>"
sname4="<font color=#333333>特价区</font>"
case 81
sname1="<font color=#333333>男装</font>"
sname2="<font color=#FF6633>童装</font>"
sname3="<font color=#333333>女装</font>"
sname4="<font color=#333333>特价区</font>"
case 62
sname1="<font color=#333333>男装</font>"
sname2="<font color=#333333>童装</font>"
sname3="<font color=#FF6633>女装</font>"
sname4="<font color=#333333>特价区</font>"
case 100
sname1="<font color=#333333>男装</font>"
sname2="<font color=#333333>童装</font>"
sname3="<font color=#333333>女装</font>"
sname4="<font color=#FF6633>特价区</font>"
end select
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="css/default.css" rel="stylesheet" type="text/css"/>
<title>rep</title>
</head>
<body bgcolor="#FFF4F8" topmargin="0">
<table cellpadding="0" cellspacing="0" border="0" width="760" align="center">
<tr><td colspan="2"><img src="images/20050915184120263shopping_760x80.gif" width="760" /></td></tr>
<tr><td height="3" background="images/zzyrfs_line01.gif" width="100%" colspan="2"></td></tr>
<tr>
<td width="167" background="images/zyrfs_pbg01.gif" align="center"><img src="images/zzyrfs_p01.gif" border="0" /></td>
<td background="images/zzyrfs_bg01.gif" height="25" width="593" valign="middle">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" width="14%"><a href="index.asp"><strong><font color="#333333">首页</font></strong></a></td>
<td align="center" width="14%"><a href="reg.htm"><strong><font color="#333333">注册</font></strong></a></td>
<td align="center" width="14%"><a href="product.asp?cls=78"><strong><%=sname1%></strong></a></td>
<td align="center" width="14%"><a href="product.asp?cls=81"><strong><%=sname2%></strong></a></td>
<td align="center" width="14%"><a href="product.asp?cls=62"><strong><%=sname3%></strong></a></td>
<td align="center" width="14%"><a href="product.asp?cls=100"><strong><%=sname4%></strong></a></td>
<td align="center" width="14%"><a href="rep.htm"><strong><font color="#333333">意见反馈</font></strong></a></td>
<td align="center" width="2%"></td>
</tr>
</table>
</td>
</tr>
<tr><td height="3" background="images/zzyrfs_line01.gif" width="100%" colspan="2"></td></tr>
</table>
<table cellpadding="0" cellspacing="0" border="0" width="760" align="center"> <tr>
<td width="165" valign="top" align="left">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td colspan="2"><img src="images/zzyrfs_p09.gif" border="0"></td>
</tr>
<tr>
<td bgcolor="#F097DB" height="573" width="160"></td>
<td width="5"></td>
</tr>
</table>
</td>
<td align="left" valign="top">
<table cellpadding="0" cellspacing="0" border="0" width="595" align="right">
<tr><td height="15"></td></tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
if cls=100 then
'选择的是特价商品
sql="select * from product where stat=1 order by addtime desc"
else
sql="select * from product where class="&cls&" order by addtime desc"
end if
'---------------------------------------------------------connect_recordset---begin--
currentPage=trim(request("currentPage"))
if currentPage="" then
currentPage=1
end if
currentPage=cINT(currentPage)
set rs=Server.CreateObject("ADODB.Recordset")
rs.PageSize=8 '-----每页15条记录---
rs.CursorType = adOpenStatic '---*-
rs.CursorLocation = adUseServer '--*--
rs.open Sql,Conn,adOpenStatic
if rs.eof then
Response.Write("没有信息，请点返回！")
Response.End
else
rs.AbsolutePage=cINT(currentPage)
end if
if currentPage>rs.PageCount then
currentPage=rs.PageCount
end if
'---------------------------------------------------------connect_recordset---end--
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
'循环产品开始
rowCount=0
while not rs.eof and rowCount<rs.PageSize
%>
<tr>
<td width="50%">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="left">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="middle" height="8"></td>
</tr>
<tr>
<td valign="middle"><img src="images/kuang3.gif" width="106" height="5"></td>
</tr>
<tr>
<td height="136" background="images/kuang5.gif" width="106" align="center">
<table cellSpacing=0 cellPadding=0 border=0>
<tr>
<td align=center>
<% if rs("picname")<> "" then
response.Write("<img width=95 height=136 src=admin/photo/"&rs("picname") &">")
else
response.Write("<img width=95 height=136 src=images/456.jpg")
end if
%>
</td>
</tr>
</table>
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -