📄 index.asp
字号:
<!--#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%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="159"><!--#include file="top_login.asp"--></td>
<td width="23" 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="582" align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><img src="images/adad.jpg" width="396" height="136" border="0" usemap="#Map"> </td>
<td width="22" align="center" valign="top"><img src="images/pic_003.gif" width="23" height="136" border="0"> </td>
<td width="168" align="center">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_text order by linkidorder",conn,1,1
dim i
i=rs.recordcount%>
<table width="155" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<%if rs.eof and rs.bof then
response.write "还没有数据，请添加！"
else
do while not rs.eof%>
<tr>
<td height="20"><img src="images/top4.gif" width="12" height="13">
<a href="<%=trim(rs("link"))%>" <%if rs("tc")=1 then%> target="_blank"
<%else%>
<%end if%>>
<font color="<%=trim(rs("textys"))%>"><%=trim(rs("text"))%></font></a></td>
</tr>
<%rs.movenext
loop
end if
rs.close
set rs=nothing%>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#CCCCCC"><img height=1 src="images/block.gif" width=1></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 valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="168" height="430" align="center" valign="top"><p><img src="images/pic_008.gif" width="168" height="63"> </p>
<table width="90%" height="20" 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">
<tr>
<td bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
</tr>
</table>
<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 width="100%" border="0" cellspacing="2" cellpadding="2">
<form action="vote.asp" target="newwindow" method=post name=research>
<tr>
<td><div align="center"><%=rs("Title")%> </div></td>
</tr>
<tr>
<td><%
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 height="38"><div align="center">
<input name="Submit4" type="submit" id="Submit4" value="提交">
<input name="Submit33" type="button" value="投票结果" onClick="window.location='vote.asp?stype=view'">
</div></td>
</tr> </form>
</table>
<p>
<% end If %>
<img src="images/pic_015.gif" width="168" height="63"></p>
<table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%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> </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">
<table width="100%" height="196" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="34"><a href="class.asp?lx=news"><img src="images/pic_009.gif" alt="商品最新推荐" width="436" height="63" border="0"></a></td>
</tr>
<tr>
<td height="41"><table border=0 cellpadding=0 cellspacing=3 width=100%>
<tr>
<%
set rs=server.createobject("adodb.recordset")
i=0
MaxShangpinList=2
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="200" height="100" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100" rowspan="4" 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>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td width="100" align="center" valign="middle"><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></td>
</tr>
<tr>
<td align="center" valign="middle"><font color="#FF0000">会员价：<%=rs("huiyuanjia")%>元</font></td>
</tr>
<tr>
<td align="center" valign="middle"><font color="#FF0000">VIP价：<%=rs("Vipjia")%>元</font></td>
</tr>
</table></td>
<%
if (i mod (MaxShangpinList/2)=0) and i>=(MaxShangpinList/2) then
%>
<%
end if
if i>=MaxShangpinList then exit do
rs.movenext
loop
%>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="C9C9C8" height="1"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"> <marquee behavior="scroll" direction="up" height="120" scrolldelay="150">
<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=110 height="120" background="images/musicbj.gif"> <div align="center"><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>
</div></td>
<td width=310 valign=middle>
<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
response.write trim(rs("shopcontent"))
end if%>
</font></a></td>
</tr>
<%
if (i mod (MaxList/2)=0) and i>=(MaxList/2) then
%>
<%
end if
if i>=MaxList then exit do
rs.movenext
loop
%>
</table>
</marquee>
</td>
</tr>
</table></td>
<td width="1" bgcolor="C9C9C8"><p><img src="images/block.gif" width="1" height="1"></p></td>
<td width="184" align="center" valign="top"><p><a href="zhuanti.asp"><img src="images/pic_010.gif" alt="最新商品专题" width="170" height="63" border="0"></a>
</p>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
set rs=server.createobject("adodb.recordset")
rs.open "select Top 10 * From shop_zhuanti order by newsid desc",conn,1,1
if rs.recordcount=0 then
%>
<%else%>
<%
while not rs.eof
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -