繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > asp+版本简单的留言板的制作(三)
- ASP.NET
- DVNEWS 3.2 1013版免虚拟目录的安装方法，只要三个步骤
- DataRow的序列化问题
- VB.net基础:使用UDP发送和接收消息
- 采用HttpModules来重写URLs（实践篇）
- 要用到事务了
- DataGrid中单元格的比较
- 动态引用WebService,建立WebService虚拟机
- [初学VB.NET]数据绑定
- 使用ASP调用WebService时不能以Name为数据库中的字段
- 在VB.NET里操作文本文件
- web下打印的办法
- 怎样把SQL_SERVER数据库里的（类型是image)图片显示在aspx页面里的image控件里
- C#中字符串的加密
- 中小企业信息应用的利器：DAP-Dynamic Applications Platform
- 数据库系统概论学习笔记
- 体会到译者的艰辛，也发现了他们犯的错误
- IISManager V1.1 是一个在线管理IIS，维护站点组件，安全稳定，最重要的是完全免费。
- VS FlexGridPro 8.0如何在window98运行---有没有升级版本，急请高手指点
- 给立方体添加纹理
- Wrox的C#高级编程第三版第一部分第一章（1~9页）
ASP.NET 中的 asp+版本简单的留言板的制作(三)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 195 ::
收藏到网摘: n/a
现在该显示了，其实显示是很简单，只要看过豆腐前面文章的朋友应该都知道该怎么写这个
程序，但是我在这里要强调的是 分页 的程序，我也和大家 一样，在开始的时候，想利用web form
的数据绑定的功能，但是不幸的是，虽然用datagrid 实现绑定和分页都是很简单的，但是 datagrid
显然形式上的Grid显然对 留言版 这样的程序是 不适合的,DBList 到是可以适合留言版的程序形式
但是 我查找了很长的时间 都没有找到如何去 实现分页的程序
后来在 MSDN 上找到了 PagedDataSource 看看他的 Class Member 我都心惊肉跳，所有的我要的分页
的功能他都已经提供了,但是我在调试的过程中，却怎么也 无法通过，估计是和我的 PDC 版本的原因，
这个时候，我就想起了 开心(注：网友名称，他曾经建议我直接安装NGWS beta1 和 Vs7 beta1)：）
希望大家如果在 Beta1 上调试成功了以后，一定要告诉豆腐
没有别的办法，我只好就去用我的老办法，用程序去控制，老天，我不想这样，但是我真的没有别的
办法了
大家请看程序:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Web.Security" %>
<%@ Import Namespace="System.Web.UI" %>
<%@ Import Namespace="System.Data.SQL" %>
<HTML><HEAD>
<script runat="server" language="VB">
dim sqlRead as SQLDataReader
dim intStart as integer
dim intLen as integer
dim intPageCount as integer
dim intRecCount as integer
Sub Page_Load(Src As Object, E As EventArgs)
Dim conn As SQLConnection
Dim Cfg as HashTable
Dim sqlcmd As SQLCommand
Cfg = Context.GetConfig("appsettings")
Conn = New SQLConnection(cfg("Conn"))
dim strSQL as string
'实在是没有办法，只好这样来获得 记录总数了
'根据NGWS的帮助上看 似乎有个PagedDataSource 好象功能挺强大
'但是 就是 不知道 应该怎么使用 也没有见过 用他的例子
strSQL="select count(*) as ccount from msgBoard"
sqlcmd = New SQLCommand(strSQL,conn)
sqlcmd.ActiveConnection.Open()
sqlcmd.execute(sqlRead)
sqlRead.Read()
intRecCount=cInt(sqlRead("ccount"))
sqlcmd.ActiveConnection.Close()
strSQL="select * from msgBoard order by msgid desc"
sqlcmd = New SQLCommand(strSQL,conn)
sqlcmd.ActiveConnection.Open()
sqlcmd.execute(sqlRead)
if isNumeric(request.querystring("start")) then
intStart=Cint(request.querystring("start")) '本页数据起使位置
else
intStart=0
end if
intLen=10 '每页需要显示的数据数量
'以下计算 当前的 记录的分页页数
if (intRecCount mod intLen)=0 then
intPageCount=intRecCount/intLen
else
intPageCount=(intRecCount-(intRecCount mod intLen))/intLen+1
end if
dim i as integer
'将得到的sqlRead向后移动 start 指定的 位置
for i=0 to intStart-1
sqlRead.read()
next
end sub
sub WritePage(start as integer,file as string)
'进行分页处理
dim strWrite as string
strWrite="<table border=1 width=100%><tr><td>"
response.write(strWrite)
if start=0 then
strWrite="首页"
else
strWrite="<a href='" & file & "?start=0'>首页</a>"
end if
response.write(strWrite)
if start>=1 then
strWrite="<a href='" & file & "?start=" & cStr(start-intLen) & "'>上页</a>"
else
strWrite="上页"
end if
response.write(strWrite)
if start+intLen<intRecCount then
'还没有到最后一页数据
strWrite="<a href='" & file & "?start=" & cStr(start+intLen) & "'>下页</a>"
else
strWrite="下页"
end if
response.write(strWrite)
if start+intLen<intRecCount then
'还没有到最后一页数据
strWrite="<a href='" & file & "?start=" & cStr((intPageCount-1)*intLen) & "'>末页</a>"
else
strWrite="末页"
end if
response.write(strWrite & "</td><td>")
strWrite="当前共有留言" & Cstr(intRecCount) & ",现在是第<font color=red>" & cStr((intStart/intLen)+1) & "/" & cstr(intPageCount) & "</font>页"
response.write(strWrite)
strWrite="</td></tr></table>"
response.write(strWrite)
end sub
</script>
<title>豆腐技术站__aspx分站__查
评论 (0) All
