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

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

<table width="800" height="46" border="1" align="center">
<form action="list.asp" method="post">
<tr>
<td colspan="3">關鍵字：<input type="text" name="key" /> <input type="radio" value="how" name="kind" />功能<input type="radio" checked="checked" value="what" name="kind" />產品<input type="radio" value="ip" name="kind" />廠家
<input type="submit" name="Submit" value="搜 索" />
</td>
</tr></form>
</table>
<table width="800" height="46" border="1" align="center">
<tr>
<td height="35" align="center"><strong>代理區域</strong></td>
<td align="center"><strong>要求代理品種 </strong></td>
<td height="35" align="center"><strong>性質</strong></td>
<td height="35" align="center"><strong>發布時間</strong></td>
</tr>
<%
do while not rs.eof
%>
<tr>
<td height="30"><%=rs("id")%></td>
<td height="30"><%=rs("ip")%></td>
<td height="30"><%=rs("into_time")%></td>
<td height="30">&nbsp;</td>
</tr>
<%
rs.movenext
loop
%>
</table>
<table width="800" height="46" border="1" align="center">
<form action="list.asp" method="post" name="fenye" onsubmit="return checkpage()">
<tr>
<td colspan="3" align="center">共<%=TotalRs%>條 <%=PageNum%>條/頁 當前第<%=Page%>/<%=TotalPage%>頁
<%if TotalPage=1 or TotalPage=0 then
response.Write "&nbsp;首頁 上一頁&nbsp;下一頁 末頁"
else
%>
<%if page=1 then
response.Write"&nbsp;首頁 上一頁&nbsp;<a href='list.asp?page="&page+1&"&key="&key&"&kind="&kind&"&trs="&trs&"&tpa="&tpa&"'>下一頁</a> <a href='list.asp?page="&TotalPage&"&key="&key&"&kind="&kind&"&trs="&trs&"&tpa="&tpa&"'>末頁</a>"
end if%>
<%if page>1 and page<TotalPage then
response.Write"<a href='list.asp?page=1&key="&key&"&kind="&kind&"&trs="&trs&"&tpa="&tpa&"'>首頁</a> <a href='list.asp?page="&page-1&"&key="&key&"&kind="&kind&"&trs="&trs&"&tpa="&tpa&"'>上一頁</a> <a href='list.asp?page="&page+1&"&key="&key&"&kind="&kind&"&trs="&trs&"&tpa="&tpa&"'>下一頁</a> <a href='list.asp?page="&TotalPage&"&key="&key&"&kind="&kind&"&trs="&trs&"&tpa="&tpa&"'>末頁</a>"
end if
end if
%>
<%if page=TotalPage then
response.Write"<a href='list.asp?page=1&key="&key&"&kind="&kind&"&trs="&trs&"&tpa="&tpa&"'>首頁</a> <a href='list.asp?page="&page-1&"&key="&key&"&kind="&kind&"&trs="&trs&"&tpa="&tpa&"'>上一頁</a> 下一頁 末頁"
end if%>
轉到第<input id="gopage" maxlength="10" size="5" value="<%=page%>" name="page"/>頁<input id="submit123" type="submit" value="Go" name="submit123"/><input type="hidden" value="<%=TotalRs%>" name="trs"/><input type="hidden" value="<%=TotalPage%>" name="tpa"/>
<input type="hidden" name="keyword" value="<%=keyword%>"/><input type="hidden" name="kind" value="<%=kind%>"/></td>
</tr>
</form>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

來源:csdn

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