asp分页程序及包含替换文件

原创 2006年06月04日 16:12:00

 '取得传值变量
on error resume next
pageno=request("pageno")
if pageno="" then
  pageno=1
else
  pageno=cint(request("pageno"))
end if
exec="select * from fagui"
set rs=server.CreateObject("ADODB.recordset")
rs.open exec,cn,3,1
if rs.recordcount=0 then
response.write"没有找到您的记录,请重新查找"
else
rs.pagesize=20
rs.absolutepage=pageno
totalpage=int(rs.recordcount/rs.pagesize)
if rs.recordcount mod rs.pagesize <> 0 then
totalpage=totalpage+1
end if
response.write "<table border=0 width=100% ><tr><td align='center'>"
response.write "共找到<font color='#cc0000'>" & rs.recordcount & "</font>条记录,"
response.write "共<font color='#cc0000'>" & totalpage & "</font>页,"
response.write "这是第<font color='#cc0000'>" & pageno & "</font>页<br><br></td></tr>"
 i=0
do while not rs.eof and i<rs.pagesize
  response.write "<tr><td><img src='image/dian.gif'>&nbsp;<a href=chaxunxiangxi.asp?id=" & rs("id") & " target='_blank' class='title'>" & rs("name") & "</a>"
  response.write "</td></tr>"
  i=i+1
  rs.movenext
loop
response.write"</table>"
'确定分页     
response.write "<table border=0 width=100% >"
response.write"<tr><td align='center'>"
if pageno<>1 then
  response.write"<a href='mguanjianzi.asp?pageno=" & (pageno-1) & "' class='title'><font color='#0000cc'>上一页</font></a>&nbsp;&nbsp;"
  response.write "<a href='mguanjianzi.asp?pageno=1"&"' class='title'><font color='#0000cc'>第一页</font></a>&nbsp;&nbsp;"
end if
 
if pageno<>totalpage then
 response.write"<a href='mguanjianzi.asp?pageno=" & (pageno+1) & "' class='title'><font color='#0000cc'>下一页</font></a>&nbsp;&nbsp;"
 response.write"<a href='mguanjianzi.asp?pageno=" & totalpage & "' class='title'><font color='#0000cc'>最后一页</font></a>"
end if
response.write "</td></tr></table>"
response.write"<table border=0 width=100% ><tr><td align=right>"

rs.close
cn.close
set rs=nothing
set cn=nothing

包含:

<%
application("wt")="Driver={SQL Server};Server=127.0.0.1;Database=114;uid=114;pwd=6088;"
set cn=server.CreateObject("ADODB.Connection")
cn.Open application("wt")
'cn.open"dsn=zczx;uid=;pwd="
'set conn=server.createobject("adodb.connection")
'DBPath = Server.MapPath("/data/db1.mdb")
'cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

function changechr(str)
  changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;")  
  changechr=replace(replace(replace(replace(changechr,"[img]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>")  
  changechr=replace(replace(replace(replace(changechr,"[/img]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>")  
end function  

function dealinput(exp1)
dim exp2
exp2=replace(exp1,"<","&lt;")
exp2=replace(exp2,">","&gt;")
exp2=replace(exp2,"'","""")
dealinput=exp2
end function
%>

使用NetBox实现ASP网页封装为EXE教程

简单的形容就是把ASP文件打包 成一个EXE文件,并且不需要在调试的机器上安装IIS即可正常调试。如果按照说明书来操作的话,观看比较繁琐,本人为方便大家使用,现制作一个简单的使用教程。    ...
  • wanglixin1999
  • wanglixin1999
  • 2014年05月26日 17:37
  • 3974

ASP.NET项目中各个文件夹的含义

1.  Bin文件夹  Bin文件夹包含应用程序所需的,用于控件、组件或者需要引用的任何其他代码的可部署程序集。该目录中存在的任何.dll文  件将自动地链接到应用程序。如果在该文件夹中留有不用的或过...
  • Vivian8725118
  • Vivian8725118
  • 2014年01月20日 18:08
  • 3605

模拟实现请求分页虚存页面替换

操作系统课程设计实验报告 设计题目六:模拟实现请求分页虚存页面替换 —— 一、设计题目要求 (1)了解存储管理的基本目的和功能; (2)理解实存管理的原理和实现技术; (3...
  • u011547107
  • u011547107
  • 2015年08月22日 00:13
  • 1942

排序、 筛选和分页与 ASP.NET MVC 应用程序中的实体框架

http://www.asp.net/mvc/overview/getting-started/getting-started-with-ef-using-mvc/sorting-filtering-...
  • jsjpanxiaoyu
  • jsjpanxiaoyu
  • 2016年08月28日 23:21
  • 1156

asp长文件分页,不再不断的翻页

  • 2009年03月24日 13:16
  • 28KB
  • 下载

asp NextPage 文章分页程序3种方法

  • 2011年08月31日 16:50
  • 3KB
  • 下载

asp分页程序

  • 2007年04月17日 22:36
  • 59KB
  • 下载

ASP分页程序!很不错的

  • 2012年05月22日 09:31
  • 640KB
  • 下载

完善的ASP分页调用程序

  • 2011年04月03日 19:45
  • 2KB
  • 下载

一个基于C#+ASP.NET实现的仿QQ拖动分页功能程序源码例子

  • 2009年01月21日 10:16
  • 177KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp分页程序及包含替换文件
举报原因:
原因补充:

(最多只允许输入30个字)