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

教程Tag：暫無Tag,歡迎添加,賺取U幣!

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

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

'聲明參數(shù)
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
'計(jì)算總頁數(shù)
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
'調(diào)用存儲(chǔ)過程
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實(shí)現(xiàn)js圖片的輪顯
下午做了一個(gè)asp+js實(shí)現(xiàn) 圖片的輪顯的效果，效果圖如：左側(cè)的圖片輪顯，在我用的是js,然后我改了一下用asp實(shí)現(xiàn)效果的。 pic.asp源代碼： % '連接數(shù)據(jù)庫代碼省去了 sql=(select * from Pic order by picorder asc,id desc) Set rs=server.CreateObject(