📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="fuction.asp"--><!--#include file="webtop.asp"-->
<%if tcdy=1 then %>
<script language="javascript">
window.open('<%=tc%>','tcck','width=<%=tcw%>,height=<%=tch%>,top=0,left=0');
</script>
<%end if%>
<html>
<head>
<title><%=webname%>--首页</title>
<bgsound src="adminn/midi/<%=musicurl%>" loop="-1">
<link rel="SHORTCUT ICON" href="/shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin=0 topmargin=0 marginwidth="0" marginheight="0" title="<%if session("username")="" then%>亲爱的游客你好：<%else%><%=session("username")%>你好：<%end if%>如有意见请拨<%=dianhua%>">
<table width="940" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="17"><img src="/img/index_1.gif" width="15" height="16"></td>
<td width="402" valign="bottom"><span class="sm_debrown">您现在的位置是：<a href="<%=weburl%>"><%=webname%></a> -> 首页 </span></td>
<td width="521" valign="bottom"><MARQUEE onmouseover=this.stop(); onmouseout=this.start(); scrollAmount=3 scrollDelay=80 width=500>
<font color="#ff0000"><span class="bulletin_td"><%=gonggao%></span></font></MARQUEE></td>
</tr>
<tr>
<td height="6" colspan="3"></td>
</tr>
</table>
<table width="945" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="200"><div align="center"><a href="/help.asp"><img src="/img/bnr_crm.gif" width="180" height="53" border="0"></a>
<table width="180" border="0" cellpadding="0" cellspacing="0" background="img/lf_bg.gif">
<tr>
<td><img src="/img/lf_img_top.gif" width="180" height="9"></td>
</tr>
<tr>
<td><img src="/img/lf_tl_directgo.gif" width="180" height="40" border="0" usemap="#derectgo"></td>
</tr>
<tr>
<td><img src="/img/lf_directgo_boxtop.gif" width="180" height="8"></td>
</tr>
<tr>
<td background="/img/lf_directgo_boxbg.gif" width="180" height="23">
<table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
<%set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from shop_text order by linkidorder",conn,1,1
i=rs3.recordcount%><%if rs3.eof and rs3.bof then
response.write "<tr><td>还没有数据，请添加！</td></tr>"
else
do while not rs3.eof%><tr>
<td height="23" width="15" align="right"><img src="/img/ic_bluearrow.gif" width="2" height="4"></td>
<td class="lf_diectgo1"><a href="<%=trim(rs3("link"))%>" <%if rs3("tc")=1 then%>target="_blank"<%else%><%end if%>> <font color="<%=trim(rs3("textys"))%>"> <%=trim(rs3("text"))%></font></a></td>
</tr>
<tr>
<td height="1" colspan="2" class="td_margin1" align="center"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
</tr> <%rs3.movenext
loop
end if
rs3.close
set rs3=nothing%>
</table>
</td>
</tr>
<tr>
<td><img src="/img/lf_directgo_boxbottom.gif" width="180" height="6"></td>
</tr>
</table>
<map name="derectgo" id="derectgo">
<area shape="rect" coords="136,19,170,32" href="#" alt="MORE">
</map>
</div></td>
<td valign="top"><table width="558" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="10"></td>
</tr>
</table> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="760"><div 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
%>
</div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%if login=1 then%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="center"> <strong> 热门：</strong>
<%
set rs=server.createobject("adodb.recordset")
sql="SELECT top 10 shopname,count(*) as num FROM shop_his WHERE lx=2 GROUP BY shopname "
if rs.state=1 then rs.close
rs.open sql,conn,1,1
while not rs.eof
rdname=rs(0)%>
<a href="/research.asp?searchkey=<%=rdname%>&anclassid=0" class=link_redblank><%=rdname%></a>
<%
rs.movenext
wend
%></td>
</tr>
</table>
<%end if%> <%
set avirs=server.CreateObject("adodb.recordset")
avisql="select top 1 * from shop_snsn where newsshop=1 order by shopid desc"
avirs.open avisql,conn,1,1
if avirs.recordcount>0 then
%> <table width="539" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="177" height="110" rowspan="5" align="center"> <a href=list.asp?id=<%=avirs("shopid")%> <%if avirs("sftc")="" then%><%else%> target=<%=avirs("sftc")%><%end if%>> </a>
<a href=list.asp?id=<%=avirs("shopid")%> <%if avirs("sftc")="" then%><%else%> target=<%=avirs("sftc")%><%end if%>>
<%if avirs("shoppic")="" then
response.write "<div align=center><a href=list.asp?id="&avirs("shopid")&"><img src=img/emptyshop.gif border=0></a></div>"
else
response.write "<img src="&avirs("zhuang")&" border=0>"
end if%>
</a></td>
<td height="20" colspan="2"> <span class="style2"><%=avirs("mch")%>：<strong><a href=list.asp?id=<%=avirs("shopid")%> <%if avirs("sftc")="" then%><%else%> target=<%=avirs("sftc")%><%end if%>><%=avirs("shopname")%></a></strong></span></td>
</tr>
<tr>
<td height="20" colspan="2"> <span class="style2"></span><%=avirs("gj")%>：
<%
sorts2=avirs("gjz")
sorts2=trim(sorts2)
if sorts2<>"" then
bsort2=split(sorts2,",")
for i=0 to ubound(bsort2)
bsortb2=bsort2(i)
bsortb2=trim(bsortb2)
response.write "<a href=research.asp?action=2&searchkey="&bsortb2&"><u>"&bsortb2&"</u></a> "
next
end if%>
<%if avirs("pingjizong")>0 and avirs("pingji")>0 then
xx=avirs("pingjizong")\avirs("pingji")
else
xx=5
end if
response.write "<img src=img/pingji/"&xx&".gif alt=评论星级>"%></td>
</tr>
<tr>
<td height="20" colspan="2"> 所属类别：
<%set rs2=server.createobject("adodb.recordset")
rs2.open "select * from shop_anclass where anclassid="&avirs("anclassid"),conn,1,1
if rs2.recordcount>0 then
response.write "<a href=class.asp?lx=big&anid="&rs2("anclassid")&" targer=_blank>"&rs2("anclass")&"</a> > "
end if
rs2.close
set rs2=server.createobject("adodb.recordset")
rs2.open "select * from shop_nclass where nclassid="&avirs("nclassid"),conn,1,1
if rs2.recordcount>0 then
response.write "<a href=class.asp?lx=small&anid="&rs2("anclassid")&"&nid="&rs2("nclassid")&" targer=_blank>"&rs2("nclass")&"</a> > "
end if
rs2.close
if avirs("xclassid")=0 then
response.write "无子类"
else
set rs2=server.createobject("adodb.recordset")
rs2.open "select * from shop_xclass where id="&avirs("xclassid"),conn,1,1
if rs2.recordcount>0 then
response.write "<a href=class.asp?lx=snsn&anid="&rs2("anclassid")&"&nid="&rs2("nclassid")&"&xid="&rs2("id")&" targer=_blank>"&rs2("xclass")&"</a>"
end if
rs2.close
set rs2=nothing
end if%></td>
</tr>
<tr>
<td width="11" height="20" valign="top"> </td>
<td width="351" valign="top"><a href=list.asp?id=<%=avirs("shopid")%> <%if avirs("sftc")="" then%><%else%> target=<%=avirs("sftc")%><%end if%>>
<%if len(trim(htmltotext(avirs("shopcontent"))))>220 then
response.write left(trim(htmltotext(avirs("shopcontent"))),220)&"...."
else
response.write trim(htmltotext(avirs("shopcontent")))
end if%>
</a></td>
</tr>
</table><%
end if
avirs.close
set avirs=nothing
%></td>
</tr>
</table></td>
<td width="200" valign="top"><!--#include file="cart.asp"-->
<map name="notiMap" id="noti2">
<area shape="rect" coords="151,11,185,25" href="gouwu.asp?action=show&lx=1">
</map> <table width="188" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="ffffff">
<tr>
<td height="10"></td>
</tr>
<tr>
<td><img src="/img/rg_tl_noti.gif" width="188" height="37" border="0" usemap="#noti"></td>
</tr>
<tr>
<td align="center" valign="top">
<table width="172" border="0" cellspacing="0" cellpadding="0" class="rg_noti">
<%set rs5=server.CreateObject("adodb.recordset")
rs5.open "select top 6 shopid,shopname,chengjiaocount from shop_snsn where newsshop=1 order by adddate desc",conn,1,1%>
<%i=0
do while not rs5.eof%> <tr>
<td height='24' > <%response.write " <a href=../list.asp?id="&rs5("shopid")&" title=此商品已成功销售"&rs5("chengjiaocount")&"次><font color="&flxshph&">"
if len(trim(rs5("shopname")))>14 then
response.write left(trim(rs5("shopname")),14)&""
else
response.write trim(rs5("shopname"))
end if
response.write "</font></a><br>"
%></td>
</tr>
<tr>
<td height="1" background="/img/skin<%=cssid%>/x.gif"></td>
</tr> <%i=i+1
if i>=8 then exit do
rs5.movenext
loop
rs5.close
set rs5=nothing%>
</table>
</td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td></td>
</tr>
</table>
<map name="noti" id="noti">
<area shape="rect" coords="151,11,185,25" href="/class.asp?lx=news">
</map></td>
</tr>
</table>
<table width="945" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="200" align="center" valign="top"><font color="#FF0000"><%if session("username")<>"" then%></font>
<table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif" class="sm_gray">
<tr>
<td height="12"></td>
</tr>
<tr>
<td><img src="img/lf_tl_best11.gif" width="180" height="40"></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
<%set rsl=server.createobject("adodb.recordset")
rsl.open "select * from shop_his where username='"&nosql(session("username"))&"' and lx=1 order by ltime desc",conn,1,1
while not rsl.eof%>
<tr>
<td height="22"> <img src="img/go.gif" width="15" height="15"><a href='list.asp?id=<%=rsl("shopid")%>' target=_blank>
<%if len(trim(rsl("shopname")))>11 then
response.write left(trim(rsl("shopname")),11)&".."
else
response.write trim(rsl("shopname"))
end if%>
</a></td>
</tr>
<tr>
<td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
</tr>
<%rsl.movenext
wend
rsl.close
%>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif" class="sm_gray">
<tr>
<td height="12"></td>
</tr>
<tr>
<td><img src="img/lf_tl_best12.gif" width="180" height="40"></td>
</tr>
<tr>
<td> </td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -