📄 index.asp
字号:
newno=newno+1
if newno=8 then
exit do
end if
rsnews.movenext
loop
end if
set rsnews=nothing
'******************************
%>
<tr><td align=right colspan="2"><a href=news_home.asp title='查看全部新闻'><img border=0 src=images/more.gif></td></tr>
</table>
</td>
</tr>
</table>
<table border=0 cellpadding=0 cellspacing=0 width=569>
<tr>
<td background="images/xg_bg.gif" height="4" colspan="2"></td>
</tr>
<tr>
<td colspan="2">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="new" dwcopytype="CopyTableRow">
<tr valign="middle">
<td bgcolor=<%=bjcolor%> height="25" width="475" ><font color="#FFFFFF"> 新 品 速 递</A>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="images/xg_bg.gif" height="4" colspan="2"></td>
</tr>
</table>
<table border=0 cellpadding=2 cellspacing=0 width=564>
<%
'*****************最新商品
sqlprod = "select * from ProdMain where online=true order by AddDate desc"
set promptprod=Server.CreateObject("ADODB.Recordset")
promptprod.open sqlprod,conn,1,1
if promptprod.bof and promptprod.eof then
response.write "<table width=100% border=0 cellspacing=1 cellpadding=2 bgcolor=#FFFFFF height=150><tr><td align=center>您好！目前商城的商品架暂时没有 <b>"&SubLar&SubMid&"</b> 商品</td></tr>"
else
k=1
Do While Not promptprod.eof
%>
<tr>
<%
for i=1 to prompt_row step 1
ProdDisc=promptprod("ProdDisc")
if ProdDisc<>"" then ProdDisc=Autolink(ProdDisc)
k=k+1
%>
<td align="center">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF">
<tr><td align="left" valign="top" class="yc" width=25%><a href='prodshow.asp?ProdId=<%=promptprod("ProdId")%>'><img src='<%=promptprod("ImgPrev")%>' width='<%=promptprod("ImgPrevWidth")%>' height='<%=promptprod("ImgPrevHeight")%>' border=0 title='点击查看该商品详情' ><br>
<%=promptprod("ProdName")%><br>
市场价: <b><s><%=promptprod("PriceOrigin")%></s> 元</b><br>
<%=remai%>:
<%if promptprod("PriceList")=0 then
response.write "<b><font color=red>备货中..</font></b>"
else
response.write "<b><font color=red>"&promptprod("PriceList")&" 元</font></b>"
end if
%>
</a>
</td>
</tr>
</table></td>
<%
promptprod.movenext
if k>prompt_num then exit do
if promptprod.eof then exit do
next
response.write "</tr><tr><td colspan='2' height='5'></td></tr>"
loop
end if
set promptprod=nothing
'***********************************
%>
</tr><tr><td colspan='2' height='5'></td></tr>
</table>
<table border=0 cellpadding=0 cellspacing=0 width=569>
<tr>
<td background="images/xg_bg.gif" height="4" colspan="2"></td>
</tr>
<tr>
<td colspan="2"> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="new" dwcopytype="CopyTableRow">
<tr valign="middle">
<td bgcolor=<%=bjcolor%> height="25" width="475" ><font color="#FFFFFF"> 热 销 商 品</A>
</td>
</tr>
</table></td>
</tr>
<tr>
<td background="images/xg_bg.gif" height="4" colspan="2"></td>
</tr>
</table>
<table border=0 cellpadding=2 cellspacing=0 width=564>
<%
sqlprod = "select * from ProdMain where online=true and Remark='1' order by AddDate desc,ClickTimes desc"
set newprod=Server.CreateObject("ADODB.Recordset")
newprod.open sqlprod,conn,1,1
if newprod.bof and newprod.eof then
response.write "<table width=100% border=0 cellspacing=1 cellpadding=2 bgcolor=#FFFFFF height=150><tr><td align=center>您好！目前商城暂无热销商品</td></tr>"
else
k=1
Do While Not newprod.eof
%>
<tr>
<%
for i=1 to newprod_row step 1
ProdDisc=newprod("ProdDisc")
if ProdDisc<>"" then ProdDisc=Autolink(ProdDisc)
k=k+1
%>
<td align="center">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF">
<tr>
<td width="50" rowspan="2" align="right" valign="top" class="yc"><a href='prodshow.asp?ProdId=<%=newprod("ProdId")%>'><img src='<%=newprod("ImgPrev")%>' width='<%=newprod("ImgPrevWidth")%>' height='<%=newprod("ImgPrevHeight")%>' border=0 title='点击查看该商品详情'></a>
</td>
<td width="175" height="17" valign="bottom" bgcolor="#DCEAF5" class="yc"><a href='prodshow.asp?ProdId=<%=newprod("ProdId")%>'>·<%=newprod("ProdName")%></a></td>
</tr>
<tr>
<td width="175" height="50" bgcolor="#F3F9FA" class="yc">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" class="new">
<tr valign="middle">
<td height="40" colspan="2">简 介：<%=ProdDisc%></td>
</tr>
<tr>
<td valign="bottom" width="79%">
市场价：<b><s><%=newprod("PriceOrigin")%></s> 元</b><br>
<%=remai%>：<%if newprod("PriceList")=0 then
response.write "<b><font color=red>请咨询客服...</font></b></td>"
else
response.write "<b><font color=red>"&newprod("PriceList")&" 元</font></b></td> <td align=center valign=bottom width=21% ><a href=# onClick=""window.open('order/add.asp?ProdId="&newprod("ProdId")&"','blank_','scrollbars=yes,resizable=no,width=650,height=450')""><img src='images/mybuy.gif' width=48 height=17 border=0 title='我要订购该商品'></a></td></tr>"
end if
%>
</table>
</td>
</tr>
</table>
</td>
<%
newprod.movenext
if k>newprod_num then exit do
if newprod.eof then exit do
next
response.write "</tr><tr><td colspan='2' height='5'></td></tr>"
loop
end if
set newprod=nothing
set conn=nothing
'***********************************
%>
</tr><tr><td colspan='2' height='5'></td></tr>
</table>
<script>
window.open ("http://www.cqpc.cn/shop/tanchu.htm", "newwindow", "height=350, width=400, top=350, left=500, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=no")
</script>
<TABLE width="564" height="15" border=0 cellPadding=0 cellSpacing=0>
<tr><td><img src=images/banner2.gif width=564 height=90></td></tr>
<tr><td background="images/xg_bg.gif" height="4"></td></tr>
<tr><td bgcolor=<%=bjcolor%> height="25" width="564" ><font color="#FFFFFF"> 留 言 信 息</TD></tr></table>
<TABLE width="100%" height="300" border=0 cellPadding=2 cellSpacing=2 class="new">
<TR><TD width="564" height="200" align="center" valign="top">
<IFRAME border=0 frameBorder=no height="300" marginHeight=0 marginWidth=0 scrolling=yes src="feedback.asp?action=iframe" width="100%"></IFRAME>
</TD></TR>
</TABLE>
</td></tr>
</table>
<!--#include file="comm/lksetup.asp"-->
<table cellspacing=1 cellpadding=0 width=760 align=center bgcolor=#FFFFFF border=0>
<tr><td bgcolor=<%=bjcolor%> height=2 colspan="6" width="754"></td></tr>
<tr>
<td height=40 align="center" valign="middle" width="126"><a href="<%=lk1_url%>" target="_blank"><img border="0" src="<%=lk1_pic%>" width="88" height="31"></a></td>
<td height=40 align="center" valign="middle" width="126"><a href="<%=lk2_url%>" target="_blank"><img border="0" src="<%=lk2_pic%>" width="88" height="31"></a></td>
<td height=40 align="center" valign="middle" width="126"><a href="<%=lk3_url%>" target="_blank"><img border="0" src="<%=lk3_pic%>" width="88" height="31"></a></td>
<td height=40 align="center" valign="middle" width="126"><a href="<%=lk4_url%>" target="_blank"><img border="0" src="<%=lk4_pic%>" width="88" height="31"></a></td>
<td height=40 align="center" valign="middle" width="126"><a href="<%=lk5_url%>" target="_blank"><img border="0" src="<%=lk5_pic%>" width="88" height="31"></a></td>
<td height=40 align="center" valign="middle" width="126"><a href="<%=lk6_url%>" target="_blank"><img border="0" src="<%=lk6_pic%>" width="88" height="31"></a></td>
</tr>
<tr>
<td height=40 align="center" valign="middle" width="126"><a href="<%=lk7_url%>" target="_blank"><img border="0" src="<%=lk7_pic%>" width="88" height="31"></a></td>
<td height=40 align="center" valign="middle" width="126"><a href="<%=lk8_url%>" target="_blank"><img border="0" src="<%=lk8_pic%>" width="88" height="31"></a></td>
<td height=40 align="center" valign="middle" width="126"><a href="<%=lk9_url%>" target="_blank"><img border="0" src="<%=lk9_pic%>" width="88" height="31"></a></td>
<td height=40 align="center" valign="middle" width="126"><a href="<%=lk10_url%>" target="_blank"><img border="0" src="<%=lk10_pic%>" width="88" height="31"></a></td>
<td height=40 align="center" valign="middle" width="126"><a href="<%=lk11_url%>" target="_blank"><img border="0" src="<%=lk11_pic%>" width="88" height="31"></a></td>
<td height=40 align="center" valign="middle" width="126"><a href="<%=lk12_url%>" target="_blank"><img border="0" src="<%=lk12_pic%>" width="88" height="31"></a></td>
</tr>
</table>
<!--#include file="menu/bottom.asp"-->
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -