做一个简单的ASP分页程序
fenye.aspfengye.asp
O(∩_∩)O~
首先是recordset的创建
<%
set rs=server.createobject("adodb.recordset")
exce="sql"
rs.open exce,conn,1,1
%>
然后是分页属性的设置
<%
rs.PageSize=3
pagecount=rs.PageCount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page
%>
最后是body里的分页显示
<%
if rs.bof and rs.eof then
response.write("NULL")
else
for i=1 to rs.PageSize
response.write rs("name")
response.write("")
rs.movenext
next
end if
%>
首页|前一页
">后一页|
">末页
1 and not page=pagcount then%>
首页|
">前一页|
">后一页|
">末页
首页|
">前一页|
下一页|
末页
本程序主要用到Connection、RecordSet这两个对象，程序中的数据库为Access库，采用OLEDB方式连接库。
这个东西是作为菜鸟的我弄的一个东西.
你可以对这个东西不屑一顾.但是请记住: 菜鸟也有这个权利把自己的心得体会附注文字贡献出来.....当然,技术方面真的是好菜的..一些ASP中的比较正统的中规中矩的方法.我觉得这个东西可能对初学者有些帮助.......见笑了..
一个简单的分页教程：
<%
Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0;data source="& _
server.mappath("mdb.mdb")
conn.Open strcon
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from table order by id desc"
rs.Open sql, conn, 1
page=1 ' 设置变量PAGE=1
rs.PageSize = 5 '每页显示记录数
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
Page = rs.AbsolutePage
%>
<%
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if '利用for next 循环依次读出记录
%>
ASP基础入门:数据库查询语言(1)
下面作者将提供一个简单但实用的运用 SQL 语句查询的 ASP程序供大家参考。为了使大家更清楚更直接地了解 SQL 语法在 ASP中的应用,我们先将查询的所有核心过程写成一个名为 query2table 的SUB,然后利用ASP 的服务器端包容功能调用该 SUB。请将以下语句剪贴到记事簿,保存为subdBTable.inc 文件,并置于虚拟目录 asp...
高分求ASP简单代码
set rs=server.createobject("adodb.recordset")sql="select * from table1 where username='我是sb'"rs.open sql,conn,1,1 if rs.eof then response.write("我不是sb")else response.write("我是sb")end if rs.close set rs = nothing ...
怎么创建asp文件怎么创建asp文件库
或者直接在浏览器输入地址：http:\/\/192.168.1.55:888\/index.asp浏览。到这里就是本地发布asp的流程了 asp系统怎么使用？asp系统使用方法：1.通过搜索程序和文件打开IIS管理器。2.在窗口中，找到DirectoryBrowse，右键单击并选择Browse。3.在主目录myWEB中，创建一个文件夹getIP。4.打开getIP文件夹，...
ASP上传图片代码,最简单的
我需要最简单的ASP图片上传代码,那位大虾能帮下忙~~谢谢... 我需要最简单的ASP图片上传代码,那位大虾能帮下忙~~谢谢 展开 ...set ofile=upload.file(formName) '生成一个文件对象 oFileSize=ofile.filesize if oFileSize<10 then msg="请先选择你要上传的文件!!" FoundErr=...
asp简单的一个语句,帮忙解释下,谢谢
sql="select * from store_name where ws_typesone="&types&" order by cast(id as int) asc"
100分请教高手ASP分页显示页码个数
>下一页 <a href="liu.asp?page=<%=sumpage%>">未页 <%end if%> 方法二(较简单):<%for k=1 to sumpage%> <%if k<> nowpage then%> <a href="liu.asp?page=<%=k%>"><%=k%> <%else%> <%end if%> <%next%> 参考资料：mwyf ...
asp生成一个文本文件(非常简单)
asp创建文件有两种方法，可以用fso,也可以用stream,这里给你一个stream的例子 ===代码=== <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!DOCTYPE html PUBLIC "-\/\/W3C\/\/DTD XHTML 1.0 Transitional\/\/EN" "http:\/\/www.w3.org\/TR\/xhtml1\/DTD\/xhtml1-transitional.dtd"> 无标题文档 <...
如何搭建asp网站?dj网站搭建,建站软件教程中,如何做一个简单网站?
做一个网站：第一，申请域名并备案。第二，租用服务器或虚拟主机，可以参考阿里的云虚拟主机或服务器。第三，编写asp页面（asp应该早已过时，可以参考aspx，php等开发的网站）。第四，绑定IP空间，上传网站程序。第五，正式发布。
请问哈,那能找到个简单的整站ASP源代码,有基本的功能就可以,后台好操作...
第一个： 留言内容:<%=rs("connet")%> ...<a href="del.asp?id=<%=rs("id")%>" style="text-decoration: none">删除...我要留言... 把上面的改成
如何用asp编写一个简单的 在网页中显示当前日期、星期以及根据不同时...
hours="晚上好！"elseif hours > 23 or hours < 5 then hours="深更半夜的 该睡觉了！"end if response.write year(now)&"年"&month(now)&"月"&day(now)&"日 星期"&week&" "&hour(now)&"点"&minute(now)&"分"&second(now)&"秒 "response.write hours Response.End()> ...
海制汉防： 首先是recordset的创建 <% set rs=server.createobject(＂adodb.recordset＂) exce=＂sql＂ rs.open exce,conn,1,1 %> 然后是分页属性的设置 <% rs.PageSize=3 pagecount=rs.PageCount page=int(request(＂page＂)) if page<=0 then page=1 if ...
奉节县19145315427： ASP的分页如何弄? ？
海制汉防： 手动写代码,对RS设置每页记录数如rs.PageSize=10,然后通过设置当前所在页数来获取当前页面的记录rs.AbsolutePage=1.这里有很多详细的教程你可以看下哦~~ http://www.21shipin.com/jc_423.shtml
奉节县19145315427： 一个简单的ASP分页程序 - ？
海制汉防： 本程序主要用到Connection、RecordSet这两个对象,程序中的数据库为Access库,采用OLEDB方式连接库.这个东西是作为菜鸟的我弄的一个东西.你可以对这个东西不屑一顾.但是请记住: 菜鸟也有这个权利把自己的心得体会附注文字贡献出来.....当然,技术方面真的是好菜的..一些ASP中的比较正统的中规中矩的方法.我觉得这个东西可能对初学者有些帮助.......见笑了..http://www.33dir.com/news_1441.html
奉节县19145315427： 请问ASP分页程序怎么做啊? - ？
海制汉防： //先把数据表中的记录读到结果集rs中,这个就不赘述了,以下是分页部分.rs.pagesize=10 //每页显示10条记录page=cint(request(＂page＂)) //接收页码//以下处理无效页码if page<1 then //在asp中,空值比1小 page=1end ifif page>rs.pagecount ...
奉节县19145315427： asp页面如何制作分页？
海制汉防： <% dim i,intPage,page,pre,last,filepath set rs = server.CreateObject(＂adodb.recordset＂) sql=＂select * from user order by user_ID desc＂ rs.PageSize = 2 ' //(这里设定每页显示的记录数 rs.CursorLocation = 3 rs.Open sql,conn,0,2,1 '//('这里执...
奉节县19145315427： 求高手给个最简单的asp分页代码 - ？
海制汉防： rs.PageSize =10'每页记录条数 page=request(＂page＂)'变量page获取从页面传过来的参数 if (page-rs.pagecount)>0 then '当page大于获取的记录集的参数时执行下面的条件 page=rs.pagecount'page等于记录集参数 elseif page=＂＂ or page<1 ...
奉节县19145315427： asp 分页代码怎么写？
海制汉防： '==============分页函数==================== '采用ASP编写,iCount数据记录数,pagecount总页数,page当前页数 function PageControl(iCount,pagecount,page) dim query, url, x, temp ,action,check50,check100,check300,check500,...
奉节县19145315427： 如何在ASP中插入最简单的分页代码？
海制汉防： <% id=replace(trim(request(＂id＂)),＂'＂,＂＂) set rs=server.CreateObject(＂adodb.recordset＂) if id=＂＂ then sql=＂select * from info where cid=9＂ else sql=＂select * from info where cid=＂&id end if rs.open sql,conn,1,1 rs.pagesize=8 ...
奉节县19145315427： asp分页代码？
海制汉防： <!--#include file=＂conn.asp＂--><%dim totalnews,Currentpage,totalpages,inewsperpage=20sql=＂select * from main order by id DESC＂set rs=server.createobject(＂adodb.recordset＂)rs.open sql,conn,1,1%><html><head><meta http-equiv=＂...
奉节县19145315427： ASP怎么实现长文章分页 - ？
海制汉防： 有几种方法:一、你在你的新闻内容中插入一个分布标签比如:[NewsPages],你想要到哪里分页,就到哪个地方插入这个标签,然后再在你输入新闻内容的时候按 [NewsPages]这个标签来分隔内容就可以了.二、就是按字数来进行分页,比如...
