<%=SiteTitle %>-留言中心

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% response.charset="utf-8" %> <%=SiteTitle %>-留言中心

	服務咨詢

<% =WebMenu()%>

	信息搜索

<%=SearchForm()%>

	首頁留言反饋查看留言


	<%=ContentList()%>

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

	查看留言
	簽寫留言
	我的留言

" 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_Message" dim datawhere'數據條件 datawhere="where ViewFlag " 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 "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.movenext wend else response.write "

"&GuestSex(rs("MemID"),rs("Sex"))&"
"&rs("Linkman")&"

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf MessageReply rs("MemID"),rs("MesName"),rs("SecretFlag"),rs("ReplyTime"),rs("ReplyContent") Response.Write "

"&rs("MesName")&"	"&rs("AddTime")&"

" & vbCrLf MessageContent rs("MemID"),rs("SecretFlag"),HtmlStrReplace(rs("Content")) Response.Write "

" & vbCrLf Response.Write "

暫無相關信息

" 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 function GuestSex(MemID,Sex) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Ameav_Members where ID="&MemID rs.open sql,conn,1,1 if rs.bof and rs.eof then if Sex="女士" then GuestSex="" if Sex="先生" then GuestSex="" else if Sex="女士" then GuestSex="" if Sex="先生" then GuestSex="" end if rs.close set rs=nothing end function function MessageContent(MemID,SecretFlag,Content) if SecretFlag then dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Ameav_Members where ID="&MemID rs.open sql,conn,1,1 if rs("MemName")=session("MemName") and session("MemLogin")="Succeed" then Response.Write Content else Response.Write "悄悄話" end if rs.close set rs=nothing else Response.Write Content end if end function function MessageReply(MemID,MesName,SecretFlag,ReplyTime,ReplyContent) if ReplyContent<>"" then Response.Write "" & vbCrLf Response.Write "

" & vbCrLf Response.Write "

"&ReplyTime&"" & vbCrLf Response.Write "" & vbCrLf if SecretFlag then dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Ameav_Members where ID="&MemID rs.open sql,conn,1,1 if rs("MemName")=session("MemName") and session("MemLogin")="Succeed" then Response.Write "" & vbCrLf Response.Write ""&HtmlStrReplace(ReplyContent)&"" & vbCrLf Response.Write "" & vbCrLf else Response.Write "" & vbCrLf Response.Write "悄悄話回復，登錄后查看" & vbCrLf Response.Write "" & vbCrLf end if rs.close set rs=nothing else Response.Write "" & vbCrLf Response.Write ""&HtmlStrReplace(ReplyContent)&"" & vbCrLf Response.Write "" & vbCrLf end if end if end function %>