<% strRegion=Request("region") set rsMSG=server.CreateObject("adodb.recordset") if Request("region")="" or Request("region")="general" then strSQL="SELECT * FROM msgboard where flowID=0 and (del_by='' or del_by is null) ORDER BY datetime desc" else strSQL="SELECT * FROM msgboard where flowID=0 and (del_by='' or del_by is null) and region='"& Request("region") &"' ORDER BY datetime desc" end if 'response.Write(strsql) rsMSG.Open strSQL,dcnDB,3,1 iRecordNo=0 rsMSG.Pagesize=10 iPageCount=rsMsg.Pagecount iRecordCount=rsMsg.RecordCount SELECT CASE Request("ChangePage") CASE "" rsMsg.AbsolutePage=1 Session("absPage")=1 CASE "FirstPage" rsMsg.AbsolutePage=1 Session("absPage")=1 CASE "PreviousPage" IF Session("absPage")="" OR Session("absPage")<=1 THEN rsMsg.AbsolutePage=1 Session("absPage")=1 ELSE Session("absPage")=Session("absPage")-1 rsMsg.AbsolutePage=Session("absPage") END IF CASE "NextPage" IF Session("absPage")

首页 >> 客户服务 >> 用户论坛 管理员登录: 用户名 密  码     <% select case strregion case "shandong" %> <% case else %> <% end select %> 第 <% =Session("absPage") %> 页　共 <% =iPageCount %> 页　发言总数：<%=iRecordCount%> <% DO UNTIL rsMSG.EOF or iRecordNo>=10 iRecordNo=iRecordNo+1 %> <% strSQL="SELECT * FROM msgboard where flowID="& rsMsg("ID")&" and (del_by='' or del_by is null) ORDER BY datetime desc" SET rsASK=dcnDB.Execute (strSQL) DO UNTIL rsASK.EOF %> <% rsAsk.movenext Loop %>   <% =rsMsg("CorpName")%>   <% =rsMsg("Contract")%>   <% =rsMsg("Area")%>   <% =rsMsg("Datetime")%>  问题 : <% =rsMsg("Message")%>   <% =rsAsk("Contract")%> 的解答   <% =rsAsk("Datetime")%>   <% =rsAsk("Message")%> <% rsMsg.movenext Loop %>     <% select case strregion case "shandong" %> <% case else %> <% end select %> 第 <% =Session("absPage") %> 页　共 <% =iPageCount %> 页　发言总数：<%=iRecordCount%>