📄 user.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<html>
<head>
<title><%=webname%>--我的专区</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="mt_style.css" rel="stylesheet" type="text/css">
<style>
td{font-size:9pt;line-height:120%;color:#353535}
body{font-size:9pt;line-height:120%}
a:link { color: #000000; text-decoration: none }
a:visited { color: #000000; text-decoration: none }
a:active { color: #000000; text-decoration: none }
a:hover { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!-- onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦！：）';return true">-->
<%dim dada,dadaurl,xiao1,xiao2,xiao3,xiao1url,xiao2url,xiao3url,tx1,tx1url,tx2,tx2url,tx3,tx3url
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_gg",conn,1,1
dada=trim(rs("458"))
dadaurl=trim(rs("458url"))
xiao1=trim(rs("2541"))
xiao1url=trim(rs("2541url"))
xiao2=trim(rs("2542"))
xiao2url=trim(rs("2542url"))
xiao3=trim(rs("2543"))
xiao3url=trim(rs("2543url"))
tx1=trim(rs("1441"))
tx1url=trim(rs("1441url"))
tx2=trim(rs("1442"))
tx2url=trim(rs("1442url"))
tx3=trim(rs("1443"))
tx3url=trim(rs("1443url"))
rs.close
set rs=nothing
%>
<%dim gg1,gg2,gg3,gg4,gg1url,gg2url,gg3url,gg4url
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_gg",conn,1,1
gg1=trim(rs("1601"))
gg1url=trim(rs("1601url"))
gg2=trim(rs("1602"))
gg2url=trim(rs("1602url"))
gg3=trim(rs("1603"))
gg3url=trim(rs("1603url"))
gg4=trim(rs("1604"))
gg4url=trim(rs("1604url"))
rs.close
set rs=nothing
%>
<!--#include file="webtop.asp"-->
<table width="760" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#EDECEC">
<tr>
<td width="180" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<!--#include file="searchinfo.asp"-->
<!--#include file="gouwucheinfo.asp"-->
<!--#include file="fenleiinfo.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
</td>
<td width="1" valign="top" background="images/bj_x.gif"></td>
<td width="398" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/bj_x.gif" height="1"></td>
</tr>
<tr>
<td height="22">
<div align="center">
<!--#include file="xinxi.asp"-->
</div>
</td>
</tr>
<tr>
<td background="images/bj_x.gif" height="1"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="4" align="center">
<%xAction=lcase(request("action"))
select case xAction
case "myinfo"
%>
<tr>
<td colspan="4"><font color="#009933">我的信息</font></td>
</tr>
<%
case "userziliao"
%>
<tr>
<td colspan="4"><font color="#009933">个人资料</font></td>
</tr>
<%
case "savepass"
%>
<tr>
<td colspan="4"><font color="#009933">修改密码</font></td>
</tr>
<%
case "dindan"
%>
<tr>
<td colspan="4"><font color="#009933">我的订单</font></td>
</tr>
<%
case "shoucang"
%>
<tr>
<td colspan="4"><font color="#009933">我的收藏</font></td>
</tr>
<%
case "jifen"
%>
<tr>
<td colspan="4"><font color="#009933">我的积分</font></td>
</tr>
<%
case "sqvip"
%>
<tr>
<td colspan="4"><font color="#009933">申请VIP会员</font></td>
</tr>
<%
case "viphd"
%>
<tr>
<td colspan="4"><font color="#009933">VIP 活动</font></td>
</tr>
<%
case else
%>
<tr>
<td colspan="4"><font color="#009933">推荐精品</font></td>
</tr>
<%end select%>
<tr>
<td colspan="4" height=1 background="images/bj_x.gif"></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 else
%>
<%set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_books where bestbook=1 order by bookid 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 =4 '每页记录条数
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
%>
<!--#include file="shangping_j.asp"-->
<%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%>
</div>
</td>
<td width="1" valign="top" background="images/bj_x.gif"></td>
<td width="180" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<!--#include file="userinfo1.asp"-->
<!--#include file="xiaoshouinfo.asp"-->
<!--#include file="toupiaoinfo.asp"-->
</td>
</tr>
</table>
<!--#include file="service1.asp"-->
<!--#include file="copyright.asp"-->
<div id=floater
style="Z-INDEX: 20; WIDTH: 130px; POSITION: absolute; TOP: 342px; overflow: visible;; left: 2px">
</div>
<script language=javascript src="floater.js"></script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -