We ship to ChinaTaiwanSingaporeJapanRepublic of Korea BUY NOW accept: 简体   |    繁體   |   English

Customers' Testimonials

<% //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 <> 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 %>
     
Name:<%=rs(4)%>
Content:<%=rs(1)%>
Ecosphere:<%=rs(6)%>


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

<% if page < 2 then response.Write "1st page Previous page " else response.Write "1st page " response.Write "
    Previous page
 " end if if pages - page < 1 then response.Write "Next page Last page" else response.Write "" response.Write "Next page
    Last page
" end if %>

<% response.Write " page no.: "&page&" /"&rs.pagecount&"page" response.Write " Total"&rs.recordcount&" testimonials" response.Write "

" //response.Write(SId) %>

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