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(