我想问下我买了个虚拟空间,发现不支持FSO对象,我怎么用ASP读取TXT文件呢?
如果虚拟空间不支持FSO,还想读取TXT文本文件的话,那就是使用ASP的另一个对象:ADODB.Stream,下面来以一个演示代码来演示使用ADODB.Stream读取文本文件的用法。
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