K
kyq
Unregistered / Unconfirmed
GUEST, unregistred user!
环境：Windows 2000 Server+IIS V5.0+Delphi V5.0 Service Pack 1
Web Server主机名称为Web1，
要访问的文件所在主机名称为kyq，
ASP组件(DLL)位于Web1上。
ASP组件有一个方法Method1:
function Tabc.Method1:WideString;safecall;
var
ls:TStrings;
begin
ls:=TStringList.Create;
try
try
ls.LoadFromFile('//kyq/share/abc.txt');
Result:='OK!!!!';
except
on e:Exceptiondo
Result:=e.Message;
end;
finally
ls.Free;
end;
end;
写一ASP文件：
<html>
<body>
<%
Dim abc
Set abc=Server.CreateObject("Project1.abc")
Response.Write abc.Method1&"<br>"
%>
<p>That's all</p>
</body>
</html>
运行ASP时，显示无法打开文件//kyq/share/abc.txt，经跟踪，Win32 Error Code为5，即Access is denied(禁止访问)。
1. 若//kyq/share/abc.txt换成//web1/share/abc.txt或c:/share/abc.txt则正常。
2. 若ASP组件在Web Server之外运行，即由其它宿主运行时，一切正常。
请问如何解决？
Web Server主机名称为Web1，
要访问的文件所在主机名称为kyq，
ASP组件(DLL)位于Web1上。
ASP组件有一个方法Method1:
function Tabc.Method1:WideString;safecall;
var
ls:TStrings;
begin
ls:=TStringList.Create;
try
try
ls.LoadFromFile('//kyq/share/abc.txt');
Result:='OK!!!!';
except
on e:Exceptiondo
Result:=e.Message;
end;
finally
ls.Free;
end;
end;
写一ASP文件：
<html>
<body>
<%
Dim abc
Set abc=Server.CreateObject("Project1.abc")
Response.Write abc.Method1&"<br>"
%>
<p>That's all</p>
</body>
</html>
运行ASP时，显示无法打开文件//kyq/share/abc.txt，经跟踪，Win32 Error Code为5，即Access is denied(禁止访问)。
1. 若//kyq/share/abc.txt换成//web1/share/abc.txt或c:/share/abc.txt则正常。
2. 若ASP组件在Web Server之外运行，即由其它宿主运行时，一切正常。
请问如何解决？