asp分页程序及包含替换文件
2006-06-04 16:12
295 查看
'取得传值变量
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'> <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> "
response.write "<a href='mguanjianzi.asp?pageno=1"&"' class='title'><font color='#0000cc'>第一页</font></a> "
end if
if pageno<>totalpage then
response.write"<a href='mguanjianzi.asp?pageno=" & (pageno+1) & "' class='title'><font color='#0000cc'>下一页</font></a> "
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,"<","<"),">",">"),chr(13),"<br>")," "," ")
changechr=replace(replace(replace(replace(changechr,"
","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>")
changechr=replace(replace(replace(replace(changechr,"" border="0" >","></img>"),"","</b>"),"[/red]","</font>"),"[/big]","</font>")
end function
function dealinput(exp1)
dim exp2
exp2=replace(exp1,"<","<")
exp2=replace(exp2,">",">")
exp2=replace(exp2,"'","""")
dealinput=exp2
end function
%>
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'> <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> "
response.write "<a href='mguanjianzi.asp?pageno=1"&"' class='title'><font color='#0000cc'>第一页</font></a> "
end if
if pageno<>totalpage then
response.write"<a href='mguanjianzi.asp?pageno=" & (pageno+1) & "' class='title'><font color='#0000cc'>下一页</font></a> "
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,"<","<"),">",">"),chr(13),"<br>")," "," ")
changechr=replace(replace(replace(replace(changechr,"
changechr=replace(replace(replace(replace(changechr,"" border="0" >","></img>"),"","</b>"),"[/red]","</font>"),"[/big]","</font>")
end function
function dealinput(exp1)
dim exp2
exp2=replace(exp1,"<","<")
exp2=replace(exp2,">",">")
exp2=replace(exp2,"'","""")
dealinput=exp2
end function
%>
相关文章推荐
- 因为公司的产品用asp开发, 前一段时间用asp写了一个生成静态页面并分页的程序,但缘于对.net的热爱,写了这个.net下的生成静态页面并分页的程序。 主要的原理就是替换模板里的特殊字符。
- Linux下静态库_库的基本概念;如何生成静态库动态库;nm查看库中包含那些函数、ar生成静态库,查看库中包含那些.o文件、ldd查看程序依赖的.so文件;gcc/g++与库相关的参数-L,-l,-f
- 创建用于ASP.NET的分页程序控件
- ASP.NET结合存储过程写的通用搜索分页程序
- (转)Asp.Net 用Jquery和一般处理程序实现无刷新上传大文件
- AssemblyInfo.cs文件:包含程序版本、信息、版权的属性文件(转转转)
- Linux下静态库_库的基本概念;如何生成静态库动态库;nm查看库中包含那些函数、ar生成静态库,查看库中包含那些.o文件、ldd查看程序依赖的.so文件;gcc/g++与库相关的参数-L,-l,-f
- asp 多文件同时上传程序
- asp.net 未能加载文件或程序集“XXX”或它的某一个依赖项。试图加载格式不正确的程序。
- 分页,静态程序asp实现,php同理
- 改善C++ 程序的150个建议学习之建议 9:防止重复包含头文件
- 获取指定目录(包含子目录)下所有的txt文件的个数,并打印文件名称。程序1。
- [ASP通用类]替换远程文件为本地文件并保存远程文件
- 【python】python文件批量替换小程序
- ASPCMS 分页标签样式文件 inc/AspCms_CommonFun.asp
- 在ASP.NET程序中存储和调用word文件 http://blog.csdn.net/bcdliang/archive/2005/05/12/373886.aspx
- asp.net 包含文件的方法
- ASP.NET结合存储过程写的通用搜索分页程序
- asp.net的简单分页程序
- 在ASP.NET程序中存储和调用word文件(转载)