台灣最大程式設計社群網站
線上人數
1837
 
會員總數:246576
討論主題:190032
歡迎您免費加入會員
討論區列表 >> ASP >> [ASP]請問關於session
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
[ASP]請問關於session
價值 : 0 QP  點閱數:1049 回應數:1
樓主

天殘
初學者
83 18
74 20
發送站內信

<html><head><title>天殘專用討論板</title></head>
<body background=b.jpg>
<%
 CURPAGE = 0                              
IF REQUEST.QUERYSTRING("PAGE")<>"" THEN CURPAGE = CINT(REQUEST.QUERYSTRING("PAGE"))                              
IF REQUEST.QUERYSTRING("TOPAGE")<>"" THEN CURPAGE = CINT(REQUEST.QUERYSTRING("TOPAGE"))                              
IF CURPAGE <= 0 THEN CURPAGE = 1                              
if request("keyword") = empty then
msg " 未入於尋找之項目"    
else
if request("find") = 1 then
SET CN = SERVER.CREATEOBJECT("ADODB.CONNECTION")                              
CN.OPEN "DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)};DBQ="&SERVER.MAPPATH("bbS.MDB")                              
SET RS=SERVER.CREATEOBJECT("ADODB.RECORDSET")                      
 SQL="SELECT*FROM first where name like'%"&request("keyword")&"%' "     
 RS.OPEN SQL,CN,1,3 
elseif request("find") = 2 then
SET CN = SERVER.CREATEOBJECT("ADODB.CONNECTION")                              
CN.OPEN "DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)};DBQ="&SERVER.MAPPATH("bbS.MDB")                              
SET RS=SERVER.CREATEOBJECT("ADODB.RECORDSET")                      
 SQL="SELECT*FROM first where text like'%"&request("keyword")&"%' "     
 RS.OPEN SQL,CN,1,3 
end if
end if

IF RS.EOF THEN 
msg "無此項目"      
ELSE                              
COUNT=RS.RECORDCOUNT                              
RS.PAGESIZE=100                         
TOTALPAGE=RS.PAGECOUNT                                                     
RS.MOVEFIRST                              
IF CURPAGE > TOTALPAGE THEN CURPAGE = TOTALPAGE                              
RS.MOVE (CURPAGE-1) * 100
%>
  <p align="center"> 
<form method="geT" action="search.asp">
  <p align="center">├ <a href="p1.asp">發表新主題</a>┤ <select name="jump" onChange="location.href=this.options[this.selectedIndex].value;" value = "跳頁選單" >                                     
      <option value="search.asp">跳頁選單</option>      
      <%FOR I=1 TO RS.PAGECOUNT %> <% IF I <> CINT(PAGE) THEN %> <% IF I < 20 THEN                                       
               I = "0" & I                                      
           END IF %>                                       
      <option value="search.asp?Page=<% =I%>">跳至第<% =I %>頁<% END IF      
             NEXT %>
  </select>   『輸入關鍵字』<select name="find" value = "1" > <option value="1">作者</option> <option value="2">標題</option></select><input type="text" name="keyword" size="17"><input type="submit" value="搜尋" name="B2"></p>
<% if request("keyword") <> "" then %>
</form>
-------------------------------------------------
這是一個搜尋的程式
可是當我跳到下一頁時
就變成'未入於尋找之項目'
所以想請問
如何使用session讓它可以自動紀錄
目前查詢的'值'
跳至下一頁時,會顯示剩餘的資料

搜尋相關Tags的文章: [ session ] ,
本篇文章發表於2002-05-07 18:42
1樓
回應

路人甲
檢舉此回應
這一頁
<%
   session("A")=A
%>

下一頁
<%
   A=session("A")
%>
本篇文章回覆於2002-05-07 20:18
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.