📄 index.asp
字号:
<!--#include file="Comm/conn.asp"-->
<!--#include file="indexconfig.asp" -->
<html>
<head>
<title><%=sitename%>-<%=siteurl%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Robots" content="index,follow">
<meta name="Abstract" content="CycooShop">
<meta name="DC.Publisher" content="Cycoo Net Studio">
<link rel="stylesheet" href="shop.css" type="text/css">
</head>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background=images/fig_background.gif>
<div align="center">
<!--#include file="TOPBAR.ASP"-->
<script language=javascript src="jsroot/openwin.js"></script>
<div align="center">
<table width="770" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr><td bgcolor="FFFBF7" align="center" valign="top" width="185">
<table width=180 border="0" cellspacing="0" cellpadding="0"><tr><td height=8></td></tr></table>
<!--#include file="loginbox.asp" -->
<table width=180 border="0" cellspacing="0" cellpadding="0"><tr><td height=8></td></tr></table>
<!--#include file="prodtree.asp" -->
<TABLE border=0 cellspacing=0 cellpadding=0 width="100%" id="table7">
<tr class=row bgcolor=#f2f2f2>
<td valign=middle align="center" height="25">
<font color="#800000">
<b>论坛对话录</b></font></td>
</tr>
<tr>
<td valign=top>
<script language=javascript src=/bbs/other/Article/topic.asp?BoardID=&Number=20&StrLen=28&NewWindow=yes></script></td>
</tr>
<tr class=row bgcolor=#f2f2f2>
<td align="center">
<span lang="en-us"> </span></td>
</tr>
</table> </td>
<td height="370" bgcolor="#CCCCCC" width="1"></td>
<td width="569" height="370" align="center" valign="top">
<table width="564" height=155 border=0 align="center" cellpadding=0 cellspacing=0 bgcolor=#fbfbfb class="new">
</table>
<table border="0" width="100%" cellspacing="1" cellpadding="0" id="table6" bgcolor="#FFBF60">
<tr>
<td>
<p align="center"><font color="#FF0000"><b>公告：</b></font></td>
<td width="491">
<p align="center"><font color="#FFFFFF">
<marquee align="bottom" scrolldelay="120" height="15" width="487"><!--#include file="comm/adsetup.asp"--></marquee></font></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 height="15" width="475" bgcolor="#FF9900"><font color="#FFFFFF">
新 品 速 递
</td>
<td width="86" height="15" align="right" bgcolor="#FF9900"> </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=569>
<%
'*****************最新商品
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="280" border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF">
<tr><td align="left" valign="top" class="yc" width="12%" rowspan="3">
<p align="center"><a href='prodshow.asp?ProdId=<%=promptprod("ProdId")%>'>
<img src='<%=promptprod("ImgPrev")%>' border=0></a></td>
<td align="left" valign="top" class="yc" width="86%" bgcolor="#DCEAF5"><a href='prodshow.asp?ProdId=<%=promptprod("ProdId")%>'>
<%=promptprod("ProdName")%></a></td>
</tr>
<tr>
<td align="left" valign="top" class="yc" width="86%" height="32"><%=left(( ProdDisc),50)%>...</td>
</tr>
<tr>
<td align="left" valign="top" class="yc" width="86%" height="14" bgcolor="#FFF3E1">市场价:<b><s><%=promptprod("PriceOrigin")%></s>元 <br></b>热卖价:<%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
%></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='12'></td></tr>"
loop
end if
set promptprod=nothing
'***********************************
%>
</tr>
</table>
<table border=0 cellpadding=0 cellspacing=0 width=569 id="table1">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="new" dwcopytype="CopyTableRow" id="table2">
<tr valign="middle">
<td height="15" width="475" bgcolor="#FF9900"><font color="#FFFFFF"> 热 销 商 品
</td>
<td width="86" height="15" align="right" bgcolor="#FF9900"> </td>
</tr>
</table></td>
</tr>
<tr>
<td background="xg_bg.gif" height="4"></td>
</tr>
</table>
<table border=0 cellpadding=2 cellspacing=0 width=564 id="table3">
<%
sqlprod = "select * from ProdMain where online=true and Remark='1' order by AddDate 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" id="table4">
<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></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">
<div align="center">
<table width="180" border="0" cellspacing="0" cellpadding="0" class="new" id="table5">
<tr valign="middle">
<td height="40">简 介：<%=left(( ProdDisc),50)%></td>
</tr>
<tr>
<td valign="bottom" width="79%">
市场价：<b><s><%=newprod("PriceOrigin")%></s> 元</b><br>
热卖价：<%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></a></td></tr>"
end if
%>
</table>
</div>
</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='12'></td></tr>"
loop
end if
set newprod=nothing
set conn=nothing
'***********************************
%>
</tr>
</table>
</td></tr>
</table>
</div>
<!--#include file="comm/lksetup.asp"-->
<!--#include file="menu/bottom.asp"-->
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -