......
<%
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