1樓：匿名使用者
dim maxperpage 定義每頁幾條記錄的變數。
maxperpage=10
dim text,checkpage
text="0123456789" 為了檢測獲得的頁數是否數字，個人意見，愚蠢至極，完全可用isnumeric()函式來代替。
每頁記錄數。
for i=1 to len(request("page"))逐字檢測獲取值是否數字。
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then 如果不是數字，退出檢測。
exit for
end if
next if checkpage<>0 then 不等於0說明是頁數是有效數字。
if not isempty(request("page"))then 還得不能是空值。
currentpage=cint(request("page"))字元型別轉換成整數型別，其實應該用clng()，不然超出範圍會出錯。
if currentpage < 1 then currentpage = 1 如果獲得的頁數小於1，使頁數等於1
if currentpage > then currentpage = 如果獲得的頁數大於最大可能頁數，使頁數等於最大可能頁數。
else currentpage= 1 request("page")為空的情況下給頁數變數一個值（1）
end if
if not then = currentpage end if 如果記錄數不為空，讀取當前頁面的記錄。
else currentpage=1
end if
call list 大概是顯示記錄列表的子函式。
if > maxperpage then
end if
sub list()%
2樓：匿名使用者
dim maxperpage
maxperpage=10
dim text,checkpage
text="0123456789"
for i=1 to len(request("page"))
'迴圈開始 從1到 request("page") 的長度。
checkpage=instr(1,text,mid(request("page"),i,1))
'中間mid(request("page"),i,1)表示從第i個字元取request("page")中的一個字元。
'instr(1,text,..在上面那步的基礎上檢查取出來那個字元是否包含在text裡。
if checkpage=0 then
exit for
'如果檢查失敗 退出迴圈。
end if
next if checkpage<>0 then
if not isempty(request("page"))then
'如果request("page")不為空，執行下面的語句。
currentpage=cint(request("page"))
'給currentpage賦值 這裡的currentpage就是頁碼。
if currentpage < 1 then currentpage = 1
'如果頁碼小於1，頁碼重定為1
if currentpage > then currentpage =
'如果頁碼大於 總數，則頁碼重定為總數。
else currentpage= 1
'(接上一個if) 否則， 頁碼重定為1
end if
if not then = currentpage end if
else currentpage=1
end if
call list
if > maxperpage then
end if
sub list()%
3樓：匿名使用者
dim maxperpage //宣告變數maxperpage
maxperpage=10 //初始化maxperpage為10
dim text,checkpage //同上。
text="0123456789"
每頁記錄為10
for i=1 to len(request("page"))for迴圈從1到form中的page引數。
checkpage=instr(1,text,mid(request("page"),i,1)) 依次取得request("page")字串中每一位的值，並返回這個值在字串0123456789中第一次出現的位置。
if checkpage=0 then
exit for
end if //如果返回的值為0則退出for迴圈。
next if checkpage<>0 then //如果返回的值不為0
if not isempty(request("page"))then //如果page引數不為空。
currentpage=cint(request("page"))request("page")的值轉換成數字並負值給currentpage
if currentpage < 1 then currentpage = 1
if currentpage > then currentpage = currentpage不能大於總頁數。
else currentpage= 1
end if
if not then = currentpage end if //如果資料庫中指標沒有越界則當前頁碼為currentpage
else currentpage=1
end if
call list //list過程。
if > maxperpage then //如果取得的記錄數大於10
end if
sub list()%
求一段彙編的解釋，求一段彙編的解釋
push eax 入棧 push edi 入棧 push ecx 入棧，這裡的三句是為了保護暫存器的資料 mov al,byte ptr esp 0x8 0xc 取一個位元組的資料到al mov edi,dword ptr esp 0x4 0xc 取一個buffer的地址 mov ecx,dword...
誰能為我解釋。。。誰能為我解釋這一段話？
像在國外讀書的話 他們有些專門有一年時間給學生自由發揮 可以遊玩或找工作 叫 gap year 這就比較科學 工作經歷可以從這一年時間內獲得。寬鬆的大學學習環境，必須的社會實踐分數，不知道你在上學的時候都去做什麼了？但是機會肯定比沒上過大學的要多得多吧！誰能為我解釋這一段話？30 愚見 內心力量可以...
一段的好段，加上的評價，一段70字的好段，加上50字的評價。
喬治.桑的 冬天之美 當太陽撥開雲霧，當它在嚴冬傍晚披上閃爍發光的紫紅色長袍墜落時，人們幾乎無法忍受它那令人眩目的光芒。即使在我們嚴寒卻偏偏不恰當地稱為溫帶的國家裡，自然界萬物永遠不會除掉盛裝和失去盎然的生機，廣闊的麥田鋪上了鮮豔的地毯，而天際低矮的太陽在上面投下了綠寶石的光輝。地面披上了美麗的苔蘚...