?? user.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<%if request.cookies("shopzhiwang")("username")="" then
response.write "<script language=javascript>alert('您還沒有登陸，請登陸！');window.location.href='default.asp';</script>"
response.End
end if
%>
<head>
<title><%=webname%>--用戶中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="webtop.asp" -->
<table width="770" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#EDECEC">
<tr>
<td width="178" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<!--#include file="info_user1.asp"-->
</td>
<td width="1" valign="top" background="images/bj_x.gif"></td>
<td width="590" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> <div align="center">
<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 "mydata"
%>
<tr>
<td colspan="4"><font color="#009933">個人資料</font></td>
</tr>
<%
case "savepass"
%>
<tr>
<td colspan="4"><font color="#009933">修改密碼</font></td>
</tr>
<%
case "myorder"
%>
<tr>
<td colspan="4"><font color="#009933">我的訂單</font></td>
</tr>
<%
case "favorites"
%>
<tr>
<td colspan="4"><font color="#009933">我的收藏</font></td>
</tr>
<%
case "point"
%>
<tr>
<td colspan="4"><font color="#009933">我的積分</font></td>
</tr>
<%
case "sqvip"
%>
<tr>
<td colspan="4"><font color="#009933">申請VIP會員</font></td>
</tr>
<%
case "activity"
%>
<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%>
</table>
<br><!--#include file=user_inc.asp-->
<%xAction=lcase(request("action"))
select case xAction
case "myinfo"
call myinfo()
case "mydata"
call mydata()
case "savepass"
call savepass()
case "myorder"
call myorder()
case "favorites"
call favorites()
case "point"
call point()
case "activity"
call activity()
case "sqvip"
call sqvip()
case else
%>
<%set rs=server.createobject("adodb.recordset")
rs.open "select * from sh_chanpin 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 '每頁記錄條數(shù)
iCount=rs.RecordCount '記錄總數(shù)
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="info_prime.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>
</tr>
</table>
<!--#include file="webfoot.asp"-->
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -