📄 index.asp
字号:
<%
'=========================================
'
' 凡人网络购物系统V4.0免费版
' FreeDown.Net info@freedown.net
' www.freedown.net
' 版权所有·免费版仅供研究测试只用
' 商业使用请购买正版
'
'=========================================
%>
<!--#include file="top.asp"-->
<div align="center">
<center>
<table width="778" border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="181" valign="top">
<!--#include file="log.asp"-->
<!--#include file="gg.asp"-->
<!--#include file="insearch.asp"-->
<!--#include file="insort.asp"-->
</td>
<td valign="top">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr><td align="center" height="5"></td></tr>
<tr>
<td width="100%" align="center"><%set ad=server.CreateObject("adodb.recordset")
sql="select * from logo "
ad.open sql,conn,1,1
if ad.eof or ad.bof then
response.write "暂且没有广告"
end if
%><a href="<%=ad("url")%>"target="_blank"><img src="<%=ad("banner")%>" width="395" height="118" border="0"></a></td>
</tr>
</table>
</center>
</div>
<table width="95%" border="0" cellspacing="0" cellpadding="0" height="60" align="center">
<tr><td align="center" height="5"></td></tr>
<tr>
<td><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="151" id="AutoNumber1" height="20" background="img/fu.gif">
<tr>
<td align="center" width="82"><b>精品推荐</b></td>
<td align="center"> </td>
</tr>
</table>
</td></tr>
<tr>
<%
sql="select top 10 * from hw where tuijian=-1 order by hw_id DESC"
rs.open sql,conn,3,3
if rs.eof then
%>
<td valign="top" align="left" bgcolor="#FFFFFF"><div align="center">
暂且没有推荐商品<br>
</div></td>
<%end if
i=0
do while not rs.eof
i=i+1
%>
<td align="left" bgcolor="#FFFFFF">
<table width="200" border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td valign="bottom" align="center" height="20"><b><%=rs("hw_name")%></b></td>
</tr>
<tr>
<td align="center">
<a target="_blank" href="views.asp?hw_id=<%=rs("hw_id")%>">
<img border="0" src="<%=rs("hw_pic")%>" width="114" height="83" vspace="6"></a></td>
</tr>
<tr>
<td align="center">会员价:<%=rs("hw_cash")%>元</td>
</tr>
<tr>
<td valign="top" align="center">
<a target="_blank" href="views.asp?hw_id=<%=rs("hw_id")%>">详情</a>
<a href='javascript:openbag(<%=rs("hw_id")%>)'>定购<img border="0" src="img/order.gif"></a></td>
</tr>
</table>
</td>
<%
if (i mod 2=0) and i>=2 then
%>
</tr>
<tr>
<%
end if
if i>=10 then exit do end if
rs.movenext
loop
rs.close
%>
</tr>
</table>
</td>
<td width="180" valign="top">
<!--#include file="innews.asp"-->
<!--#include file="ph.asp"-->
<!--#include file="link.asp"-->
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="100%" align="center"> </td>
</tr>
<tr>
<td width="100%" align="center" height="120" bgcolor="#F5EFE7"><SCRIPT LANGUAGE="JavaScript1.1" SRC="http://duduad2.kisswin.com/main/adview.php?user=24|159&border=0&db=dudukisswin&log=yes"></SCRIPT></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
<!--#include file="copy.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -