📄 vip.asp
字号:
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>
<%
rsg.movenext
wend
%>
</table>
<%
end if
rsg.close
set rsg=nothing
%></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_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>
</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="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
<%set rss=server.createobject("adodb.recordset")
rss.open "select * from shop_his where username='"&nosql(session("username"))&"' and lx=2 order by ltime desc",conn,1,1
while not rss.eof%>
<tr>
<td height="22"> <img src="img/image002.gif" width="15" height="15">
<%if len(trim(rss("shopname")))>21 then
response.write left(trim(rss("shopname")),21)&".."
else
response.write trim(rss("shopname"))
end if%>
</td>
</tr>
<tr>
<td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
</tr>
<%rss.movenext
wend
rss.close
set rss=nothing%>
</table></td>
</tr>
</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_best13.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="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><%
if request("anid")<>"" then
set rs4=conn.execute("SELECT * From shop_toupiao where classid='" & nosql(request("anid")) & "' and IsChecked=1 ")
else
set rs4=conn.execute("SELECT * From shop_toupiao where classid=0 and IsChecked=1 ")
end if
if rs4.eof then
%>
暂无投票
<%else%>
<table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table border="0" width="100%" cellspacing="2" cellpadding="2">
<tr>
<td width=100% align="center"><b> <%=rs4("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 rs4("Select"&i)<>"" then
%>
<input style="border: 0" <%if i=1 then%>checked<%end if%> name=Options type=radio value=<%=i%>>
<%=i%>.<%=rs4("Select"&i)%><br>
<%
end if
next
%>
</td>
</tr>
<tr>
<td width="100%" height=25 align=center><input type="image" border="0" name="submit22" src="/img/vote1.gif" width="59" height="19" style="cursor:hand">
<a href="javascript:;" onClick="javascript:window.open('vote.asp?stype=view&id=<%=request("anid")%>','','width=410,height=300,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;" target="_blank"><img src="/img/vote.gif" width="59" height="19" border="0"></a></td>
</tr>
</form>
</table></td>
</tr>
</table>
<%end if%></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<div align="center"><img src="/img/lf_img_bt.gif" width="180" height="9"></div></td>
<td valign="top"><table width="558" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="558" colspan="3"><img src="/img/cen_tl_recomm.gif" width="558" height="53" border="0" usemap="#recomm"></td>
</tr>
<tr>
<td width="19"></td>
<td width="520" bordercolor="#CCCCCC">
<%set rsclass=server.CreateObject("adodb.recordset")
rsclass.Open "select * from shop_config",conn,1,1
class2=rsclass("class")
class2=trim(class2)
if class2<>"" then
bsort2=split(class2,",")
for i=0 to ubound(bsort2)
classname=bsort2(i)
%>
<%if fl=1 then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><span class="fontglow"><b><font
color=#ff6600><b> <img src="img/top1.gif" width="12" height="13">
<%set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_anclass where anclassid="&classname&"",conn,1,1
do while not rs2.eof
response.write "<A href=class.asp?lx=big&anid="&classname&"><font color="&trim(rs2("sztys"))&">"&trim(rs2("anclass"))&"</font></A> "
rs2.movenext
loop
rs2.close
set rs2=nothing
%>
</b></font></b></span>>
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_nclass where anclassid="&classname&" order by nclassidorder",conn,1,1
do while not rs2.eof
response.write "<A href=class.asp?lx=small&anid="&classname&"&nid="&rs2("nclassid")&"><font color="&trim(rs2("xsztys"))&">"&trim(rs2("nclass"))&"</font></A> | "
rs2.movenext
loop
rs2.close
set rs2=nothing
%></td>
</tr>
</table>
<%end if%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="0">
<%
set rsx=server.createobject("adodb.recordset")
rsx.open "select Top 2 * from shop_snsn where anclassid="&classname&" and vip=1 order by adddate desc",conn,1,1
if rsx.recordcount=0 then
response.write "<tr><td> 此分类暂无商品，正待添加!</td></tr>"
else
%>
<tr>
<%
while not rsx.eof%>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="170" height="7"></td>
</tr>
</table>
<a href=list.asp?id=<%=rsx("shopid")%> <%if rsx("sftc")="" then%><%else%> target=<%=rsx("sftc")%><%end if%>> </a>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="90"><a href=list.asp?id=<%=rsx("shopid")%> <%if rsx("sftc")="" then%><%else%> target=<%=rsx("sftc")%><%end if%>>
<%if rsx("shoppic")="" then
response.write "<div align=center><a href=list.asp?id="&rsx("shopid")&" ><img src=img/emptyshop.gif width=85 height=85 border=0></a></div>"
else
response.write "<img src="&rsx("shoppic")&" width="&upload13&" height="&upload14&" border=0>"
end if%>
</a></td>
<td><span class="style2"><strong><a href=list.asp?id=<%=rsx("shopid")%> <%if rsx("sftc")="" then%><%else%> target=<%=rsx("sftc")%><%end if%>><%=rsx("shopname")%></a></strong></span><br>
<span class="style2">【市场价】<s><%=formatnumber(rsx("shichangjia"),2)%>元</s></span><br>
<span class="style2">【会员价】<%=formatnumber(rsx("huiyuanjia"),2)%>元</span><br>
<a href="gouwu.asp?id=<%=rsx("shopid")%>&action=add"><img src="img/gm.gif" border="0"></a> <a href="shoucang.asp?id=<%=rsx("shopid")%>&action=add"><img src="img/sc.gif" border="0"></a></td>
</tr>
</table></td>
<%
rsx.movenext
wend
%>
</tr>
<%
end if
rsx.close
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="12"></td>
</tr>
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td height="12"></td>
</tr>
</table>
<%next
end if
rsclass.Close
set rsclass=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -