<% Response.Write " " response.write "" Set conn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") conn.Open application("Conn") sql = "select * from EMEDIA where 1 = 1" & par & " order by ONDATE desc" rs.Open sql, conn, 1, 1 rs.pagesize =10 page=CLng(request("page")) if page="" then page=1 if page > rs.pagecount then page=rs.pagecount if page <= 0 then page=1 if rs.pagecount <= 0 then response.Write "" else response.write "" & vbCrLf rs.absolutepage=page for p=1 to rs.pagesize if rs.eof then exit for response.write " " & vbCrLf if rs("detail")<>"" then response.write " " & vbCrLf elseif rs("url")<>"" then response.write " " & vbCrLf else response.write " " & vbCrLf end if response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " rs.movenext next end if rs.close response.write " 目前無媒體報導！ " & vbCrLf response.write "第 " for p = 1 to rs.pagecount response.write "" & p next response.write " 頁 " response.write "，總共" & rs.recordcount & " 筆，每頁" & rs.pagesize & "筆" response.write " "& rs("title") &" ( "& rs("ONDATE") &" ) "& rs("title") &" ( "& rs("ONDATE") &" ) "& rs("title") &" ( "& rs("ONDATE") &" ) " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " "& replace(rs("desc"),vbCrLf," ") &" " & vbCrLf response.write " " response.write " " %>

© 2002 All Rights Reserved.