|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。asp+版本复杂的留言板的制造(二)
/*
豆腐制造,都是佳构
http://www.asp888.net豆腐手艺站
如转载,请保存版权信息
*/
在留言的录进界面完成后,天然要筹办做留言内容的录进了。这个个中一个很关头的中央就是怎样将我们在config.web的内容读掏出来,我用了上面的几条语句
DimCfgasHashTable
Cfg=Context.GetConfig("appsettings")
Conn=NewSQLConnection(cfg("Conn"))
如许就失掉了我们在config.web中设定的毗连串,程序以下
<%@ImportNamespace="System.Data"%>
<%@ImportNamespace="System.Data.SQL"%>
<scriptrunat="server"language="VB">
SubPage_Load(SrcAsObject,EAsEventArgs)
DimconnAsSQLConnection
DimCfgasHashTable
Cfg=Context.GetConfig("appsettings")
Conn=NewSQLConnection(cfg("Conn"))
dimstrSQLasstring
dimstrNickNameasstring
dimstrMailasstring
dimstrTitleasstring
dimstrContentasstring
dimstrIPAddrasstring
strNickName=replace(request.form("txtName"),"","")
strEmail=replace(request.form("txtMail"),"","")
strTitle=replace(request.form("txtTitle"),"","")
strContent=replace(request.form("txtContent"),"","")
strIPAddr=Request.ServerVariables("REMOTE_ADDR")用户IP地点
strSQL="insertintomsgBoard(nickname,email,ipAddr,msgTime,msgTitle,msgContent)values("
strSQL=strSQL&""&strNickName&","&strEMail&","&strIPAddr&",getdate(),"&strTitle&","&strContent&")"
response.write(strSQL)
DimCmdAsSQLCommand
Cmd=NewSQLCommand(strSQL,conn)
Cmd.ActiveConnection.Open()
Cmd.Execute()
Cmd.ActiveConnection.Close()
Response.Redirect("showmsg.aspx")
endsub
</script>
人人实在一看,就晓得这段程序实在和asp的程序没有甚么区分嘛,对了,随着MS的独一的优点就是他们在晋级的时分老是对他们的之前的体系举行了很好的兼容,除由于援用了ado.net而使得数据库的操纵改动的对照多之外,其他的代码基础上都没有甚么年夜的改动,糟说道这里就说错了一句话,不是没有甚么年夜的修改,变更仍是很年夜的,只不外对之前兼容了,我们如许的复杂的使用,仿佛也不会牵涉到甚么庞大的改动的:)
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊! |
|