📄 list.asp
字号:
<!--#include file="title.asp"--><meta name=keywords content="诚信商店,血饮狂刀,Clanboo,lanboo,金统联,webmaster@xytime.com,jsbuy.com,cebuy.com,王星亮,完美商店,超级商店,商城,冷面">
<%
response.expires = 0
Const PageSize=10
Page=CInt(request("Page"))
if Page<=0 then Page=1
str_pKindID=request("str_pKindID")
'显示商品分类
sub ShowKind()
sql.open "select * from web_ProKind where left(str_pKindID,2)='"&left(str_pKindID,2)&"' order by str_pKindID",conn,1,1
while not sql.eof
for i=1 to len(sql("str_pKindID"))
response.write " "
next
response.write "<a href='list.asp?str_pKindID="&sql("str_pKindID")&"' title='"&sql("txt_pKindExplain")&"'>"&sql("str_pKindName")&"</a> <br><br>"
sql.movenext
wend
sql.close
end sub
'最新消息
sub ShowNews()
sql.open "select top 6 int_sNewsID,str_sNewsTitle,int_sNewsTime from web_ShopNews where int_sNewsType=1 order by int_sNewsTime desc",conn,1,1
while not sql.eof
response.write "<a href='readnews.asp?int_sNewsID="&sql("int_sNewsID")&"' title='"&sql("str_sNewsTitle")&"' target=_blank>·"&left(sql("str_sNewsTitle"),11)&"</a><br>"
response.write " <font color='#FF9900'>"&sql("int_sNewsTime")&"</font><br>"
sql.movenext
wend
sql.close
end sub
'销售排行版
sub ShowTopBuy()
sql.open "select top 10 ProcID,A5 from web_ProcLib order by A31 desc",conn,1,1
i=1
while not sql.eof
response.write i&", <a href='showproc.asp?ProcID="&sql("ProcID")&"' target=_blank>"&sql("A5")&"</a><br>"
sql.movenext
i=i+1
wend
sql.close
end sub
'////////最新商品
sub ShowNewProc()
QueryType=request("QueryType")
QueryString=request("QueryString")
if QueryType="" then QueryType="A6"
if str_pKindID<>"" then
Query="select ProcID,A5,A8,A14,A15,A16,A23 from web_ProcLib where A1 like '"&str_pKindID&"%' and "&QueryType&" like '%"&QueryString&"%' order by A28 desc"
else
Query="select ProcID,A5,A8,A14,A15,A16,A23 from web_ProcLib where "&QueryType&" like '%"&QueryString&"%' order by A28 desc"
end if
sql.open Query,conn,1,1
sql.PageSize=CLng(PageSize)
if Page>sql.PageCount then Page=sql.PageCount
if not(sql.eof) then
sql.absolutepage=CLng(Page)
end if
PageNum=sql.PageCount
Rows=sql.RecordCount
%>
<!--分页开始-->
<table border="0" bgcolor="#ffffff" cellspacing="1" style="font-family: 宋体; font-size: 10pt; border: 1px ridge" width="100%">
<form name='goForm' method="post" action="<%=UrlFile&"?str_pKindID="&str_pKindID%>">
<tr bgcolor=#ffffff>
<td> <%=sql.RecordCount%>个记录/共<%=sql.PageCount%>页 第<font color=red><%=Page%></font>页</td><td align="right"><a href='<%=UrlFile&"?str_pKindID="&str_pKindID&"&Page=1"%>'>首页</a> <a href='<%=UrlFile&"?str_pKindID="&str_pKindID&"&Page="&Page-1%>'>上一页</a> <a href='<%=UrlFile&"?str_pKindID="&str_pKindID&"&Page="&Page+1%>'>下一页</a> <a href='<%=UrlFile&"?str_pKindID="&str_pKindID&"&Page="&sql.PageCount%>'>未页</a> 第<input type=text name='Page' value='<%=Page%>' size=2>页<input type='submit' name='go' value='go'> <%=tmpUrl%>
</td>
</tr>
</form>
<table>
<!--分页结束-->
<%
response.write "<tr bgcolor=#ffffff>"
for i=1 to Pagesize
if sql.eof then exit for
if sql("A23")<>"" then
A23=sql("A23")
else
A23="images/noimage.gif"
end if
%>
<td valign="top" width='50%'><table width="100%" border="0" cellspacing="0">
<%if sql("A14")=1 then%>
<tr>
<td colspan="2" class="en1"><strong><img src="images/car.gif" width="146" height="24" border="0"></a></td>
</tr>
<%end if%>
<tr>
<td colspan="2" class="en1"><strong><a href="showproc.asp?ProcID=<%=sql("ProcID")%>" target=_blank"><%=sql("A5")%></a></strong> <%=sql("A8")%></td>
</tr>
<tr>
<td width="101"><a href="<%=A23%>" target=_blank><img src="<%=A23%>" width="101" height="99" border="0"></a></td>
<td align="left" valign="top" class="cn22"><br>
原价:<s><%=sql("A15")%></s><br>
现价:<strong><font color="#FF9900"><%=sql("A16")%></font><br>
<a href="showproc.asp?ProcID=<%=sql("ProcID")%>" target=_blank><img src="images/view-it.gif" width="59" height="17" border="0"></a>
<a href="shopcart.asp?ProcID=<%=sql("ProcID")%>"><img src="images/buy-now.gif" width="59" height="17" border="0"></a>
</strong></td>
</tr>
</table></td>
<%
if i/2=int(i/2) then response.write "</tr><tr bgcolor=#ffffff>"
'if i/2<>int(i/2) then response.write "</tr>"
sql.movenext
next
response.write "</tr>"
sql.close
end sub
%>
<table width="100%" border="0" cellspacing="0" >
<tr>
<td width="178" valign="TOP">
<TABLE WIDTH=178 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD> <IMG SRC="images/b1_01.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
<TD> <img src="images/b1_02.gif" width="160" height="11"></TD>
<TD> <IMG SRC="images/b1_03.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/b1_04.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
<TD align="center" valign="middle" background="images/1a.gif"> <span class="cn2">商品分类</span></TD>
<TD> <IMG SRC="images/b1_06.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=3> <IMG SRC="images/b1_07.gif" WIDTH=178 HEIGHT=4 ALT=""></TD>
</TR>
<TR>
<TD background="images/1c.gif"> <IMG SRC="images/1c.gif" WIDTH=9 HEIGHT=1 ALT=""></TD>
<TD> <table width="100%" height="185" border="0" cellspacing="0">
<tr>
<td valign=top>
<!--商品分类开始-->
<%ShowKind%>
<!--商品分类结束-->
</td>
</tr>
</table>
</TD>
<TD background="images/2c.gif"> </TD>
</TR>
<TR>
<TD COLSPAN=3 height="10"> <img src="images/b1_11.gif" width=178 height=10 alt=""></TD>
</TR>
</TABLE>
<TABLE WIDTH=178 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD> <IMG SRC="images/h1.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
<TD> <img src="images/h3.gif" width="160" height="11"></TD>
<TD> <IMG SRC="images/h2.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/b1_04.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
<TD background="images/1a.gif"> <span class="cn2">销售排行</span></TD>
<TD> <IMG SRC="images/b1_06.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=3> <IMG SRC="images/b1_07.gif" WIDTH=178 HEIGHT=4 ALT=""></TD>
</TR>
<TR>
<TD background="images/1c.gif"> <IMG SRC="images/1c.gif" WIDTH=9 HEIGHT=1 ALT=""></TD>
<TD valign="top">
<table width="100%" border="0" cellspacing="4">
<tr>
<td class="en1"><%ShowTopBuy%></td>
</tr>
</table></TD>
<TD background="images/2c.gif"> </TD>
</TR>
<TR>
<TD COLSPAN=3 height="10"> <img src="images/b1_11.gif" width=178 height=10 alt=""></TD>
</TR>
</TABLE>
<TABLE WIDTH=178 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD> <IMG SRC="images/b1_01.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
<TD> <img src="images/b1_02.gif" width="160" height="11"></TD>
<TD> <IMG SRC="images/b1_03.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/b1_04.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
<TD background="images/1a.gif"> <span class="cn2">最新消息 </span></TD>
<TD> <IMG SRC="images/b1_06.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=3> <IMG SRC="images/b1_07.gif" WIDTH=178 HEIGHT=4 ALT=""></TD>
</TR>
<TR>
<TD background="images/1c.gif"> <IMG SRC="images/1c.gif" WIDTH=9 HEIGHT=1 ALT=""></TD>
<TD valign="top" class="cn22">
<p><%ShowNews%></p>
</TD>
<TD background="images/2c.gif"> </TD>
</TR>
<TR>
<TD COLSPAN=3 height="10"> <img src="images/b1_11.gif" width=178 height=10 alt=""></TD>
</TR>
</TABLE>
<img src="images/2c.gif" width=9 height=1 alt=""></td>
<td align="center" valign="TOP">
<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD width="9"> <IMG SRC="images/t4_01.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
<TD width="" background="images/t4_02a.gif"> <IMG SRC="images/t4_02a.gif" WIDTH=1 HEIGHT=11 ALT=""></TD>
<TD width="10"> <IMG SRC="images/t4_03.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/t4_04.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
<TD align="center" background="images/1a.gif"> <span class="cn2">欢迎光临<strong><font color="#669900">诚信商店</font></strong>！你可以立刻<a href="reg.asp">创建一个会员帐号</a>！</span></TD>
<TD> <IMG SRC="images/t4_06.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/t4_07.gif" WIDTH=9 HEIGHT=4 ALT=""></TD>
<TD background="images/t4_08a.gif"> <IMG SRC="images/t4_08a.gif" WIDTH=1 HEIGHT=4 ALT=""></TD>
<TD> <IMG SRC="images/t4_09.gif" WIDTH=9 HEIGHT=4 ALT=""></TD>
</TR>
</TABLE>
<%=strCenterPic%><!--居中广告-->
<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD width="9"> <IMG SRC="images/t5_01.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
<TD background="images/t5_02a.gif"> <IMG SRC="images/t5_02a.gif" WIDTH=1 HEIGHT=11 ALT=""></TD>
<TD width="9"> <IMG SRC="images/t5_03.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/t5_04.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
<TD background="images/1a.gif"> <span class="cn2">商品列表</span></TD>
<TD> <IMG SRC="images/t5_06.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
</TR>
<TR>
<TD background="images/1c.gif"> <IMG SRC="images/1c.gif" WIDTH=9 HEIGHT=1 ALT=""></TD>
<TD valign="top"><table width="100%" border="0" FRAME="vsides" cellpadding="0" cellspacing="1" bgcolor="#E1E1E1">
<%ShowNewProc%>
</table></TD>
<TD background="images/2c.gif"> <IMG SRC="images/2c.gif" WIDTH=9 HEIGHT=8 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/t5_10.gif" WIDTH=9 HEIGHT=9 ALT=""></TD>
<TD background="images/t5_11a.gif"> <IMG SRC="images/t5_11a.gif" WIDTH=1 HEIGHT=9 ALT=""></TD>
<TD> <IMG SRC="images/t5_12.gif" WIDTH=9 HEIGHT=9 ALT=""></TD>
</TR>
</TABLE>
</td>
<td width="193" valign="TOP"><TABLE WIDTH=193 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD> <IMG SRC="images/t3_01.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
<TD> <IMG SRC="images/t3_02.gif" WIDTH=175 HEIGHT=11 ALT=""></TD>
<TD> <IMG SRC="images/t3_03.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/t3_04.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
<TD background="images/1a.gif"> <span class="cn2">热点推介</span></TD>
<TD> <IMG SRC="images/t3_06.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/t3_07.gif" WIDTH=9 HEIGHT=4 ALT=""></TD>
<TD> <IMG SRC="images/t3_08.gif" WIDTH=175 HEIGHT=4 ALT=""></TD>
<TD> <IMG SRC="images/t3_09.gif" WIDTH=9 HEIGHT=4 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/t3_10.gif" WIDTH=9 HEIGHT=171 ALT=""></TD>
<TD><%=strHotProc%></TD>
<TD> <IMG SRC="images/t3_12.gif" WIDTH=9 HEIGHT=171 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/t3_13.gif" WIDTH=9 HEIGHT=9 ALT=""></TD>
<TD> <IMG SRC="images/t3_14.gif" WIDTH=175 HEIGHT=9 ALT=""></TD>
<TD> <IMG SRC="images/t3_15.gif" WIDTH=9 HEIGHT=9 ALT=""></TD>
</TR>
</TABLE>
<%=strRightPic%><!--'右边广告位(最多显示最新的三个)-->
<!--FAQ管理--><%ShowFAQ%>
<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD width="9"> <IMG SRC="images/t5_01.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
<TD background="images/t5_02a.gif"> <IMG SRC="images/t5_02a.gif" WIDTH=1 HEIGHT=11 ALT=""></TD>
<TD width="9"> <IMG SRC="images/t5_03.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/t5_04.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
<TD background="images/1a.gif"> <span class="cn2">联系信息</span></TD>
<TD> <IMG SRC="images/t5_06.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
</TR>
<TR>
<TD background="images/1c.gif"> <IMG SRC="images/1c.gif" WIDTH=9 HEIGHT=1 ALT=""></TD>
<TD align="left" valign="top"><p><span class="cn1"><img src="images/w_line.gif" width="172" height="8">
<%=sqlSys("C11")%></span><span class="cn2"><br>
地址：<%=sqlSys("C14")%><br>
信箱：</span><span class="en1"><a href="mailto:<%=sqlSys("C15")%>"><%=sqlSys("C15")%></a></span><span class="cn2"><br>
热线：</span><span class="en1"><%=sqlSys("C16")%></span><span class="cn2"><br>
传真：</span><span class="en1"><%=sqlSys("C17")%></span><br>
</p>
</TD>
<TD background="images/2c.gif"> <IMG SRC="images/2c.gif" WIDTH=9 HEIGHT=8 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/t5_10.gif" WIDTH=9 HEIGHT=9 ALT=""></TD>
<TD background="images/t5_11a.gif"> <IMG SRC="images/t5_11a.gif" WIDTH=1 HEIGHT=9 ALT=""></TD>
<TD> <IMG SRC="images/t5_12.gif" WIDTH=9 HEIGHT=9 ALT=""></TD>
</TR>
</TABLE>
</td>
</tr>
</table>
<!--#include file="bottom.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -