ASP错误解决:800a003a错误

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

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

您可能感兴趣的文章：
ASP错误解决:800a003a错误
asp Provider 错误 '80004005'解决办法
MicrosoftVBscript运行时错误
Asp开发中常见错误提示及其意义说明
AspError(err)对象详解
asp错误提示ADODB.Connection 错误 '800a0e7a'
ASP 3.0高级编程（三十一）
MicrosoftVBscript运行时错误（完整版）共121个
iis php提示An error occurred on the server when processing the URL
请求对象错误 'ASP 0104 : 80004005′