Reference to other documents modified, the website finally returned to normal, do not understand the procedure, so do not know the principle, is generally added to judge it.
The original code:
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
...
Modified code:
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