做一个简单的ASP分页程序

做一个简单的ASP分页程序,第1张

本程序主要用到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中间有个空格

1.首先你的机器要装有iis服务器

2.在iis下新建网站,并指定硬盘目录如:d:\myweb 网站名称mytest

3.新建文件hello.asp 内容为

<%

response.write("hello asp")

%>

4.在iis下浏览文件hello.asp 即可


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12195368.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-21
下一篇 2023-05-21

发表评论

登录后才能评论

评论列表(0条)

保存