📄 user.asp
字号:
<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>
<map name="derectgo" id="derectgo">
<area shape="rect" coords="136,19,170,32" href="#" alt="MORE">
</map></td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><a href="user.asp?action=myinfo"><img src="img/user/user1.gif" alt="我的相关信息" width="60" height="60" border="0"></a><a href="user.asp?action=userziliao"><img src="img/user/user2.gif" alt="我的个人资料" width="60" height="60" border="0"></a><a href="user.asp?action=savepass"><img src="img/user/user4.gif" alt="你要修改密码吗？" width="60" height="60" border="0"></a><a href="user.asp?action=dindan"><img src="img/user/user3.gif" alt="查询所有订单" width="60" height="60" border="0"></a><a href="user.asp?action=shoucang"><img src="img/user/user5.gif" alt="我的收藏架" width="60" height="60" border="0"></a><a href="user.asp?action=jifen"><img src="img/user/user6.gif" alt="我的现有积分情况" width="60" height="60" border="0"></a><a href="user.asp?action=myshhr"><img src="img/user/user7.gif" alt="我的收货联系人管理" width="60" height="60" border="0"></a><a href="user.asp?action=viphd"><img src="img/user/user8.gif" alt="最近VIP相关活动" width="60" height="60" border="0"></a><a href="vipdyj.asp?action=vipsq"><img src="img/user/user9.gif" alt="VIP最新大赢家" width="60" height="60" border="0"></a><a href="user.asp?action=sqvip"><img src="img/user/user10.gif" alt="你要申请VIP吗？" width="60" height="60" border="0"></a><a href="user.asp?action=syh"><img src="img/user/user11.gif" alt="我所加入的商友会详细情况" width="60" height="60" border="0"></a><a href="bbs/mysms.asp?menu=write"><img src="img/user/user12.gif" alt="发送短信给站内其它好友" width="60" height="60" border="0"></a></div></td>
</tr>
</table>
<br>
<!--#include file=user_inc.asp-->
<%xAction=lcase(request("action"))
select case xAction
case "myinfo"
call myinfo()
case "userziliao"
call userziliao()
case "savepass"
call savepass()
case "dindan"
call dindan()
case "shoucang"
call shoucang()
case "jifen"
call jifen()
case "viphd"
call viphd()
case "sqvip"
call sqvip()
case "vipsq"
call vipsq()
case "myshhr"
call myshhr()
case "syh"
call syh()
case else
%>
<%set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_snsn where bestshop=1 order by shopid desc",conn,1,1
if rs.recordcount=0 then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td align=center>暂无推荐精品</td>
</tr>
</table>
<%
else
rs.PageSize =flsl '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x
%>
<table width="100%" border="0" cellspacing="0" cellpadding="2" align="center">
<tr>
<td rowspan="4" valign="top" class="table-xia">
<%if rs("shoppic")="" then %>
<table width="100" height="100" border="1" align="center" cellpadding="0" cellspacing="5" bordercolor="#FFFFFF">
<tr>
<td bordercolor="<%=flshpbj%>">
<div align="center"><a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>><img src=img/emptyshop.gif alt=<%=trim(rs("shopname"))%> width=85 height="85" border=0></a></div></td>
</tr>
</table>
<%else%>
<div align="center">
<table width="110" height="110" border="1" align="center" cellpadding="0" cellspacing="5" bordercolor="#FFFFFF">
<tr>
<td bordercolor="<%=flshpbj%>">
<div align="center">
<table width="100" height="100" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="img/picbj.gif"><div align="center"><a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>><img src="<%=trim(rs("shoppic"))%>" alt=<%=trim(rs("shopname"))%> width=80 height="80" border=0></a></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<%end if%>
</div></td>
<td><a href=list.asp?id=<%=rs("shopid")%>><%=trim(rs("shopname"))%></a></td>
</tr>
<tr>
<td>市场价：<s><%=trim(rs("shichangjia"))%>元</s> <font color="#FF6600">会员价：<%=trim(rs("huiyuanjia"))%>元</font> VIP价：<%=trim(rs("vipjia"))%>元 </td>
</tr>
<tr>
<td><a href="gouwu.asp?id=<%=rs("shopid")%>&action=add"><img src="img/gm.gif" width="32" height="17" border="0"></a> <a href="shoucang.asp?id=<%=rs("shopid")%>&action=add"><img src="img/sc.gif" width="32" height="17" border="0"></a> <a href="about.asp?action=jtcg"><img src="img/tg.gif" width="32" height="17" border="0"></a> <a href="#" onClick="javascript:window.open('shangpintj.asp?id=<%=request("id")%>','pingluntj','width=325,height=200,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no')"><img src="img/tj.gif" width="32" height="17" border="0"></a></td>
</tr>
<tr>
<td class="table-xia">
<%if len(trim(rs("shopcontent")))>120 then
response.write left(trim(rs("shopcontent")),120)&"...."
else
response.write trim(rs("shopcontent"))
end if%>
</td>
</tr>
</table>
<%rs.movenext
next
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
end if
rs.close
set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("<table " & Table_style & ">" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
Response.Write("<TD align=right>" & vbCrLf )
Response.Write(font_style & vbCrLf )
if page<=1 then
Response.Write ("首页 " & vbCrLf)
Response.Write ("上页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
end if
if page>=pagecount then
Response.Write ("下页 " & vbCrLf)
Response.Write ("尾页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)
end if
Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf)
Response.Write(" 共有" & iCount & "种商品" & vbCrLf)
Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page SIZE=1 Maxlength=5 VALUE=" & page & ">" & "页" & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=b2>")
Response.Write("</TD>" & vbCrLf )
Response.Write("</TR></form>" & vbCrLf )
Response.Write("</table>" & vbCrLf )
End Sub
end select%></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -