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

asp数字分页示例共三个

<%
set rs=server.CreateObject(”ADODB.recordset”)
sql =”select * from 表”
rs.open sql,conn,1,1
page=cint(request(”page”))
n=rs.RecordCount
rs.pagesize=12
m=cint(rs.pagecount)
if page=”" then
page=1
elseif page<1 then
page=1
end if
if cint(request(”page”))>m then
page=m
end if
page=cint(page)
if not rs.eof then
rs.absolutepage=page
end if
if m>page+3 then
endpage=page+3
else
endpage=m
end if
if page>4 then
pagetitle=pagetitle & “ ” & “….”
end if
for i=page-3 to endpage
if not i<1 then
if i = page then
pagetitle=pagetitle & “ ” & “<B>[” & i & “]</B>”
else
pagetitle=pagetitle & “ ” & “[” & “<a href=userlist.asp?page=” & i & “>” & i & “<a>” & “]”
end if
end if
next
if page+3 < m then
pagetitle=pagetitle & “ ” & “….”
end if
%>
您可以看到,有一个“pagetitle”的变量,您只要用
<%=pagetitle%>,就可以把它调用出来,实现您的效果。
另一个
<%
     sql="Select * from [table] order by id desc"
     Set rs = Server.CreateObject("ADODB.Recordset")
     rs.open sql,conn,1,1
     page=cint(request("page"))
     n=rs.RecordCount
     PageSize=10
     rs.pagesize=PageSize
     m=cint(rs.pagecount)
     if page="" then
     page=1
     elseif page<1 then
     page=1
     end if
     if cint(request("page"))>m then
     page=m
     end if
  


相关文档:

ASP.NET开发人员需要学习ASP.NET MVC么?

最近几周,在博客、Twitter和论坛上如火如荼地展开了一场讨论。讨论的内容是:开发人员是否应该使用或学习ASP.NET MVC。从“不推荐学习”到“所有ASP.NET开发人员都应该学习”,各种不同的观点层出不穷。InfoQ对其中部分讨论内容进行了总结。
Rob Conerey(SubSonic之父,目前是微软ASP.NET MVC团队的 ......

在 Linux 下运行 ASP.NET 2.0

单位有一台闲置的旧 IBM Netfinity 7000 的服务器,双 Pentium Pro 200 MHz CPU,512 MB 内存,一个 9.1 GB 和五个 4.5 GB 的 SCSI 硬盘。我想将其废物利用一下,于是:
1. 到 http://tw.releases.ubuntu.com/edgy/ 下载  PC (Intel x86) server install CD ,将下载得到的 ubuntu-6.10-server-i386.iso 文件刻录一张 ......

ASP开发WEB打印代码大全

  这篇文章主要介绍了如何使用ASP控制Web的各种打印效果,它能够控制纵打、横打和页面边距等。
  
  1、控制"纵打"、 "横打"和"页面的边距"。
  
  (1)
  
  < script defer>
  function SetPrintSettings() {
  // -- advanced features
  factory.printing.SetMarginMeasure(2) ......

asp操作数据库代码

 set conn=server.createobject("adodb.connection")
 conn.open "driver={microsoft access driver (*.mdb)};dbq=F:\\ajaxpro\\App_Data\\server.mdb"
 
 Dim StrSQL,RS
 StrSQL="SELECT*from Manager WHERE ID='"&username&"'"
 StrSQL=StrSQL&"AND Pin='"&passwor ......

判断生肖的ASP时间函数

 <% 
Function Zodiac(birth) 
If IsDate(birth) Then 
birthyear = Year(birthday) 
ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊")&nbs ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号