<p><span >’文件内容读取.</span><br />
<span >Function LoadFile(ByVal File)</span><br />
<span >Dim objStream</span><br />
<span >On Error Resume Next</span><br />
<span >Set objStream = Server.CreateObject("ADODB.Stream")</span><br />
<span >If Err.Number=-2147221005 Then</span><br />
<span >Response.Write "<div align=’center’>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"</span><br />
<span >Err.Clear</span><br />
<span >Response.End</span><br />
<span >End If</span><br />
<span >With objStream</span><br />
<span >.Type = 2</span><br />
<span >.Mode = 3</span><br />
<span >.Open</span><br />
<span >.LoadFromFile Server.MapPath(File)</span><br />
<span >If Err.Number<>0 Then</span><br />
<span >Response.Write "<div align=’center’>文件<font color=’#ff0000’>"&File&"</font>无法被打开,请检查是否存在!</font></div>"</span><br />
<span >Err.Clear</span><br />
<span >Response.End</span><br />
<span >End If</span><br />
<span >.Charset = "GB2312"</span><br />
<span >.Position = 2</span><br />
<span >LoadFile = .ReadText</span><br />
<span >.Close</span><br />
<span >End With</span><br />
<span >Set objStream = Nothing</span><br />
<span >End Function</span><br />
<span >’存储内容到文件</span><br />
<span >Sub SaveToFile(ByVal strBody,ByVal File)</span><br />
<span >Dim objStream</span><br />
<span >On Error Resume Next</span><br />
<span >Set objStream = Server.CreateObject("ADODB.Stream")</span><br />
<span >If Err.Number=-2147221005 Then</span><br />
<span >Response.Write "<div align=’center’>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"</span><br />
<span >Err.Clear</span><br />
<span >Response.End</span><br />
<span >End If</span><br />
<span >With objStream</span><br />
<span >.Type = 2</span><br />
<span >.Open</span><br />
<span >.Charset = "GB2312"</span><br />
<span >.Position = objStream.Size</span><br />
<span >.WriteText = strBody</span><br />
<span >.SaveToFile Server.MapPath(File),2</span><br />
<span >.Close</span><br />
<span >End With</span><br />
<span >Set objStream = Nothing</span><br />
<span >End Sub</span></p>