易截截图软件、单文件、免安装、纯绿色、仅160KB

asp分页

<!--#include file="Conn.asp"-->
<body>
<table border="0" align="left" cellpadding="0" cellspacing="0">
<%

URL= Request.ServerVariables("URL")
sql="select * from news order by N_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write " <tr> <td colspan=9 height=40> <center>暂无内容 </center> </td> </tr>"
PageScript="ML"
else
'分页的实现
listnum=3
Rs.pagesize=listnum
pageMax=rs.pagecount
listCount=rs.recordcount

page=Request("page")
if (page-pageMax) > 0 then
page=pageMax
elseif page = "" or page < 1 then
page = 1
end if
rs.absolutepage=page
'编号的实现
j=listCount
j=j-(page-1)*listnum
i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if

do while not rs.eof and i <listnum
n=n+1
%>
<tr>
<td>
<a href="#"> <%=rs("N_title")%> </a>
</td>
</tr>
<%
rs.movenext
i=i+1
j=j-1


相关问答:

求一个在线测试系统 asp的 - Web 开发 / ASP

http://www.zgjhjy.com/Test/PrimaryTest/Index.aspx
就是类似以上的在线测试系统,需要有一个后台的,语言是asp的,数据库是access的,还需要能在后台对信息进行添删改查的。谢谢各位了。。。
程序真的很多,不知 ......

asp 调用java写的webservice - Web 开发 / ASP

在asp里怎么调用java写的webservice方法,有很多方法
- <message name="RtPnrIn">
  <part name="bstrPnrNO" type="s:string" /> 
  <part name ......

ASP伪静态 - Web 开发 / ASP

asp虚拟主机实现伪静态的方法:
1、 重写url参数
Step1: 建立前台文件index.asp,修改url参数形式。由于读取数据库中的记录不是专题的重点,故直接给出:
<!--#include file="config.asp" -->
&l ......

asp初学问题 - Web 开发 / ASP

Microsoft JET Database Engine '80040e07' 
标准表达式中数据类型不匹配。 
\wwwroot\update.asp, line 20
--------------------------------------------------------------------------------
Ho ......

asp.net 正则 - .NET技术 / ASP.NET

<table   border= "0 "   cellspacing= "0 "   cellpadding= "0 ">
<BH_CHANNELS   ID= "OWNER "   CHILDTYPE= "aaa " ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号