以下是代码片段: 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 ...