检测函数 asp class

path_level = Ubound(patharr)
Dim i
For i = 0 to path_level
If i = 0 Then
pathtmp = patharr(0) & "/"
Else
pathtmp = pathtmp & patharr(i) & "/"
End If
cpath = Left(pathtmp,Len(pathtmp)-1)
If Not FileObject.FolderExists(Server.MapPath(cpath)) Then FileObject.CreateFolder(Server.MapPath(cpath))
Next
Set FileObject=Nothing
If Err.Number<>0 then
Err.Clear
CheckFolder = False
Else
CheckFolder = True
End If
End Function

Public Function WriteCache(appName, Value)
Application.Lock
Application(appName) = Value
Application.Unlock
End Function

Public Function ClearCache(appName)
Application.Lock
Application.Contents.Remove(appName)
Application.UnLock
End Function

Public Sub OutputJavaInfo(Message)
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
Response.ContentType = "application/x-javascript"
Response.Write "document.getElementById(""updateinfo"").innerHTML = """ & Message & """;"
Response.End
End Sub

Public Sub OutputinterHtml(Message, ShowType)
Response.Write Message
If ShowType = 1 Then
Response.Flush
Else
Response.End
End If
End Sub
End Class
%>