做一个简单的ASP分页程序_软件运维

本程序主要用到Connection、RecordSet这两个对象，程序中的数据库为Access库，采用OLEDB方式连接库。

这个东西是作为菜鸟的我弄的一个东西.

你可以对这个东西不屑一顾.但是请记住: 菜鸟也有这个权利把自己的心得体会附注文字贡献出来.....当然,技术方面真的是好菜的..一些ASP中的比较正统的中规中矩的方法.我觉得这个东西可能对初学者有些帮助.......见笑了..

一个简单的分页教程：

Set conn = Server.CreateObject("ADODB.Connection")

strcon="provider=microsoft.jet.oledb.4.0data 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 循环依次读出记录

第一个文件：313logon.htm，在这个文件里，缺少了</form>，请加上。虽然这个不是ASP的代码，但是HTML代码也要求标签一一对应的。

第二个文件：If User!="张胖胖" then ，在ASP里，"不等于"不是用"!="来表示的，而是用"<>"来表示。因此要改成：IF User<>"张胖胖" then

还有if Pass!="1234567" then 同理也要改成if Pass<>"1234567" then

另外在第二个文件里，最后的endif也是不正确的，应该改成"end if"，注意end与if中间有个空格

有html语言和vb语言构成，简单的如楼上的那句话，虽然他只有asp语言省略了html，但是在执行的时候浏览器会默认的为他加上

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<title>无标题文档</title>

</head>

<body>

这些东西的

欢迎分享，转载请注明来源：内存溢出

做一个简单的ASP分页程序