Microsoft VBScript 运行时错误 错误 '800a0046'
没有权限
/admin/system.asp，行 30
<%Admin="System"%>
<!--#include file="check.asp"-->
<!--#include file="zcm.asp"-->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>系统设置 </title>
<style>
td{font-size:9pt;line-height:160%}
body{font-size:9pt;line-height:160%}
a:link { color: #0033CC; text-decoration: none }
a:visited { color: #0033CC; text-decoration: none }
a:active { color: #4D9CC8; text-decoration: none }
a:hover { color: #4D9CC8; text-decoration: underline}
</style>
</head>
<body topmargin="1">
<div align="center">
<center>
<%
if request("type")="save" then
if request("webtime")<>"" then
webtime=request("webtime")
else
webtime=0
end if
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = fs.CreateTextFile(Server.MapPath("config.asp"), True) 第三十行
TS1.writeline "<"&chr(37)
