- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 3Adobe Illustrator CS5 序列号大全
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 7Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 8最新的Adobe Illustrator CS4序列号大全
- 9Intel i7-9700K性能跑分曝光：同代提升约12%
- 10qq邮件是否已读怎么看 QQ邮箱已经发出去的邮件怎么知道对方是否已经查看
- 11XP系统怎么清除缓存？
- 12Intel Z390主板有望10月8日公布：8核9代酷睿随后登场
[摘要]http://www.asp888.net 豆腐技术站 现在该显示了，其实显示是很简单，只要看过豆腐前面文章的朋友应该都知道该怎么写这个程序，但是我在这里要强调的是 分页 的程序，我也和大家 一样，...
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分站__查看留言</title>
<link rel="stylesheet" type="text/css" href="/doufu.css">
</HEAD>
<BODY>
<a href="http://www.asp888.net">豆腐技术站</a>亲情奉献<br>
<%
WritePage(intStart,"a.aspx")
dim atEnd as boolean
%>
<% for i=0 to intLen-1%>
<%
atEnd=sqlRead.read()
if not atEnd then exit for
%>
<div align=center>
<table border=1 width=80%>
<tr>
<td width=10%>呢称</td>
<td width=40%><%=sqlRead("nickname")%></td>
<td width=10%>IP地址</td>
<td width=10%><%=sqlRead("IPAddr")%></td>
</tr>
<tr>
<td width=10%>联系方式</td>
<td width=90% colspan=3><%=sqlRead("email")%></td>
</tr>
<tr>
<td width=10%>留言主题</td>
<td width=90% colspan=3><%=sqlRead("msgTitle")%>----<font color=red><%=sqlRead("msgTime")%></font></td>
</tr>
<tr>
<td width=10%>留言内容</td>
<td width=90% colspan=3><%=server.HTMLEncode(sqlRead("msgContent"))%></td>
</tr>
</table>
</div>
<p></p>
<%next%>
</body>
</html>
终于完了：）
结束语：
在大家看过 三篇文章后，整个的留言版的程序也就已经全部的讲完了，客观的说，通过这个程序
我们还无法完全的领略asp+给我们带来的所有令人兴奋的功能，而且还有很多的功能现在似乎还是在
宣传的阶段，但是 毕竟现在才是Beta1 的阶段，相信在正式版本推出的时候，我们可以看到一个全新
的面向 Web 编程的 .net 平台
推荐资讯 总人气榜
最新教程 本月人气
- 1Access给字段添加有效果性
- 2PHP数据库链接类(PDO+Access)案例
- 3怎么使用c#设置ACCESS数据库
- 4通知我软件怎么打开Accessibility service服务？_手机软件图文说明教程
- 5Access9.8 保存新建的查询
- 6Excel中的数据怎么导入到Access数据库中?
- 7Apache的Mode Rewrite模块与.htaccess文件配合
- 8Excel工作表怎么导入Access数据库数据
- 9怎么拆分复制的Access 97数据库
- 10Access怎么含糊参数进行分页查询代码
- 11在Access2007“迅速访问工具栏”添加更多命令
- 12Java怎么连接Access数据库_Javascript图文说明教程
- 1猎豹浏览器抢票不受12306新版验证码影响
- 2360手机助手红包怎么提现 360手机助手红包提现设置流程
- 3160wifi远程桌面怎么连接 160wifi远程桌面连接设置方法
- 4微信PC版1.0.7.33官方下载公布 修好bug优化软件
- 5ios9不越狱怎么恢复短信与照片 ios9不越狱恢复短信与照片图文说明教程
- 6抱抱app怎么玩 抱抱app使用图文说明教程图
- 7抱抱app免费随机通话使用图文说明教程(图文流程)
- 8yy游戏直播怎么开 yy游戏直播打开方法
- 9手机登12306验证码总是出错处理方法介绍
- 10Linux内核4.2优化了哪一些地方？
- 11linux系统使用命令维护RHCS的方法
- 12Linux系统Dalvik堆内存的管理与回收介绍
