📄 101.asp
字号:
<td height="5" > </td>
</tr>
</table>
<%end sub%>
<%sub news_show%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>首页：新闻内容</td>
</tr>
<%
id=request("id")
id=FomaID(id)
set rs=server.createobject("adodb.recordset")
sqltext="select * from news where shop_name='"&shop_name&"'and id="&id
rs.open sqltext,conn,1,1
if rs.eof then
response.write "<tr><td>没有新闻内容</td></tr>"
else
%>
<tr>
<td height="50"> <div align="center"><strong><%=rs("n_top")%></strong><br>
<font color="#999999">时间：[<%=rs("n_time")%>]</font></div></td>
</tr>
<tr>
<td><%=rs("content")%></td>
</tr>
<%
end if
rs.close:set rs=nothing
%>
<tr>
<td> </td>
</tr>
</table>
<%end sub%>
<%sub product%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>首页：商品详细</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>
<%
Product_id=Request("Product_id")
Product_id=FomaID(Product_id)
strSQL="update Product set Look_Count=Look_Count+1 where Product_id='"& Product_id&"'"
conn.Execute strSQL
set rs=server.createobject("adodb.recordset")
sqltext="select * from Product Where Product_id='"& Product_id&"'"
rs.open sqltext,conn,1,1
if rs.eof and rs.bof then
response.write "对不起！此商品已售完!"
else
Products = Split(rs("Classification"), ",")
CatalogID=Products(0)
set class_rs=server.createobject("adodb.recordset")
sql="select CatalogName from SoftDown_Catalog where CatalogID="&CatalogID
class_rs.open sql,conn,1,1
CatalogName=class_rs("CatalogName")
class_rs.close
Product_name=rs("Product_name")
%>
<table width="590" border="1" align="center" cellpadding="4" cellspacing="0" bordercolorlight="#FFD146" bordercolordark="#FFFCF0">
<tr>
<td height="236" colspan="2"> <div align="center"> <br>
<img src="<%=rs("big_pic")%>" border="0" ></div>
<div align="center"> <font color="red">浏览次数：</font><%=rs("Look_Count")%><br>
<a href="javascript:openbag('../check.asp?cpbm=<%=rs("Product_Id")%>&shopname=<%=rs("p_shop")%>')">
<img border="0" src="../images/che2.gif" width="56" height="22"></a>
<a href="#" onclick="window.open('../user/Favorites.asp?Product_Id=<%=rs("Product_Id")%>','','height=280,width=600,scrollbars=yes,resizable=1,top=10, left=15');"><img src="../IMAGES/shoucang2.gif" width="56" height="22" border="0"></a></div></td>
</tr>
<tr>
<td width="260"> <p>【<b><font color="#FF0000">商品名称</font></b>】：<%=Product_name%>
</p></td>
<td width="302">【<b><font color="#FF0000">市场价格</font></b>】：<strike><%=rs("P_OldPrice")%>元</strike>
</td>
</tr>
<tr>
<td> <p>【<b><font color="#FF0000">所属类别</font></b>】：<a href="default.asp?sb=P_class&CatalogID=<%=CatalogID%>&CatalogName=<%=CatalogName%>"><%=CatalogName%></a></p></td>
<td>【<b><font color="#FF0000">会员价格</font></b>】：<span class="main1"><%=rs("p_newprice")%>元</span></td>
</tr>
<tr>
<td> <p>【<b><font color="#FF0000">商品单位</font></b>】：<%=rs("units")%>
</p></td>
<td>【<b><font color="#FF0000">商品规格</font></b>】：<%=rs("guige")%></td>
</tr>
<tr>
<td> <p>【<b><font color="#FF0000"><span
class=main1>生产厂家</span></font></b>】：<span class="main1"></span><%=rs("factory")%>
</p></td>
<td>【<b><font color="#FF0000">商品所在地</font></b>】：<%=rs("locus")%></td>
</tr>
<tr>
<td height="29" colspan="2"> <p>【<b><font color="#FF0000">评分星级</font></b>】：
<%if rs("pingjizong")>0 and rs("pingji")>0 then
xx=rs("pingjizong")\rs("pingji")
response.write "<img src=../images/pingji/"&xx&".gif alt=评论星级>"
response.write " 共有<strong><font color=#0000FF>"&rs("pingji")&"</font></strong>位网友参与打分"
else
xx=5
response.write "<img src=../images/pingji/"&xx&".gif alt=评论星级>"
end if
%>
</p></td>
</tr>
<tr>
<td colspan="2"> <p>【<b><font color="#FF0000">商品简介</font></b>】：<%=Fomathtm(rs("Product_intro"))%></p></td>
</tr>
<tr>
<td colspan="2"> <p>【<b><font color="#FF0000">备 注</font></b>】：<%=Fomathtm(rs("Product_show"))%>
</p></td>
</tr>
<tr>
<td colspan="2"> <b><font color="#FF9900"> 网友评论</font></b> <font color="#999999">欢迎您参加对商品进行评论，发表您对此商品的感觉。</font>
<%
'网友评论/////////////////////////////////////////////////////////////////////////////////////////////////////
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_pinglun where Product_id="&Product_id&" order by pinglundate desc",conn,1,1
j=rs.recordcount
plcount=rs.recordcount
if j>3 then j=3
for i=1 to j
%>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="5%" align="right" height="22"><img src="../images/image002.gif" width="15" height="15"></td>
<td colspan="2" height="22"><b>主题：</b><a href="javascript:;" onClick="javascript:window.open('../pinglunll.asp?id=<%=rs("pinglunid")%>&Product_name=<%=Product_name%>','pinglun','width=350,height=300,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;" title="<%=trim(rs("pingluntitle"))%>"><font color="#0000FF"><%=trim(rs("pingluntitle"))%></font></a></td>
<td width="36%" height="22"><img src="../images/pingji/<%=rs("pingji")%>.gif" width="79" height="14"></td>
</tr>
<tr>
<td width="5%"> </td>
<td colspan="2"><b>作者：</b><%=trim(rs("pinglunname"))%> (<%=trim(rs("pinglundate"))%>)</td>
<td width="36%"><%=trim(rs("ip"))%></td>
</tr>
<tr>
<td width="5%"> </td>
<td colspan="3">
<%if len(rs("pingluncontent"))>24 then
response.write left(rs("pingluncontent"),20)&"... <a href=""javascript:;"" onClick=""javascript:window.open('../pinglunll.asp?id="&rs("pinglunid")&"&Product_name="&Product_name&"','pinglun','width=350,height=300,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&trim(rs("pingluntitle"))&">[详细内容]</a>"
else response.write rs("pingluncontent")
end if%>
</td>
</tr>
<%if trim(rs("huifu"))<>"" then%>
<tr>
<td width="5%"> </td>
<td width="11%"> </td>
<td colspan="2"><b><font color="#CC3333">管理员回复：</font></b><%=rs("huifu")%>
</td>
</tr>
<%end if%>
<tr background="images/bj_x1.gif">
<td height=1 colspan=4> </td>
</tr>
</table>
<%
rs.movenext
next
rs.close:set rs=nothing
if plcount>0 then
%>
<div align="right">本商品共有<%=plcount%>条评论 <a href="javascript:;" onClick="javascript:window.open('../PingLunAll.asp?Product_id=<%=Product_id%>&Product_name=<%=Product_name%>','pinglun','width=380,height=320,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;" >>><font color="#0000FF">浏览全部评论 </font></a></div>
<%end if%>
</td>
</tr>
</table>
<br> <div align="center"><a href="javascript:;" onClick="javascript:window.open('../shangpintj.asp?Product_id=<%=Product_id%>','pingluntj','width=325,height=150,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no')"><img src="../images/tj.gif" width="60" height="19" border=0></a>
<a href="javascript:;" onClick="javascript:window.open('../pinglun.asp?Product_id=<%=Product_id%>&shop_name=<%=shop_name%>&Product_name=<%=Product_name%>','pinglun','width=350,height=325,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');"><img src="../images/pl.gif" width="60" height="19" border=0></a>
</div>
<%end if%>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<%end sub%>
<%sub P_class%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="default.asp?sb=P_class">全部商品</a>-> <%=request("CatalogName")%></td>
</tr>
<tr>
<td > </td>
</tr>
<tr>
<td valign="top">
<!-- 最新商品开始-------------------------------------------------- -->
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<%
dim page
page=request("page")
PageSize = 20
CatalogID=request("CatalogID")
CatalogName=request("CatalogName")
set rs=server.createobject("adodb.recordset")
sqltext="select * from Product Where p_shop='"& shop_name &"' and Classification like '%"&CatalogID&"%' order by Product_id desc"
rs.open sqltext,conn,1,1
'/////////////////////////////////////////////////////////假如没有商品时//////////////////
If rs.eof and rs.bof then
response.write "<tr><td><p align='center'><font color='#ff0000'>暂时没有商品资料</font></p></td></tr>"
else
rs.PageSize=PageSize
totalfilm=rs.recordcount
pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.AbsolutePage=page
i=1
count=0
do while not (rs.eof or rs.bof) and count<rs.PageSize
%>
<td width="25%" valign="top"><div align="center"><a href="default.asp?sb=product&Product_id=<%=rs("Product_id")%>"><img src="<%=rs("small_pic")%>" name="small" width="80" height="82" border="0" ><br>
<font color="#0000FF"><%=rs("Product_Name")%></font><br>
</a><font color="#666666">市场价：</font><span class="main1"><strike><%=rs("P_OldPrice")%>元</strike></span><font color="#cc0000"> </font><font color="#cc0000"><br>
会员价：</font><%=rs("P_NewPrice")%>元<br>
<a href="javascript:openbag('../check.asp?cpbm=<%=rs("Product_Id")%>&shopname=<%=rs("p_shop")%>')"><img style="CURSOR: hand" height="22" src="../images/che1.gif" width="56" align="absMiddle" border="0"></a>
<BR> </div></td>
<%if i mod 4 =0 then%>
</tr>
<tr>
<%end if
i=i+1
rs.movenext
count=count+1
loop
end if
%>
</tr>
<tr>
</table>
<% if totalfilm>PageSize then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td><div align="center">
[<b><%=rs.pagecount%></b>/<%=page%>页] [共<%=totalfilm%>个]
<%if page=1 then%>
[首 页] [上一页]
<% else %>
[<a href="default.asp?sb=P_class&CatalogID=<%=CatalogID%>&CatalogName=<%=CatalogName%>&page=1">首 页</a>] [<a href="default.asp?sb=P_class&CatalogID=<%=CatalogID%>&CatalogName=<%=CatalogName%>&page=<%=page-1%>">上一页</a>]
<%end if%>
<%if rs.pagecount-page<1 then%>
[下一页] [尾 页]
<%else%>
[<a href="default.asp?sb=P_class&CatalogID=<%=CatalogID%>&CatalogName=<%=CatalogName%>&page=<%=page+1%>">下一页</a>] [<a href="default.asp?sb=P_class&CatalogID=<%=CatalogID%>&CatalogName=<%=CatalogName%>&page=<%=rs.pagecount%>">尾
页</a>]
<%
end if
%>
</div></td>
</tr>
</table>
<%end if
rs.close:set rs=nothing
%>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<%end sub%>
<%sub search%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>首页：商品搜索</td>
</tr>
<tr>
<td height="10" > </td>
</tr>
<tr>
<td valign="top">
<!-- 商品清单开始-/////////////////////////////////------------------------------------------------- -->
<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolorlight="#0099CC" bordercolordark="#FFFFFF" class=main1 height="55">
<tr bgcolor="#CCCCCC">
<td width="13%" height="23" align="center">商品编号</td>
<td width="38%" height="23" align="center">商品名称</td>
<td width="16%" height="23" align="center">会员价</td>
<td width="18%" height="23" align="center">市场价</td>
<td width="15%" height="23" align="center">购买</td>
</tr>
<%
dim page
page=request("page")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -