|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。ado|fso|stream今天我问过这个成绩,不外没人回覆到点上,明天弄定了.贴出来给以为有效的伴侣,但愿其他伴侣不必走弯路.
文件内容读取.
FunctionLoadFile(ByValFile)
DimobjStream
OnErrorResumeNext
SetobjStream=Server.CreateObject("ADODB.Stream")
IfErr.Number=-2147221005Then
Response.Write"<divalign=center>十分遗憾,您的主机不撑持ADODB.Stream,不克不及利用本程序</div>"
Err.Clear
Response.End
EndIf
WithobjStream
.Type=2
.Mode=3
.Open
.LoadFromFileServer.MapPath(File)
IfErr.Number0Then
Response.Write"<divalign=center>文件<fontcolor=#ff0000>"&File&"</font>没法被翻开,请反省是不是存在!</font></div>"
Err.Clear
Response.End
EndIf
.Charset="GB2312"
.Position=2
LoadFile=.ReadText
.Close
EndWith
SetobjStream=Nothing
EndFunction
存储内容到文件
SubSaveToFile(ByValstrBody,ByValFile)
DimobjStream
OnErrorResumeNext
SetobjStream=Server.CreateObject("ADODB.Stream")
IfErr.Number=-2147221005Then
Response.Write"<divalign=center>十分遗憾,您的主机不撑持ADODB.Stream,不克不及利用本程序</div>"
Err.Clear
Response.End
EndIf
WithobjStream
.Type=2
.Open
.Charset="GB2312"
.Position=objStream.Size
.WriteText=strBody
.SaveToFileServer.MapPath(File),2
.Close
EndWith
SetobjStream=Nothing
EndSub
</p>ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失; |
|