<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% response.charset="utf-8" %> " /> " /> 欧美日韩国产在线播放,国产一二三精品,欧美色另类天堂2015

色诱久久av_亚洲一卡二卡三卡四卡无卡麻豆_国产成人综合久久亚洲精品_免费大黄网站

<% if not (session("MemName")<>"" and session("MemLogin")="Succeed") then response.redirect "MemberCenter.asp" response.end end if %>

	會員中心

<% =WebMenu()%>

	信息搜索

<%=SearchForm()%>

	首頁會員中心我的訂單


	<%=ContentList()%>

<% function WebMenu() response.write"" response.write "" &_ "" response.write "" &_ "" response.write "" &_ "" response.write "" &_ "" response.write "" &_ "" response.write"

	我的資料
	我的留言
	我的訂單
	我的應聘
	退出登錄

" end function function MemID(MemName) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Ameav_Members where MemName='"&MemName&"'" rs.open sql,conn,1,1 MemID=rs("ID") rs.close set rs=nothing end function function ContentList() dim SortPath SortPath=request.QueryString("SortPath") dim idCount'記錄總數 dim pages'每頁條數 pages=8 dim pagec'總頁數 dim page'頁碼 page=clng(request("Page")) dim pagenc'每頁顯示的分頁頁碼數量=pagenc*2+1 pagenc=2 dim pagenmax'每頁顯示的分頁的最大頁碼 dim pagenmin'每頁顯示的分頁的最小頁碼 dim datafrom'數據表名 datafrom="Ameav_Order" dim datawhere'數據條件 datawhere="where MemID="&MemID(session("MemName"))&" " dim sqlid'本頁需要用到的id dim Myself,PATH_INFO,QUERY_STRING'本頁地址和參數 PATH_INFO = request.servervariables("PATH_INFO") QUERY_STRING = request.ServerVariables("QUERY_STRING")' if QUERY_STRING = "" then Myself = PATH_INFO & "?" elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then Myself= PATH_INFO & "?" & QUERY_STRING & "&" else Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1) end if dim taxis'排序的語句 asc,desc taxis="order by id desc " dim i'用于循環的整數 dim rs,sql'sql語句 '獲取記錄總數 sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 idCount=rs("idCount") '獲取記錄總數 if(idcount>0) then'如果記錄總數=0,則不處理 if(idcount mod pages=0)then'如果記錄總數除以每頁條數有余數,則=記錄總數/每頁條數+1 pagec=int(idcount/pages)'獲取總頁數 else pagec=int(idcount/pages)+1'獲取總頁數 end if '獲取本頁需要用到的id============================================ '讀取所有記錄的id數值,因為只有id所以速度很快 sql="select id from ["& datafrom &"] " & datawhere & taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 rs.pagesize = pages '每頁顯示記錄數 if page < 1 then page = 1 if page > pagec then page = pagec if pagec > 0 then rs.absolutepage = page for i=1 to rs.pagesize if rs.eof then exit for if(i=1)then sqlid=rs("id") else sqlid=sqlid &","&rs("id") end if rs.movenext next '獲取本頁需要用到的id結束============================================ end if Response.Write "" if(idcount>0 and sqlid<>"") then'如果記錄總數=0,則不處理 '用in刷選本頁所語言的數據,僅讀取本頁所需的數據,所以速度快 sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 while not rs.eof '填充數據到表格 Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.movenext wend else response.write "


產品名稱："&rs("ProductName")&"	訂購時間："&rs("AddTime")&"
聯系人："&rs("Linkman")&"	回復時間："&rs("ReplyTime")&"



暫無相關信息

" exit function end if Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "共計："&idcount&"條記錄頁次："&page&"/"&pagec&" 每頁："&pages&"條 " & vbCrLf pagenmin=page-pagenc '計算頁碼開始值 pagenmax=page+pagenc '計算頁碼結束值 if(pagenmin<1) then pagenmin=1 '如果頁碼開始值小于1則=1 if(page>1) then response.write ("9 ") '如果頁碼大于1則顯示(第一頁) if(pagenmin>1) then response.write ("7 ") '如果頁碼開始值大于1則顯示(更前) if(pagenmax>pagec) then pagenmax=pagec '如果頁碼結束值大于總頁數,則=總頁數 for i = pagenmin to pagenmax'循環輸出頁碼 if(i=page) then response.write (" "& i &" ") else response.write ("["& i &"]") end if next if(pagenmax8 ") '如果頁碼結束值小于總頁數則顯示(更后) if(page:") '如果頁碼小于總頁數則顯示(最后頁) Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.close set rs=nothing end function %> 色诱久久av_亚洲一卡二卡三卡四卡无卡麻豆_国产成人综合久久亚洲精品_免费大黄网站