myresource - 2008-1-3 23:45:00
发布失败，请与管理员联系。
返回错误描述如下：
| 无法显示网页 |
| 试图访问的网页出现问题，无法显示。 |
请尝试执行下列操作：
- 单击刷新按钮，或稍后重试。
- 打开 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务技术信息（用于支持人员）
- 错误类型：
Microsoft VBScript 运行时错误 (0x800A0046)
没有权限
/syadmin/PublicSite/Public_Function.asp, 第 637 行 - 浏览器类型：
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Poco 0.31; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; Embedded Web Browser from: http://bsalsa.com/; .NET CLR 1.1.4322) - 网页：
GET /syadmin/PublicSite/Public_Refresh.asp
|
myresource - 2008-1-5 01:08:00
出错的这个文件里第637行是这个函数。
我把出错的参数变量值输出后发现response.write(f_LocalFileName)这个值是“/”
response.write(f_Content)这个值是“模板不存在，请添加模板后再生成！”
想问问大家及斑主怎么回事，谢谢。
Sub FSOSaveFile(f_Content,f_LocalFileName)
Dim f_FILE_OBJ,f_FILE_PIONTER_OBJ
Set f_FILE_OBJ = Server.CreateObject(G_FS_FSO)
response.write(f_LocalFileName)
response.write(f_Content)
response.end
Set f_FILE_PIONTER_OBJ = f_FILE_OBJ.CreateTextFile(Server.MapPath(f_LocalFileName),True)
f_FILE_PIONTER_OBJ.Write f_Content 'Replace(f_Content,Webdomain,"")
f_FILE_PIONTER_OBJ.Close
Set f_FILE_PIONTER_OBJ = Nothing
Set f_FILE_OBJ = Nothing
End Sub