一是无法反应一些随更新的信息。
加设现为一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 sub'apage_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 sub'apage_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 i1'as 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
%>
|
