ASP编程入门进阶（十）,,CIO之家

ASP编程入门进阶（十）

佚名　　5D多媒体　　ASP　　编辑:dezai　　图片来源:网络

ADO组件之分页程序应该来说，学会了如何插入记录，如何显示记录，那么现在简单的完整的文章系统、新闻系统和留言系统不成问题。那接着下面的问题就

ADO组件之分页程序

应该来说，学会了如何插入记录，如何显示记录，那么现在简单的完整的文章系统、新闻系统和留言系统不成问题。那接着下面的问题就是：随着信息内容的不段增加，单独通过一张页面显示所有信息是不行也是很不理性的。所以，解决的办法就是采用分页技术。

　　1，rs.RecordCount
　　很显然，RecordCount就是用来显示数据库表中一共多少条记录的，也可以形象地说表中一共有多少行。经常用在分页中就是一共有N篇文章等总计的信息显示。

　　2，rs.PageSize
　　rs.PageSize也就是一页的大小，也就表示一张ASP页可以显示记录的条数。值是自己定义的，比如经常看到的每页显示N篇文章之类的信息。

　　3，rs.AbsolutePage 和 rs.pagecount
　　说到分页，一定不能不提到 rs.AbsolutePage 。记录集的AbsolutePage属性最主要的作用就是决定着当前显示的是第几页。它的值是有依据的，指定了rs.PageSize，那么rs.pagecount的信息值就是rs.RecordCount和rs.PageSize整除结果。比如：总信息记录rs.RecordCount共20条，每页显示条数rs.PageSize设为5条，那么页数rs.pagecount数就是20/5=4页次，而rs.AbsolutePage则就只能是第1页，第2页……第4页。

　　说到现在，弄个具体程序来调试一下。继续对showit.asp进行修改如下：


<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from cnarticle order by cn_id desc"
rs.Open sql,conn,1,1
%>
<%
page=request.querystring("page")  'page值为接受值 
rs.PageSize = 2 '每页显示记录数
rs.AbsolutePage = Page '显示当前页等于接收的页数 
%>
<% 
For i = 1 to rs.PageSize '利用for next 循环依次读出当前页的记录
 if rs.EOF then
  Exit For 
 end if 
