当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP错误解决:800a003a错误

ASP
ASP基础讲座(下)
解决IIS5 HTTP500内部错误
ASP 3.0高级编程(四十六)
ASP 3.0高级编程(四十五)
ASP 3.0高级编程(四十四)
ASP 3.0高级编程(四十三)
ASP 3.0高级编程(四十二)
ASP 3.0高级编程(四十一)
ASP 3.0高级编程(三十九)
ASP 3.0高级编程(三十八)
ASP 3.0高级编程(三十七)
ASP 3.0高级编程(三十六)
ASP 3.0高级编程(三十五)
ASP 3.0高级编程(三十四)
ASP 3.0高级编程(三十三)
ASP 3.0高级编程(三十二)
ASP 3.0高级编程(三十一)
ASP错误代码说明
jscript错误代码及相应解释大全
ASP错误处理

ASP错误解决:800a003a错误


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-28   浏览: 109 ::
收藏到网摘: n/a

参照其他文件修改的,网站终于恢复正常,不懂程序,所以不知道原理,大致是加个判断吧。
原来的代码:

For p=1 to mpage step 1
dim fso,ktemplate,kyp
set fso=createobject("scripting.filesystemobject")
set ktemplate=fso.opentextfile(server.mappath("../muban/create_html.asp"))
kyp=ktemplate.readall
ktemplate.close
set ktemplate=nothing
fso.CreateFolder(server.mappath("..\diqu"&address))
if s_id=0 then
...

修改后的代码:

For p=1 to mpage step 1
dim fso,ktemplate,kyp
set fso=createobject("scripting.filesystemobject")
set ktemplate=fso.opentextfile(server.mappath("../muban/create_html.asp"))
kyp=ktemplate.readall
ktemplate.close
set ktemplate=nothing
if fso.FolderExists(server.mappath("..\diqu"&address)) then
'
else
fso.CreateFolder(server.mappath("..\diqu"&address))
end if
if s_id=0 then
...