📄 index.asp
字号:
<!--
┌─ 0752city.com───────────────┐
│都市购物商务平台WWW.0752city.com版权所有 │
设计:师大星星网络0752-2214669 QQ:282010981 │
└──────────────────── ┘
-->
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="webtop.asp"-->
<%if session("tmp_usersessionid")=""then
session("tmp_usersessionid")=session.sessionid
end if%>
<%if tcdy=1 then %>
<script language="javascript">
window.open('<%=tc%>','tcck','width=<%=tcw%>,height=<%=tch%>,top=0,left=0');
</script>
<%end if%>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="1" bgcolor="C9C9C8"><img src="../images/block.gif" width="1" height="1"></td>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="168" align="left" valign="top"><!--#include file="top_login.asp"--></td>
<td width="22" align="left" valign="top"><a href="about.asp?action=lxwm"><img src="images/pic_004.gif" width="23" height="136" border="0"></a></td>
<td width="586" align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<%
if d1<>"" then
response.Write "<a href="&d1url&" target=_blank><img src="&d1&" width="&d1w&" height="&d1h&" border=0></a>"
end if
if d2<>"" then
response.Write "<a href="&d2url&" target=_blank><img src="&d2&" width="&d2w&" height="&d2h&" border=0></a>"
end if
if d3<>"" then
response.Write "<a href="&d3url&" target=_blank><img src="&d3&" width="&d3w&" height="&d3h&" border=0></a>"
end if
if d4<>"" then
response.Write "<a href="&d4url&" target=_blank><img src="&d4&" width="&d4w&" height="&d4h&" border=0></a>"
end if
if d5<>"" then
response.Write "<a href="&d5url&" target=_blank><img src="&d5&" width="&d5w&" height="&d5h&" border=0></a>"
end if
if d6<>"" then
response.Write "<a href="&d6url&" target=_blank><img src="&d6&" width="&d6w&" height="&d6h&" border=0></a>"
end if
if d7<>"" then
response.Write "<a href="&d7url&" target=_blank><img src="&d7&" width="&d7w&" height="&d7h&" border=0></a>"
End if
%>
</td>
<td width="22" align="center" valign="top"><a href="about.asp?action=lxwm"><img src="images/pic_003.gif" width="23" height="136" border="0"></a>
</td>
<td width="168" align="center">
<!--#include file="top_ad.asp"-->
</td>
</tr>
</table>
</td>
</tr>
</table></td>
<td width="1" bgcolor="C9C9C8"><img src="../images/block.gif" width="1" height="1"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="1" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="168" align="center" valign="top"><font color="#FF0000">
<%if fl=0 then%>
<%else%>
</font><img src="images/pic_008.gif" width="168" height="63">
<TABLE width="98%" align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=20><table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellSpacing="0">
<tr>
<td height="23">
<%
'二次查讯大类
set rs=server.CreateObject("adodb.recordset")
rs.open "select anclass,anclassid,sztys from shop_anclass",conn,1,1
do while not rs.eof
response.write "<IMG height=9 src=images/Forum_nav.gif width=9 border=0> <A href=class.asp?lx=big&anid="&rs("anclassid")&" class=top><font color="&trim(rs("sztys"))&"><b>"&trim(rs("anclass"))&"</b></font></a> <br>"
'//查讯小类
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select nclass,nclassid,xsztys from shop_nclass where anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1
do while not rs2.eof
response.write "<A href=class.asp?lx=small&anid="&rs("anclassid")&"&nid="&rs2("nclassid")&"><font color="&trim(rs2("xsztys"))&">"&trim(rs2("nclass"))&"</font></A> "
rs2.movenext
loop
rs2.close
set rs2=nothing
response.write "<br>"
rs.movenext
'ii=ii+1
loop
rs.close
set rs=nothing%>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
<tr>
<td height="10"></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
</tr>
</table>
<font color="#FF0000">
<%end if%>
<%if vote=0 then%>
<%else%>
</font> <img src="images/pic_011.gif" width="168" height="63">
<%
set rs=conn.execute("SELECT * From shop_toupiao where IsChecked=1 ")
if rs.eof then
%>
暂无投票
<%else%>
<table border="0" width="100%" cellspacing="2" cellpadding="2">
<tr>
<td width=100% align="center"><b><br>
<%=rs("Title")%> </b><br> </td>
</tr>
<form action="vote.asp" target="newwindow" method=post name=research>
<tr>
<td valign=top width="100%">
<%
for i=1 to 8
if rs("Select"&i)<>"" then
%>
<input style="border: 0" <%if i=1 then%>checked<%end if%> name=Options type=radio value=<%=i%>>
<%=i%>.<%=rs("Select"&i)%><br>
<%
end if
next
%>
</td>
</tr>
<tr>
<td width="100%" height=30 align=center> <input name="Submit4" type="submit" class="go-wenbenkuang" value="投票">
<a href="search.asp">
<input name="Submit33" type="button" class="go-wenbenkuang" value="投票结果" onClick="window.location='vote.asp?stype=view'">
</a></td>
</tr>
</form>
</table>
<%end if%>
<%end if%>
<br>
<font color="#FF0000">
<%if links=0 then%><%else%>
</font><img src="images/pic_015.gif" width="168" height="63">
<table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height=25 align="center">
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_imagelinks order by linkidorder",conn,1,1
do while not rs.EOF
response.Write " <a href="&trim(rs("linkurl"))&" target=_blank><img src="&trim(rs("imagelinks"))&" border=0></a><br>"
rs.MoveNext
loop
rs.Close
set rs=nothing
%>
</td>
</tr>
</table><%end if%> </td>
<td width="1" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
<td valign="top" a> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="436" align="left" valign="top"><a href="class.asp?lx=news"><img src="images/pic_009.gif" alt="全部最新上架" width="436" height="63" border="0"></a>
<table width="100%" height="250" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" height="110" align='center' cellspacing='5'>
<tr>
<td align='center' valign='top'> <table border=0 cellpadding=0 cellspacing=0 width=100%>
<tr>
<%
set rs=server.createobject("adodb.recordset")
i=0
MaxShangpinList=4
rs.open "select * from shop_snsn where newsshop=1 order by shopid desc",conn,1,1
%>
<%
do while not rs.eof
i=i+1
%>
<td align=center valign=middle><table width="100" height="100" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle" background="images/picbj.gif">
<a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>>
<%if rs("shoppic")="" then
response.write "<div align=center><a href=list.asp?id="&rs("shopid")&" ><img src=images/emptyshop.gif width=85 height=85 border=0></a></div>"
else
response.write "<img src="&rs("shoppic")&" alt="&rs("shopname")&" width=85 height=85 border=0>"
end if%></a></td>
</tr>
</table></td>
<%
if (i mod (MaxShangpinList/4)=0) and i>=(MaxShangpinList/4) then
%>
<%
end if
if i>=MaxShangpinList then exit do
rs.movenext
loop
%>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
</tr>
</table>
<TABLE height=125 cellSpacing=0 cellPadding=0 width=430 border=0>
<TBODY>
<TR vAlign=top>
<TD><SPAN id=icefable1>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD align=middle height=125> <table width=98% height="125" border=0 align="center" cellpadding=3 cellspacing=0>
<%
i=0
MaxList=3
set rs=server.createobject("adodb.recordset")
rs.open "select top 3 * from shop_snsn where bestshop=1 order by sx desc",conn,1,1
%>
<%
do while not rs.eof
i=i+1
%>
<tr>
<td width=30%> <div align="center">
<table width="120" height="120" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" background="images/musicbj.gif">
<a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>>
<%if rs("shoppic")="" then
response.write "<div align=center><a href=list.asp?id="&rs("shopid")&" ><img src=images/emptyshop.gif width=85 height=85 border=0></a></div>"
else
response.write "<img src="&rs("shoppic")&" alt="&rs("shopname")&" width=85 height=85 border=0>"
end if%></a></td>
</tr>
</table>
</div></td>
<td width=70% valign=middle> <table width="300" height="110" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>><font color="#3366CC">
<%if len(trim(rs("shopname")))>20 then
response.write left(trim(rs("shopname")),20)&""
else
response.write trim(rs("shopname"))
end if%>
</font></a><br> <s><font color="#FF0000">市场价：<%=rs("shichangjia")%>元</font></s>
<font color="#FF0000">会员价：<%=rs("huiyuanjia")%>元
VIP 价：<%=rs("Vipjia")%>元 </font><br>
<a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>><font color="#3366CC">
<%if len(trim(rs("shopcontent")))>60 then
response.write left(trim(rs("shopcontent")),60)&""
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -