|
|
|
NEWS
| Subject |
Date |
<%
'===========================
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("../db/liefco.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL= "select * from news where kind ='最新消息' and not nk='c' order by post_no desc"
rs.Open sql, conn, 3,2
'----------------------------------------------------------------
Page = CLng(Request("Page")) ' CLng 不可省略
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
if rs.eof then
Response.Write "無此資料！！ "
response.end
else
rs.absolutepage = page
while not rs.eof
j = j + 1
rs.movenext
wend
'----------------------------------------------------------------
'If page = 1 then
'response.write "搜尋到的資料共：" & j & " 個訊息"
'Else
'response.write "搜尋到的資料共：" & j + (page - 1) * 10 & " 個訊息"
'End if
'----------------------------------------------------------------
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
ShowOnePage rs, Page
%>
<%'----------------------------------------------------------------
Sub ShowOnePage( rs, Page )
rs.MoveFirst
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
RecNo = (Page - 1) * rs.PageSize + iPage
%>
| |
<% post_date=left(rs("post_date"),10)
if Mid(post_date,10,10)="上" or Mid(post_date,10,10)="下" then%>
<%=left(rs("post_date"),9)%>
<% else %>
<%=left(rs("post_date"),10)%>
<% end if%> |
<%
rs.MoveNext
If rs.EOF Then Exit For
Next
%>
|
|
| |
| |
<%
If Page <> 1 Then
Response.Write "  "
Response.Write "  "
End If
If Page <> rs.PageCount Then
Response.Write "  "
Response.Write "  "
End If
%>
|
|
<%
End Sub
end if
%>
|
|
|
|
