IDC资讯中心
对<<在asp中改善动态分页的性能>>的不足与修正建议
呵呵，可以进精华区吗？用了我一天的时间。
两位张兄的<<在asp中改善动态分页的性能>>一文给我很大的启发，在此表示感谢，但在我想来还是有一些不足的地方。
一是无法反应一些随更新的信息。
加设现为一bbs，那么随时更新的信息有
每个贴子的点击
新加贴子的信息，这些在两位张兄兄的方案中无法自动更新，只有用户在更改查询时才能使用。
二是内存使用太多，事实上对于一个论坛来讲，大多数人还是按顺序来访问的，没有必要每个人一个session。
三是处理数据时不方便
只能用数组的方式来进行，不直观，可读性差。
对于以上几点，我提出如下改进方案
一 使用application， 可做到多人共同使用同一数据
二 只存入和取出id号，其它数据做第二次select
三 自动删除过时的application 以节约内存.
四 在添加和删除数据时，重新导入数据
其它好处
呵呵，可以使用getstring()了，原来分页时不行的
可以不用1，3了，
代码如下
a_page.asp
—————————————————————–
<%
dim apage_pagesize 每页记录数
dim apage_count 总计记录数
dim apage_pagecount 总页数
dim apage_pageform 跳页用的form
dim apage_pageurl 上一页下一页的链接
dim apage_timeout 过期时间设置（秒）
apage_timeout=300 过期时间设置（秒）
apage_pagesize=20
function apage_bactive (str_name) 判断是否有这个对象，并删除过期对象
apage_bactive=false
dim item, s_temp
for item=1 to application.contents.count 找出所有的application
s_temp=application.contents(item)
if isarray (s_temp) then
if ubound(s_temp)=3 and s_temp(0)="apage" then
if s_temp(1)=str_name then
apage_bactive=true 要求对象存在
else
if datediff("s",s_temp(2),now())>apage_timeout then 删除过其对象
application.contents.remove(item)
end if
end if
end if
end if
next
end function b_inuser
sub apage_open (str_name , str_table, str_id, str_sqlend) 打开对象并计算一些数据
对象名， 表名， 关键字名， 查询条件
dim a1, a_ob
if not apage_bactive (str_name) then 如对象不存在则新建一对象
apage_load str_name, str_table, str_id, str_sqlend
end if
a1=application (str_name)
a1(2)=now()
application.lock
application (str_name)=a1
application.unlock
a_ob=a1(3)
apage_count=ubound(a_ob,2)+1
apage_pagecount=int(apage_count/apage_pagesize)+1
end subapage_open
function apage_get (str_name, page) 得到本页的所有id号
dim a1, a_ob, i_stat, i_end, i1, str_actionurl , str_query , str_1, str_2
以下为保证page是正确的
page=cint (page)
if page <1 then page=1
if page >apage_pagecount then page=apage_pagecount
得到id号
apage_get=""
a1=application (str_name)
a_ob=a1(3)
i_stat=(page-1)* apage_pagesize
i_end=page* apage_pagesize-1
if i_end>(apage_count-1) then
i_end=apage_count-1
end if
for i1=i_stat to i_end
apage_get=apage_get & a_ob(0,i1) & ","
next
去掉多余的","号
if len(apage_get) > 0 then
apage_get=left (apage_get, len(apage_get)-1)
end if
以下为得到用户换页信息
str_actionurl = "http://" & request.servervariables("http_host") & request.servervariables("script_name")
str_query=request.servervariables("query_string")
str_1=split (str_query, "&")
str_query=""
for i1=0 to ubound (str_1)
if left (str_1(i1), 5) <> "page=" then
response.write left (str_1(i1), 5) & "<br>"
str_query=str_query&str_1(i1) & "&"
end if
next
str_2=str_actionurl & "?"&str_query
if page>1 then
apage_pageurl="<a href=" &str_2 & "page=1" &">首页</a> " & _
"<a href="&str_2 & "page="&(page-1) &">前页</a> "
else
apage_pageurl="首页 前页"
end if
if page<apage_pagecount then
apage_pageurl=apage_pageurl& "<a href="&str_2 & "page="&(page+1) &">后页</a> " & _
"<a href="&str_2 & "page="&apage_pagecount&">尾页</a>"
else
apage_pageurl=apage_pageurl& "后页 尾页"
end if
apage_pageform="<table><form method=get name=page onsubmit=document.location =""" & str_2 &"page=""+this.page.value;return false;>"&_
"<tr><td>转到第<input type=text name=page value="&page&">页"&_
"<input type=submit style=font-size: 9pt value=go></table>"
end function
sub apage_load (str_name, str_table, str_id, str_sqlend) 新建或重新导入一对象
sql="select " & str_id & " from " & str_table & str_sqlend
set rs=conn.execute (sql)
dim a2 (3)
a2(0)="apage"
a2(1)=str_name
a2(2)=now()
a2(3)=rs.getrows()
application.lock
application (str_name)=a2
application.unlock
end subapage_load
sub apage_update(str_name , str_table, str_id, str_sqlend) 更新数据时使用
if apage_bactive (str_name) then 如对象存在则重新导入对象
apage_load str_name, str_table, str_id, str_sqlend
end if
end sub
%>
附：test.asp
———————————————————————-
<!–#include file="conn.asp" –>
<!–#include file="a_page.asp" –>
<%
建表
create table page
(page_id int not null identity (1, 1),
page_value int not null,
class_id int not null
)
sub add_test 加入测试用数据
dim i1as int
for i1=0 to 1000
sql="insert into page (page_value, class_id) values (" & i1 &",1)"
conn.execute sql
next
for i1=0 to 1000
sql="insert into page (page_value, class_id) values (" & i1 &",2)"
conn.execute sql
next
apage_update "test", "page" , "page_id" , ""
apage_update "test1", "page" , "page_id" , " where class_id=1"
end sub add_test
add_test 要加入时去掉
dim str_test
apage_open "test", "page" , "page_id" , ""
apage_open "test1", "page" , "page_id" , " where class_id=1"
str_test =apage_get ("test" ,request("page"))
str_test= apage_get ("test1" ,request("page"))
sql="select * from page where page_id in(" & str_test & ")"
set rs=conn.execute (sql)
response.write response.write "<table border=1><tr><td>" & rs.getstring (2,,"<td>", "<tr><td>") & "</table>"
或可
while not rs.eof
response.write "<a href=hahafish.asp?id=" & rs("page_id") & ">" & rs("page_value") & "</a><br>"
rs.movenext
wend
response.write apage_pageurl
response.write apage_pageform
%>
