<% page=request("page") Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("case1.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=guest;dbq=" & DBPath SET rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From case" , conn,1,3 rs.PageSize = 10000 '設定顯示幾個公告(預設為10) %> <%if rs.eof then Response.Write "" else id=1 for i=1 to rs.pagesize%> <% id=id+1 rs.MoveNext if rs.eof then exit for next %>
Organization E-mail Address Game Program Name Author Operator Description
無資料
<%=rs("org")%> <%=rs("email")%> <%=rs("selectgame")%> <%=rs("p_name")%> <%=rs("author")%> <%=rs("oper")%> <%=rs("descri")%>
<% end if rs.close conn.Close Set rs = Nothing Set conn = Nothing %>