<!--#include file="setting/conn.asp"--><%:DoDelCahe:SoonBiz.adsuccess("<li>安装成功!</li><li><a href=""../index.asp"">点击这里返回道页</a></li>"):SoonBiz.adfoot:setallnothing:Sub DoDelCahe():Dim i:Dim objFSO:Set objFSO=Server.CreateObject(FsoObjName)
If objFSO.FolderExists(server.mappath(webdir&"wedonetcache/")) Then
objFSO.DeleteFolder server.mappath(webdir&"wedonetcache/"),True
End If:objFSO.CreateFolder(Server.MapPath(webdir&"wedonetcache/")):For i=1 To 1000:objFSO.CreateFolder(Server.MapPath(webdir&"wedonetcache/"&i*1000&"/")):Next:Set objFso=Nothing:SoonBiz.Loadstyle():SoonBiz.loadcachenum (0):End Sub
%>