Microsoft VBScript 运行时错误 错误 '800a0046'
......
<%
function txt(d)
dim fs,t1
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath(d)
set t1=fs.opentextfile(file,1,true)
if not t1.atendofstream then
txt=clng(t1.readline)
end if
txt=txt+1
t1.close
set t1=fs.opentextfile(file,2,false)//这是63行
t1.write txt
t1.close
end function
%>
......
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 运行时错误 错误 '800a0046'
没有权限
/jhxf/zxdc/dm.asp，行63
