📄 102.asp
字号:
Response.Write "<a href=default.asp?sb=P_class&CatalogID="&rs("CatalogID")&"&CatalogName="&rs("CatalogName")&">"&rs("CatalogName")&"</a>"
%>
</td>
</tr>
<%
rs.movenext
loop
rs.close:set rs=nothing
%>
</table></TD>
</TR>
</TABLE>
<div align="center">
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="33" align="center">
<%
L=Len(look_count)
i = 1
For i = i to L
num = Mid(look_count,i,1)
Display = Display & "<img src=../count/" &count_type&"/"& num & ".gif>"
Next
response.Write(Display)
%>
</td>
</tr>
</table>
</div></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=8 vAlign=top> </TD>
<TD width=594 align="center" vAlign=top>
<%
select case sb
case "lnc"
call lnc
case "newsp"
call newsp
case "bill"
call bill
case "news"
call news
case "mode"
call mode
case "help"
call help
case "news_show"
call news_show
case "product"
call product
case "P_class"
call P_class
case "search"
call search
case "word"
call word
case "word_save"
call word_save
case "book"
call book
case "send"
call send
case "pay"
call pay
case else
call indx
end select
%>
</TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="4">
<tr>
<td><div align="center"><strong><%=shop_name2%></strong>版权所有 未经许可不得转载 客服电话：<%=Phone%></div></td>
</tr>
<tr>
<td><div align="center"><a href="http://www.dns100.cn">玉龙网络提供技术支持</a></div></td>
</tr>
</table>
<!-- 定义各子程序////////////////////////////////////////////////////////////////////////////-->
<% sub indx%>
<!-- 首页-->
<TABLE width=600 border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width=440 height="323" vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width=430 align=center border=0>
<TBODY>
<TR>
<TD width=430 height=215 align="center"><%=center_pic%></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=430 align=center border=0>
<TBODY>
<TR>
<TD><IMG height=31 src="../IMAGES/mod102/new_01.gif" width=430></TD>
</TR>
<TR>
<TD vAlign=top background=../IMAGES/mod102/new_03.gif> <TABLE cellSpacing=0 cellPadding=0 width=430 border=0>
<TBODY>
<TR>
<TD width=8 height=71> </TD>
<TD width=338> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<%
set news_rs=server.createobject("adodb.recordset")
sqltext="select top 10 * from news where shop_name='"&shop_name&"'"
news_rs.open sqltext,conn,1,1
do while not (news_rs.eof or news_rs.bof)
%>
<TR bgColor=#99ccff>
<TD width="100%" bgColor=#ffffff height=1><IMG
src="../IMAGES/mod102/we3.gif" border=0> <a href="default.asp?sb=news_show&id=<%=news_rs("id")%>" son=hint alt="..<%=news_rs("n_top")%>.." style="behavior:url(../tit.htc)"><%=news_rs("n_top")%></a><IMG src="../IMAGES/mod102/new.gif"
border=0> </TD>
</TR>
<%
news_rs.movenext
loop
news_rs.close:set news_rs=nothing
%>
</TBODY>
</TABLE></TD>
<TD width=84 rowSpan=2> <DIV align=center> </DIV></TD>
</TR>
<TR>
<TD> </TD>
<TD> <DIV align=right>>><A
href="default.asp?sb=news"><FONT
color=#ff0000>更多新闻内容</FONT></A></DIV></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD><IMG height=8 src="../IMAGES/mod102/new_05.gif" width=430></TD>
</TR>
<TR>
<TD height=5></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=430 align=center border=0>
<TBODY>
<TR>
<TD><IMG height=24 src="../IMAGES/mod102/center_01.gif" width=430></TD>
</TR>
<TR>
<TD height=91><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from Product Where p_shop='"& shop_name &"' and tuijian=1 order by tjTime desc"
rs.open sqltext,conn,1,1
'/////////////////////////////////////////////////////////假如没有商品时//////////////////
If rs.eof and rs.bof then
response.write "<td><p align='center'><font color='#ff0000'><br>本店还没有推荐商品，假如你是管理员，请在后台的商品管理中设置。</font></p></td>"
else
i=1
Do While Not rs.EOF
%>
<td height="56" align="center" valign="top"><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"><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>
</td>
<%if i mod 3 =0 then%>
</tr>
<tr>
<%end if%>
<%
i=i+1
if i >= 7 then exit do
rs.MoveNext
Loop
end if
rs.close:set rs=nothing
%>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=430 align=center border=0>
<TBODY>
<TR>
<TD><IMG height=24 src="../IMAGES/mod102/center_02.gif" width=430></TD>
</TR>
<TR>
<TD height=91><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from Product Where p_shop='"& shop_name &"' order by id desc"
rs.open sqltext,conn,1,1
'/////////////////////////////////////////////////////////假如没有商品时//////////////////
If rs.eof and rs.bof then
response.write "<td><p align='center'><font color='#ff0000'>暂时没有商品资料</font></p></td>"
else
i=1
Do While Not rs.EOF
%>
<td height="56" align="center" valign="top"><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"><%=left(rs("Product_Name"),8)%></font><br>
</a><font color="#666666">市场价：</font><span class="main1"><strike><%=rs("P_OldPrice")%>元</strike></span><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>
</td>
<%if i mod 4 =0 then%>
</tr>
<tr>
<td height="20"></td>
</tr>
<tr>
<%end if%>
<%
i=i+1
if i >= 9 then exit do
rs.MoveNext
Loop
end if
rs.close:set rs=nothing
%>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=160 vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width=160 border=0>
<TBODY>
<TR>
<TD colSpan=3><IMG height=43 src="../IMAGES/mod102/rigt_01.gif"
width=160></TD>
</TR>
<TR>
<TD width=14><IMG height=189 src="../IMAGES/mod102/rigt_02.gif"
width=14></TD>
<TD vAlign=top width=131> <TABLE cellSpacing=0 cellPadding=0 width="94%" align=center
border=0>
<TBODY>
<TR>
<TD> <MARQUEE id=info onmouseover=info.stop() onmouseout=info.start() scrollAmount=2 direction=up width="100%" height=186>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select gonggao from shop where shop_name1='" &shop_name& "'"
rs.open sqltext,conn,1,1
if rs("gonggao")<>"" then
response.Write Fomathtm(rs("gonggao"))
end if
rs.close:set rs=nothing
%>
</MARQUEE></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=15><IMG height=189 src="../IMAGES/mod102/rigt_04.gif"
width=15></TD>
</TR>
<TR>
<TD colSpan=3><IMG height=13 src="../IMAGES/mod102/rigt_05.gif"
width=160></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><IMG height=34 src="../IMAGES/mod102/L_01.gif"
width=160></TD>
</TR>
</TBODY>
</TABLE>
<TABLE
style="BORDER-RIGHT: #c589ca 1px solid; BORDER-TOP: #c589ca 0px solid; BORDER-LEFT: #c589ca 1px solid; BORDER-BOTTOM: #c589ca 1px solid"
cellSpacing=0 cellPadding=0 width=160 align=center border=0>
<TBODY>
<TR>
<TD class=red
style="BORDER-RIGHT: #dedede 1px solid; BORDER-TOP: #dedede 1px solid; BORDER-LEFT: #dedede 1px solid; PADDING-TOP: 15px; BORDER-BOTTOM: #dedede 1px solid; BACKGROUND-REPEAT: no-repeat"
vAlign=top background="" bgColor=#ffffff height=120> <table width="100%" border="0" cellspacing="0" cellpadding="4">
<form action="default.asp?sb=search" method="post" name="search">
<tr>
<td align="center"> <div align="center">商品名称:
<input type='text' name='Product_Name' class=box >
</div></td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -