 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
昨天我问过这个问题,不过没人回答到点上,今天搞定了.贴出来给觉得有用的朋友,希望其他朋友不用走弯路. \\\'文件内容读取. Function LoadFile(ByVal File) Dim objStream On Error Resume Next Set objStream = Server.CreateObject("ADODB.Stream") If Err.Number=-2147221005 Then Response.Write "<div align=\\\'center\\\'>异常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>" Err.Clear Response.End End If With objStream .Type = 2 .Mode = 3 .Open .LoadFromFile Server.MapPath(File) If Err.Number<>0 Then Response.Write "<div align=\\\'center\\\'>文件<font color=\\\'#ff0000\\\'>"&File&"</font>无法被打开，请检查是否存在!</font></div>" Err.Clear Response.End End If .Charset = "GB2312" .Position = 2 LoadFile = .ReadText .Close End With Set objStream = Nothing End Function \\\'存储内容到文件 Sub SaveToFile(ByVal strBody,ByVal File) Dim objStream On Error Resume Next Set objStream = Server.CreateObject("ADODB.Stream") If Err.Number=-2147221005 Then Response.Write "<div align=\\\'center\\\'>异常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>" Err.Clear Response.End End If With objStream .Type = 2 .Open .Charset = "GB2312" .Position = objStream.Size .WriteText = strBody .SaveToFile Server.MapPath(File),2 .Close End With Set objStream = Nothing End Sub 返回类别: 教程 上一教程: 使用命名管道访问SQL SERVER 下一教程: BBS的数据结构和存储过程(三) 您可以阅读与"用ADODB.STREAM代替FSO读取文本文件"相关的教程: · 从文本文件中读取信息并存储入数据库 · 怎样读取一个文本文件的内容? · 读取一个文本文件的内容 · ASP中文本文件与数据库文件的数据交换(FSO) · 怎样读取一个文本文件的内容 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
