stream的问题

[wafeng]

下面这段读取文本内容的代码总是报错：
错误类型：
Microsoft OLE DB Service Components (0x80040E09)
错误位置：
/check/1.asp, 第 3 行
错误描述：
许可权被拒绝。
代码如下：
<%
set stm=Server.CreateObject("adodb.stream")
stm.open "url=http://localhost/check/eml1.txt",admoderead,8
stm.charset="ascii"
Response.Write stm.readtext
%>
我将iis的所有权限都设置上了，依然如故。在家试的时候从来没遇到过此问题

[xieyj]

请参见以下这个函数:
'使用 AdoStream 载入文件
Function LoadFile(ByVal File)
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Mode = 3
.Open
.LoadFromFile Server.MapPath(File)
.Charset = "GB2312"
.Position = 2
LoadFile = .ReadText
.Close
End With
Set objStream = Nothing
End Function

使用:LoadFile(文件名)

[wafeng]

用loadfromfile好用，可是我的方法没什么错误，为什么不行呢，下面是2003server的报错：
Microsoft OLE DB Service Components 错误 '80040e19'
在此操作范围内，没有发现和目标，数据匹配的名称，范围，或选择条件。
/1.asp，行 6

难道是需要给open加上账号和密码？

[wafeng]

而且读出的内容第一个字符是乱码"~",有时候，则是"?t"，不知这该如何解决

[wafeng]

up