显示：（排序)main.asp

--------部分，未经优化处理-------

<%

Const adOpenStatic = 3

Const adLockPessimistic = 2

Set conn = Server.CreateObject("ADODB.Connection")

Set RS = Server.CreateObject("ADODB.Recordset")

DBPath=Server.MapPath("../fpdb/massege.mdb")

conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq="& DBPath

SQLcmd="Select * From MASSEGE Order By A_OrderID Desc"

RS.Open SQLcmd,conn,adOpenStatic,adLockPessimistic

page = CLng(Request("txtpage"))

RS.PageSize = 30

If Page < 1 Then Page = 1

If page > RS.PageCount Then page = RS.PageCount

RS.AbsolutePage = page

%>

<%For ipage = 1 To RS.PageSize%>

.

.

.

（缩进，省略）

face=RS("A_Face")

mmm=gif&""&face&".gif"

%>

<%=aaa%> " target="rbottom"><%=Server.HTMLEncode(RS("A_Subject"))%> <% If RS("A_Text")="" Then Response.Write"<无内容>" End If %> {ID:<%=RS("A_ID")%>}【<%=RS("A_Name")%>ID:<%=RS("A_NID")%>】<<%=RS("A_Time")%>>『点击：<%=RS("A_Times")%>』

<%

RS.MoveNext

If RS.EOF Then Exit For

Next

RS.Close

conn.Close