|
|
#2
2010-05-03 10:45
哪位高手能帮帮忙吗
 |
Microsoft VBScript 运行时错误 错误 '800a0046'
没有权限
/1.asp，行 16
1.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="refresh" content="25;url='1.asp'" />
<base target="footnotes" />
</head>
<body bgcolor="#fdf5e6">
<center><font color="red " size="10" face="隶书">实时答疑</font></center>
<%
filepath=server.MapPath("1.txt")
set fileobject=server.CreateObject("scripting.filesystemobject")
if fileobject.fileExists(filepath) then
set textfile=fileobject.Opentextfile(filepath,8,true,0) /16行
if request("sentence")="" then
else
textfile.writeline"<font color=blue>"& request("users")& "</font>"& " ("&now()&")"&":"&replace(replace(request("sentence"),"<","<"),">",">")
end if
textfile.close
else
set textfile=fileobject.createtextfile(filepath)
textfile.writeline(now())
textfile.close
end if
set textfile=fileobject.opentextfile(filepath ,1,false,0)
do while not textfile.atendofstream
response.write textfile.readline&"<br>"
loop
textfile.close
%>
</body>
</html>
在百度搜过 修改过scrrun.dll文件，设置属性中的安全，加入user组，并给予读取和运行、读取。还是没用 求高手帮帮忙~~~
