📄 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">
<link rel="stylesheet" href="cycoo15.css" type="text/css">
</head>
<body bgcolor="#333366" background="images/bggreen.gif" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
<!--#include file="menu/indextop.asp" -->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<script language=javascript src="jsroot/openwin.js"></script>
<tr>
<td bgcolor="#FFFFFF" height="1" width="760"></td>
</tr>
<tr>
<td height="1" width="760"></td>
</tr>
<tr>
<td width="760">
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" class="aq">
<tr>
<td bgcolor="FFFBF7" align="center" valign="top" width="185">
<table width="90%" border="0" cellspacing="0" cellpadding="0"><tr><td height=8></td></tr></table>
<!--#include file="loginbox.asp" -->
<table width="90%" border="0" cellspacing="0" cellpadding="0"><tr><td height=8></td></tr></table>
<!--#include file="prodtree.asp" -->
</td>
<td height="370" bgcolor="#CCCCCC" width="1"></td>
<td height="370" valign="top" align="center">
<br>
<table cellspacing=0 cellpadding=0 width=566 bgcolor=#fbfbfb border=0 class="new" align="center">
<tbody><tr><td colspan=3 height=5></td></tr>
<tr>
<td width=278 valign=top> <img src="adv/down_adv.jpg" alt="广告" width="287" height="144" border="0">
<table cellspacing=0 cellpadding=0 border=0 align="center" width=98%>
</table>
</td>
<td width=278 valign=top>
<table cellspacing=0 cellpadding=0 border=0 align="center" width=98%>
<%
'*************新闻板块
'判断日期是否过期，和是否设定在线！
sqlprom = "select top 6 NewsId,NewsTitle,PubDate from News where online=true and date()<OffDate and date()>=PubDate and NewsClass='促销信息'"
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>
<tr><td colspan=3 height=10></td></tr>
</tbody>
</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="1" class="new" dwcopytype="CopyTableRow">
<tr valign="middle">
<td height="24" width="475"><img src="images/top_01.gif" width="151" height="15">
</td>
<td width="86" height="24" align="right"> </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
response.write "<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>
设计评价:良好</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
response.write "</tr><tr><td colspan='2' height='12'></td></tr>"
set promptprod=nothing
'***********************************
%>
</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="1" class="new" dwcopytype="CopyTableRow">
<tr valign="middle">
<td height="24" width="475"><img src="images/top_02.gif" width="151" height="15">
</td>
<td width="86" height="24" align="right"> </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
response.write "<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>
<%=newprod("Model")%></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%">报价:
<%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
response.write "</tr><tr><td colspan='2' height='12'></td></tr>"
set newprod=nothing
set conn=nothing
'***********************************
%>
</table>
<img src="images/table_01.gif" width="564" height="30">
<TABLE width="100%" height="300" border=0 cellPadding=2 cellSpacing=2 bgcolor="#FFFFFF" class="new">
<TR>
<TD width="560" 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>
</td></tr>
<tr>
<td width="760" bgcolor="#ccccd4" class="new"> </td>
</tr>
<tr>
<td width="760" height="9"> </td>
</tr>
</table>
<!--#include file="menu/bottom.asp"-->
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -