<%Set Rs=Server.CreateObject("adodb.recordset") Rs.Open "Select * from shop_anclass order by anclassidorder",conn,1,1 %>
<% Action=Trim(Request("Action")) Select Case Action Case "MyInfo" Response.Write "我 的 信 息" Case "MyZiliao" Response.Write "个 人 资 料" Case "MyPW" response.Write "修 改 密 码" Case "MyDindan" Response.Write "我 的 订 单" Case "MyJifen" Response.Write "我 的 积 分" Case "MyVIP" Response.Write "申 请 VIP" Case "MyShoucang" Response.Write "我 的 收 藏" Case else Response.Write "推 荐 精 品" End Select %>
 
<% Action=Trim(Request("Action")) Select Case Action Case "MyInfo" Call MyInfo() Case "MyZiliao" Call MyZiliao() Case "MyPW" Call MyPW() Case "MyDindan" Call MyDindan() Case "MyJifen" Call MyJifen() Case "MyVIP" Call MyVIP() Case "viphd" Call viphd() Case "MyShoucang" Call MyShoucang() 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 %>
暂无商品
<% else rs.PageSize =6 '每页记录条数 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 %> <% rs.movenext next call PageControl(iCount,maxpage,page,"border=0 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("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("
" & vbCrLf ) Response.Write(font_style & vbCrLf ) if page<=1 then Response.Write ("首页 " & vbCrLf) Response.Write ("上页 " & vbCrLf) else Response.Write("首页 " & vbCrLf) Response.Write("上页 " & vbCrLf) end if if page>=pagecount then Response.Write ("下页 " & vbCrLf) Response.Write ("尾页 " & vbCrLf) else Response.Write("下页 " & vbCrLf) Response.Write("尾页 " & vbCrLf) end if Response.Write(" 页次:" & page & "/" & pageCount & "页" & vbCrLf) Response.Write(" 共有" & iCount & "种商品" & vbCrLf) Response.Write(" 转到" & "" & "页" & vbCrLf & "") Response.Write("
" & vbCrLf ) End Sub End Select %>

<% CloseConn() %>