您的位置：首页 → 技术开发 → ASP技巧 → 排序方式解决“上下主题”问题（三）

排序方式解决“上下主题”问题（三）

时间：2004/11/7 4:11:00来源：本站整理作者：蓝点我要评论(0)

显示：（排序)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

%>

<%

End If

If page <>RS.PageCount Then%>







<%

If Application("Ukingliu")="kingliu" Then

aaa="on"

Else

aaa="off"

End If

%>

发言

刷新

留言笔数:<%=rs.recordcount%>

总页数:<%=rs.pagecount%>

目前页次:<%=page%>

转到页

<% If page <> 1 Then Response.Write"第一页"%>

<%response.write a="" href="main.asp?txtpage="&(page" -="">

<%response.write a="" href="main.asp?txtpage="&(page">

<%Response.Write"最后一页" End If %>

精华

检索

本版斑竹：沧海为水.gif">

<%for ipage="1" to="">

.

.

.

（缩进，省略）

face=RS("A_Face")

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

%>

<%=aaa%> "><%=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

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论