討論區

<% @ LANGUAGE=VBScript CODEPAGE=950 %> <% sql = "select * from titledata Order By times DESC" sqlT = "select count(*) as totalC from titledata" Set oc = Server.CreateObject("ADODB.Connection") oc.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("board.mdb") set rs = server.createobject("ADODB.recordset") rs.open sql,oc,3,3 set rsT = server.createobject("ADODB.recordset") rsT.open sqlT,oc,3,3 totalC = rsT.fields("totalC").value rs.pagesize = 25 '每頁25頁，為孝指定 page = rs.pagecount if request.form("pg") = "" then pgcount = 1 else pgcount = request.form("pg") end if rs.absolutepage = pgcount nowC = totalC - (pgcount - 1) * 25 %> 討論區

	窈窕有來頭
	窈窕百寶箱
	窈窕夢成真
	窈窕纖活事
	窈窕答客問
	窈窕會員區
	窈窕私房話
	窈窕討論區
	奇摩討論區
	食物熱量表
	廣告與合作
	回首頁

目前您正在第 <% response.write pgcount %> 頁總共有 <% response.write page %> 頁前往第頁

<% line = 1 do until (rs.eof or line > 25) na = rs.fields("names").value su = rs.fields("subjects").value ti = rs.fields("times").value pe = rs.fields("peoplelook").value re = rs.fields("responsesubjects").value %> <% nowC = nowC - 1 line = line + 1 rs.MoveNext Loop %>

編號	討　　論　　主　　題	作　者	回應數	人氣	發　表　時　間
<% response.write nowC %>	<% response.write su %>	<% response.write na %>	<% response.write re %>	<% response.write pe %>	<% response.write ti %>

發起新問題

診所地址：台北市復興南路二段8號2樓(木柵線大安捷運站旁)地圖參考　預約電話：(02)2709-6458

服務時間：周一 ~ 周六(上午九點 ~ 下午一點、下午四點 ~ 晚上九點三十)　