asp+sql2000存儲過程分頁實例(3)_ASP教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      推薦:ASP點擊刷新驗證碼實例代碼
      現在網站上大部分的驗證碼都是圖片驗證碼,就跟 http://dwww.cn/Books.asp 下邊的一樣。 用戶可能長時間的停留在頁面上,等到最后提交的時候,驗證碼就可能過期了。所以要加個刷新的功能。 驗證碼:input name='checkimg' type='text' class='input' id='che


      '查詢條件判斷
      if key<>"" then
      SearchChar=" and "& kind &" like '%"&key&"%'"
      SearchChar1=" "& kind &" like ''%"&key&"%''"'書寫注意與存儲過程中的where關鍵字間的間距,如果多條件,后面也要有間距
      else
      SearchChar=""
      SearchChar1=""
      'response.Write SearchChar1
      'response.End()
      end if
      '返回總記錄數
      Set MyComm=Server.CreateObject("ADODB.Command")
      MyComm.ActiveConnection=conn
      'MyConStr是數據庫連接字串
      MyComm.CommandText="recordCount"
      '指定存儲過程名
      MyComm.CommandType=4
      '表明這是一個存儲過程
      MyComm.Prepared=true
      '要求將SQL命令先行編譯

      '聲明參數
      MyComm.Parameters.append MyComm.CreateParameter( "@TableName",200,1,500,tablename)
      MyComm.Parameters.append MyComm.CreateParameter( "@strWhere",200,1,500,SearchChar)
      MyComm.Parameters.append MyComm.CreateParameter( "@count",3,2)
      MyComm.Execute
      '取得出參
      TotalRs=MyComm.Parameters( "@count").value
      Set MyComm=Nothing
      '計算總頁數
      if TotalRs mod 30 =0 then
      TotalPage=TotalRs \30
      else
      TotalPage=TotalRs \30 + 1
      end if
      '頁碼合法判斷
      if page="" or page<=0 then
      page=1
      end if
      'page=48
      '調用存儲過程
      sql="exec sp_pageview '"&TableName&"','"&strGetFields&"',"&page&","&PageNum&",'"&SearchChar1&"','"&strOrder&"',0"
      response.Write sql
      'response.End()
      set rs=server.CreateObject("adodb.recordset")
      rs.open sql,conn,1,1
      %>
      </head>

      <body>

      分享:ASP實現js圖片的輪顯
      下午做了一個asp+js實現 圖片的輪顯的效果,效果圖 如: 左側的圖片輪顯,在 我用的是js,然后我改了一下用asp實現效果 的。 pic.asp源代碼: % '連接數據庫代碼省去了 sql=(select * from Pic order by picorder asc,id desc) Set rs=server.CreateObject(

      來源:模板無憂//所屬分類:ASP教程/更新時間:2012-06-08
      相關ASP教程