仓酷云

标题: ASP网页设计asp+版本复杂的留言板的制造(三) [打印本页]

作者: 只想知道 时间: 2015-1-16 22:28
标题: ASP网页设计asp+版本复杂的留言板的制造(三)
缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。asp+版本复杂的留言板的制造(三)
/*
豆腐制造，都是佳构
http://www.asp888.net豆腐手艺站
如转载，请保存版权信息
*/
如今该显现了，实在显现是很复杂，只需看过豆腐后面文章的伴侣应当都晓得该怎样写这个程序，可是我在这里要夸大的是分页的程序，我也和人人一样，在入手下手的时分，想使用webform的数据绑定的功效，可是不幸的是，固然用datagrid完成绑定和分页都是很复杂的，可是datagrid明显情势上的Grid明显对留言版如许的程序是不合适的,DBList到是能够合适留言版的程序情势
可是我查找了很长的工夫都没有找到怎样往完成分页的程序厥后在MSDN上找到了PagedDataSource看看他的ClassMember我都心有余悸，一切的我要的分页的功效他都已供应了,可是我在调试的过程当中，却怎样也没法经由过程，估量是和我的PDC版本的缘故原由，这个时分，我就想起了高兴(注：网友称号，他已经倡议我间接安装NGWSbeta1和Vs7beta1)：）

但愿人人假如在Beta1上调试乐成了今后，必定要告知豆腐

没有其余举措，我只好就往用我的老举措，用程序往把持，老天，我不想如许，可是我真的没有其余举措了

人人请看程序:
<%@ImportNamespace="System.Data"%>
<%@ImportNamespace="System.Web.Security"%>
<%@ImportNamespace="System.Web.UI"%>
<%@ImportNamespace="System.Data.SQL"%>
<HTML><HEAD>
<scriptrunat="server"language="VB">
dimsqlReadasSQLDataReader
dimintStartasinteger
dimintLenasinteger
dimintPageCountasinteger
dimintRecCountasinteger
SubPage_Load(SrcAsObject,EAsEventArgs)
DimconnAsSQLConnection
DimCfgasHashTable
DimsqlcmdAsSQLCommand

Cfg=Context.GetConfig("appsettings")
Conn=NewSQLConnection(cfg("Conn"))

dimstrSQLasstring
其实是没有举措，只好如许来取得纪录总数了
依据NGWS的匡助上看仿佛有个PagedDataSource好象功效挺壮大
可是就是不晓得应当怎样利用也没有见过用他的例子
strSQL="selectcount(*)asccountfrommsgBoard"
sqlcmd=NewSQLCommand(strSQL,conn)
sqlcmd.ActiveConnection.Open()
sqlcmd.execute(sqlRead)
sqlRead.Read()
intRecCount=cInt(sqlRead("ccount"))
sqlcmd.ActiveConnection.Close()
strSQL="select*frommsgBoardorderbymsgiddesc"
sqlcmd=NewSQLCommand(strSQL,conn)
sqlcmd.ActiveConnection.Open()
sqlcmd.execute(sqlRead)

ifisNumeric(request.querystring("start"))then
intStart=Cint(request.querystring("start"))本页数据起使地位
else
intStart=0
endif

intLen=10每页必要显现的数据数目
以下盘算以后的纪录的分页页数
if(intRecCountmodintLen)=0then
intPageCount=intRecCount/intLen
else
intPageCount=(intRecCount-(intRecCountmodintLen))/intLen+1
endif
dimiasinteger
将失掉的sqlRead向后挪动start指定的地位
fori=0tointStart-1
sqlRead.read()
next
endsub
subWritePage(startasinteger,fileasstring)
举行分页处置
dimstrWriteasstring
strWrite="<tableborder=1width=100%><tr><td>"
response.write(strWrite)

ifstart=0then
strWrite="首页"
else
strWrite="<ahref="&file&"?start=0>首页</a>"
endif
response.write(strWrite)

ifstart>=1then
strWrite="<ahref="&file&"?start="&cStr(start-intLen)&">上页</a>"
else
strWrite="上页"
endif
response.write(strWrite)

ifstart+intLen<intRecCountthen
还没有到最初一页数据
strWrite="<ahref="&file&"?start="&cStr(start+intLen)&">下页</a>"
else
strWrite="下页"
endif
response.write(strWrite)

ifstart+intLen<intRecCountthen
还没有到最初一页数据
strWrite="<ahref="&file&"?start="&cStr((intPageCount-1)*intLen)&">末页</a>"
else
strWrite="末页"
endif
response.write(strWrite&"</td><td>")

strWrite="以后共有留言"&Cstr(intRecCount)&",如今是第<fontcolor=red>"&cStr((intStart/intLen)+1)&"/"&cstr(intPageCount)&"</font>页"
response.write(strWrite)
strWrite="</td></tr></table>"
response.write(strWrite)
endsub
</script>
<title>豆腐手艺站__aspx分站__检察留言</title>
<linkrel="stylesheet"type="text/css"href="/doufu.css">
</HEAD>
<BODY>
<ahref="http://www.asp888.net">豆腐手艺站</a>亲情贡献<br>
<%
WritePage(intStart,"a.aspx")
dimatEndasboolean
%>
<%fori=0tointLen-1%>
<%
atEnd=sqlRead.read()
ifnotatEndthenexitfor
%>
<divalign=center>
<tableborder=1width=80%>
<tr>
<tdwidth=10%>呢称</td>
<tdwidth=40%><%=sqlRead("nickname")%></td>
<tdwidth=10%>IP地点</td>
<tdwidth=10%><%=sqlRead("IPAddr")%></td>
</tr>
<tr>
<tdwidth=10%>接洽体例</td>
<tdwidth=90%colspan=3><%=sqlRead("email")%></td>
</tr>
<tr>
<tdwidth=10%>留言主题</td>
<tdwidth=90%colspan=3><%=sqlRead("msgTitle")%>----<fontcolor=red><%=sqlRead("msgTime")%></font></td>
</tr>
<tr>
<tdwidth=10%>留言内容</td>
<tdwidth=90%colspan=3><%=server.HTMLEncode(sqlRead("msgContent"))%></td>
</tr>
</table>
</div>
<p></p>
<%next%>
</body>
</html>
终究完了：）

停止语：
在人人看过三篇文章后，全部的留言版的程序也就已全体的讲完了，客不雅的说，经由过程这个程序我们还没法完整的明白asp+给我们带来的一切使人镇静的功效，并且另有良多的功效如今仿佛仍是在宣扬的阶段，可是究竟如今才是Beta1的阶段，信任在正式版本推出的时分，我们能够看到一个全新的面向Web编程的.net平台

由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。

作者: 精灵巫婆 时间: 2015-1-19 13:36
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

作者: 乐观 时间: 2015-1-25 07:25
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

作者: 再见西城 时间: 2015-2-2 17:43
以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

作者: 谁可相欹 时间: 2015-2-8 03:15
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 小妖女 时间: 2015-2-24 03:45
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

作者: 飘灵儿 时间: 2015-3-7 10:41
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

作者: 爱飞 时间: 2015-3-15 00:25
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

作者: 深爱那片海 时间: 2015-3-21 16:01
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

欢迎光临仓酷云 (http://ckuyun.com/)