客家人在深圳

« Microsoft VBScript 运行时错误 错误 '800a003a' | 返回首页 | 简单修改了一下侧栏的布局 »

2007年12月28日

总算解决了错误 '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
...

Posted by Yczhang at 0:19:45 | 网页制作| Comments (1)

Comments