<p><span >&rsquo;文件内容读取.</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(&quot;ADODB.Stream&quot;)</span><br /> <span >If Err.Number=-2147221005 Then</span><br /> <span >Response.Write &quot;&lt;div align=&rsquo;center&rsquo;&gt;非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序&lt;/div&gt;&quot;</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&lt;&gt;0 Then</span><br /> <span >Response.Write &quot;&lt;div align=&rsquo;center&rsquo;&gt;文件&lt;font color=&rsquo;#ff0000&rsquo;&gt;&quot;&amp;File&amp;&quot;&lt;/font&gt;无法被打开,请检查是否存在!&lt;/font&gt;&lt;/div&gt;&quot;</span><br /> <span >Err.Clear</span><br /> <span >Response.End</span><br /> <span >End If</span><br /> <span >.Charset = &quot;GB2312&quot;</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 >&rsquo;存储内容到文件</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(&quot;ADODB.Stream&quot;)</span><br /> <span >If Err.Number=-2147221005 Then</span><br /> <span >Response.Write &quot;&lt;div align=&rsquo;center&rsquo;&gt;非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序&lt;/div&gt;&quot;</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 = &quot;GB2312&quot;</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>
T:0.012212s,M:246.52 KB
返回顶部 留言