response.write("
文章内容是:"& rs("cn_content"))
rs.MoveNext
next%>
<% 
rs.close 
Set rs = Nothing
conn.close 
set conn=nothing 
%>

　　HERE，你调试的前提就是数据库中的记录相对要大于4条，这样测试效果才明显；还有测试的方法就是在showit.asp后面添加?page=1或者?page=2等调试观察网页显示效果。

　　其实，说到底，显示数据库内容就是


<% 
For i = 1 to rs.PageSize
 if rs.EOF then
  Exit For 
 end if 
response.write("
文章内容是:"& rs("cn_content"))
rs.MoveNext
next%>

　　起的作用，但想象一下：该程序应该都只能显示出2条信息（一直不变的2条信息）。但为什么加上?page=1和?page=2会显示不同的结果呢？……那绝对就是rs.AbsolutePage的作用了。这个搞清楚，相信分页的整体架构就有点眉目了。


<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from cnarticle"
rs.Open sql,conn,1,1
%>
<%filepath=request.servervariables("path_info")%>
<%
page=request.querystring("page")  'page值为接受值
rs.PageSize = 2 '每页显示记录数
if Not IsEmpty(page) then '如果page已经初始化...
    if Not IsNumeric(page) then '判断page值是否为数字
       page=1
    else
    Page = cint(page) '接收page并化为数字型赋给page变量
    end if   
    if Page > rs.PageCount then '如果接收的页数大于总页数
        rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页        
    elseif Page <= 0 then '如果page小于等于0
        rs.AbsolutePage = 1 '设置当前显示页等于第一页
    else
        rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 
    end if
else
rs.AbsolutePage=1
end if
Page = rs.AbsolutePage%>
<% 
For i = 1 to rs.PageSize '利用for next 循环依次读出当前页的记录
 if rs.EOF then
  Exit For 
 end if 
  response.write("文章标题是:"& rs("cn_title"))
  response.write("
文章作者是:"& rs("cn_author"))
  response.write("
文章加入时间是:"& rs("cn_time"))
  response.write("
文章内容是:"& rs("cn_content"))
  response.write("
")
  rs.MoveNext
Next
%>

<%if rs.pagecount<>1 and rs.pagecount<>0 then%>

 <%if page>1 then%>
    [首页]
    [上一页]

    <%if page
    [下一页]
    [尾页]
 
    <%else%>
    [下一页] [尾页]
    <%end if%>

 <%else%>
 [首页] [上一页]
 [下一页] 
 [尾页]
 <%end if %>

<%else%>
 [首页] [上一页] [下一页] [尾页]
<%end if%>
[页次:<%=page%>/<%=rs.PageCount%>]
[共<%=rs.RecordCount%>篇 <%=rs.PageSize%>篇/页]
转到页


 
<%
rs.close 
Set rs = Nothing
conn.close 
set conn=Nothing
%>

　　长长的分页代码，搞懂是真不容易，平台引用起来还需要修改也是比较麻烦。最后能做成一个函数，下次调用起来就很方便了。


<%
function pagination(pagecount,pagesize,page,resultcount)
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST")_
 & Request.ServerVariables("SCRIPT_NAME")
    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next    
    Response.Write("")        
    if page<=1 then
        Response.Write ("[首页] [上一页] ")
    else        
        Response.Write("[_
首页] ")
        Response.Write("[上一页] ")
    end if    if page>=pagecount then
        Response.Write ("[下一页] [尾页]")        
    else
        Response.Write("[下一页] ")
        Response.Write("[尾页]")            
    end if
    Response.Write("[页次:" & page & "/" & pageCount)    
    Response.Write("] [共" & resultcount & "条 "& pagesize_
 & "条/页]")
    Response.Write(" 转到" & ""_
 & "页")
End function
%>

　　如要引用，则可以：


<%call pagination(rs.PageCount,rs.pagesize,page,rs.RecordCount) %>

ADO组件之插入数据记录

　　一、拥有数据库cnbruce.mdb

　　本数据库的作用就是用来被插入数据的，可以直接采用上节中已经建立的cnbruce.mdb文件，当然连接打开数据库的文件conn.asp也就顺利引用了。

　　二、建立输入插入信息的页面平台addit.html

　　本页的主要作用是：显示一些文本输入框以用来提供输入信息内容提交数据库。

　　1，addit.html



Title:

Author:

Content:

　　本页其实很简单，就是通过submit按钮将表单的信息内容提交到addit.asp页面去处理。

　　三、建立处理接受数据并插入数据库表的页面程序addit.asp

　　2，addit.asp


<%
whattitle=request.form("title")
whoauthor=request.form("author")
whatcontent=request.form("content")
%>
<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from cnarticle"
rs.Open sql,conn,3,2
%>
<%
rs.addnew
rs("cn_title")=whattitle
rs("cn_author")=whoauthor
rs("cn_content")=whatcontent
rs.update
%>
文章添加成功，浏览
<%
rs.close 
Set rs = Nothing
conn.close 
set conn=Nothing
%>

　　恩，接着就是来具体分析一下。

　　1，不用说，凡是要和数据库有联系的都要运用到该连接文件。

　　2，whattitle=request.form("title")之类就是将上页表单中接受过来的值赋到一变量上，方便下面程序的调用。

　　3，rs.Open sql,conn,3,2 注意参数和显示数据库时采用的参数的不同。

　　4，rs.addnew 很简单也很显眼的一个声明：新建一个数据库记录集行。

　　5，rs("cn_title")=whattitle之类即将接受的表单值对应到相关字段中。

　　6，rs.update 只是值和数据库字段的对应，完了后还要将对应的值上传提交到数据库表中去。

　　7，插入后可以跳转到showit.asp查看需要说明，以后的ASP例题可能都是建立在前几节内容的基础之上完成的。

　　8，释放资源是规矩，不要忘记。

　　那么，现在。插入并显示数据库记录，对你来说完全是小菜一碟了。大体框架搭建完毕，下面就是具体的细化了。

　　其中包括：客户端的表单检测，防止用户信息输入的遗漏；当然最好还是要加上服务器端的表单检测，由于客户端的某些原因（比如自行设计提交非检测的页面）基于安全考虑，一切还是依服务器端所接受信息为准。那下面就继续细化应用下了。

　　1，客户端检测其实就是通过简单的脚本检测，这在初学ASP提到脚本的时候说到，下面将再次重复。

　　加强的addit.html

　　2，服务器端检测有人也许会问，既然有了客户端的检测，那还有多个服务器端的检测呢？原因很简单，比如仿照HTML表单提交页，自行设计一张去除了表单检测的页面。当点击提交，并且没有任何信息时，到达服务器端如没有任何防御则肯定会造成数据插入的失败。

　　加强的addit.asp


<%
whattitle=trim(request.form("title"))
whoauthor=trim(request.form("author"))
whatcontent=trim(request.form("content"))
%>
<%if whattitle="" then%>

<%end if%>
<%if whatcontent="" then%>

<%end if%>
<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from cnarticle"
rs.Open sql,conn,3,2
%>
<%
rs.addnew
rs("cn_title")=whattitle
rs("cn_author")=whoauthor
rs("cn_content")=whatcontent
rs.update
%>
文章添加成功，浏览
<%
rs.close 
Set rs = Nothing
conn.close 
set conn=Nothing
%>

　　可以看出，就是添加了如下类似的判断。


<%if whattitle="" then%>

<%end if%>

　　很简单，如果接受过来的信息为空，则弹出警告框，并且确认后返回到上页即addit.html了。当然cn_author没有设置检测，因为当初设计该字段的接受值是允许为空的。

　　OK，总结一下，插入记录主要就是


rs.addnew
rs("cn_title")=whattitle
...
rs.update

　　很简单，先声明addnew，然后一一对应，再提交插入数据库。

　　这是一种插入数据库的方法，下面就来接触了解一下另外一种。

　　需要注意，结构化的查询语言也就是SQL语句能够完成一些比较苛刻的数据库操作。当然，对于诸如提取、插入信息之流就更不在话下了。所以下面采用的插入记录的方法就是直接采用SQL语法完成。

　　修改了的addit.asp


<%
whattitle=request.form("title")
whoauthor=request.form("author")
whatcontent=request.form("content")
%>
<%
sql = "insert into cnarticle(cn_title,cn_author,cn_content) values_
(' "&whattitle&" ',' "&whoauthor&" ',' "&whatcontent&" ')"
conn.Execute(sql)
%>
文章添加成功，浏览
<%
conn.close 
set conn=Nothing
%>

　　本程序中，你会发现只要一行的SQL语句，不需要建立Rescord记录集行，不需要声明addnew，不要执行update。直接通过conn.Execute(sql)来完成。

　　当然应用此种方法，若必填字段接受值为空时，同样能够插入记录。这和采用第一种会报

Microsoft JET Database Engine 错误 '80040e21'

字段 'xxx.xxx' 不能是零长度的字符串。

　　具有很大的容错性。

　　是程序的可读性还是方法的简便高效率就任君选择了。

本文作者:佚名来源:5D多媒体
CIO之家 www.ciozj.com 微信公众号:imciow

免责声明:本站转载此文章旨在分享信息，不代表对其内容的完全认同。文章来源已尽可能注明，若涉及版权问题，请及时与我们联系，我们将积极配合处理。同时，我们无法对文章内容的真实性、准确性及完整性进行完全保证，对于因文章内容而产生的任何后果，本账号不承担法律责任。转载仅出于传播目的，读者应自行对内容进行核实与判断。请谨慎参考文章信息，一切责任由读者自行承担。