We ship to ChinaTaiwanSingaporeJapanRepublic of Korea Click here to order accept: 简体   |    繁體   |   English

顧客感想及意見

<% //Set Conn = Server.CreateObject("ADODB.Connection") // Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/shop.mdb") // Conn.Open() // Set rs=conn.Execute("SELECT * FROM news") // %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/shop.mdb") Conn.Open() // page = clng(request("page")) page = 1 request.querystring("page") sId = Trim(Request.QueryString("page")) If IsNumeric(sId) Then page = CLng(sId) Else Response.Write sId End If // if not isempty(request("page")) then // page=cint(request("page")) // else // page=1 // end if set rs = server.CreateObject("adodb.recordset") sql = "SELECT * FROM message where Re_message_title <> NULL order by Message_time desc" page_n ="feedback.asp" num = 5 rs.Open sql,conn,1,1 if rs.eof or rs.bof then response.Write "没有查询到纪录!" else rs.pagesize = num pages = rs.pagecount if page <= 0 then page = 1 if page > pages then page = pages rs.AbsolutePage = page end if for i =1 to rs.pagesize %> <% if (rs(6) <> "") then %> 姓名:<%=rs(5)%>
感想/意見:<%=rs(2)%>

意高詩飛:<%=rs(7)%>


<% end if %> <% rs.movenext if rs.eof then exit for next %>

<% if page < 2 then response.Write "首页 上一页 " else response.Write "首页 " response.Write "上一页 " end if if pages - page < 1 then response.Write "下一页 尾页" else response.Write "" response.Write "下一页尾页" end if %>
<% response.Write " 页次: "&page&" /"&rs.pagecount&"页" response.Write " 共"&rs.recordcount&" 条记录" response.Write "

" //response.Write(SId) %>

<% rs.Close Set rs=Nothing %> <% Conn.Close() Set Conn = nothing %>