📄 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="menu/topbar.asp"-->
<script language=javascript src="jsroot/openwin.js"></script>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" 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%">
<tr class=row bgcolor=#f2f2f2>
<td valign=top align="center"></td>
</tr>
<tr>
<td valign=top align="center"></td>
</tr>
<tr class=row bgcolor=#f2f2f2>
<td align="center">
</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">
<tr><td background="images/gonggao.jpg" width=235 height=155 valign=top>
<!--#include file="menu/gonggao.asp"-->
</td>
<td height=155 valign=top>
<table cellspacing=0 cellpadding=0 border=0 align="center" width=98%>
<%
'*************新闻板块
'判断日期是否过期，和是否设定在线！
sqlprom = "select top 9 NewsId,NewsTitle,PubDate from News where online=true and date()<OffDate and date()>=PubDate order by uup desc,Pubdate desc"
set rsnews=Server.CreateObject("ADODB.RecordSet")
rsnews.open sqlprom,conn,1,1
%>
<%
if rsnews.eof and rsnews.bof then
response.write "<tr><td height=50 align=center>最近没有促销信息</td></tr>"
else
Do while Not rsnews.eof
%><tr><td><a href="news_detail.asp?NewsId=<%=Cstr(rsnews("NewsId"))%>" target="_blank">→ <%
if len(rsnews("NewsTitle"))>15 then
response.write left(rsnews("NewsTitle"),15)&"..."
else
Response.write rsnews("NewsTitle")
end if
%>
</a></td><td align=right>[<%=rsnews("PubDate")%>]</td></tr>
<%
rsnews.movenext
loop
end if
set rsnews=nothing
'******************************
%>
</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 height="15" width="475" bgcolor="#FF9900"><font color="#FFFFFF"> 新 品 速 递</A>
</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=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></a><a href='prodshow.asp?ProdId=<%=promptprod("ProdId")%>'><br>
<%=promptprod("ProdName")%></a><br>
市场价: <b><s><%=promptprod("PriceOrigin")%></s> 元</b><br>
热卖价:
<%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><tr><td colspan='2' height='12'></td></tr>
</table>
<br>
<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"> 推 荐 产 品</A>
</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=564>
<%
'*******************************推荐商品
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">
<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">
<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>
热卖价：<%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>
</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><tr><td colspan='2' height='12'></td></tr>
</table>
<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 height="15" width="564" bgcolor="#FF9900"><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="menu/link.htm"-->
<!--#include file="menu/bottom.asp"-->
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -