易截截图软件、单文件、免安装、纯绿色、仅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类成员

有一个类
class adc
{
dim a,b,c
}
如何在另外一个类中取得类成员及成员个数
class getmenber
{
dim menbers()
function getmenbers(resclass)
'res为一未知类
'getmenber ......

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

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

asp初学问题 - Web 开发 / ASP

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

js控制asp空间dropdownlist - .NET技术 / ASP.NET

我有两个dropdownlist都绑好了值,想选中一个dropdownlist中的值,然后在另一个dropdownlist中选中相应的一项。
不是从新绑定第二个dropdownlist,是在已经绑好的值当中选中一个。
我想用js写
求助
你可以把drop ......

asp行和列显示问题 - Web 开发 / ASP

<tr>
<td width="700" valign="top" align="left">
<!--加载数据库产品列表包含分页代码开始 -->

<tabl ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号