原来的代码：
| 以下为引用的内容： 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 ... |
