asp+版本简单的留言板的制作(三)- ASP.NET

当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > asp+版本简单的留言板的制作(三)

技术文章搜索

关键字

ASP.NET 中的 asp+版本简单的留言板的制作(三)

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 25 ::

收藏到网摘: n/a

asp+版本简单的留言板的制作(二) 如何在服务器上保存一定时间的信息

http://www.asp888.net 豆腐技术站

现在该显示了，其实显示是很简单，只要看过豆腐前面文章的朋友应该都知道该怎么写这个
程序，但是我在这里要强调的是分页的程序，我也和大家一样，在开始的时候，想利用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分站__查

asp+版本简单的留言板的制作(二) 如何在服务器上保存一定时间的信息

ASP.NET 中的 asp+版本简单的留言板的制作(三)

评论 (0) All