對的不足與修正建議

來源:互聯網
上載者:User


呵呵,可以進精華區嗎?用了我一天的時間。
兩位張兄的<<在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 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
%>




相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。