asp+sql2000存儲過程分頁實例(3)_ASP教程
推薦: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教程-asp+sql2000存儲過程分頁實例(3)。