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 NQ order by op desc" page_n ="faq.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 %>
<%=rs(1)%>

答:<%=rs(2)%>


<% 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 %>