http://access911.net/getnews/doc1.asp?mode=a&aid=4939537我和这个人的问题是一样的,,你仔细看一下吧,,怪动网,不怪我..
另外,,这是更新缓存的程序,,我不知道怎么让他自动运行,而且不在前台显示..
<%
'-------------------------------------------
' Dvbbs System Update Software Tools
' ClearCache File 
' 动网先锋 [AspSky Software, Inc.]
' ScriptEditor Fssunwin
' 2005-03-25
'-------------------------------------------
Call RemoveAllCache()
Sub RemoveAllCache()
    Dim cachelist,i
    Call InnerHtml("UpdateInfo","<b>开始执行清理当前站点缓存</b>:")
    Cachelist=split(GetallCache(),",")
    If UBound(cachelist)>1 Then
        For i=0 to UBound(cachelist)-1
            DelCahe Cachelist(i)
            Call InnerHtml("UpdateInfo","更新 <b>"&cachelist(i)&"</b> 完成")
        Next
        Call InnerHtml("UpdateInfo","更新了"& UBound(cachelist)-1 &"个缓存对象<br>")
    Else
        Call InnerHtml("UpdateInfo","<b>当前站点全部缓存清理完成。</b>。")
    End If
End Sub
Function  GetallCache()
    Dim Cacheobj
    For Each Cacheobj in Application.Contents
        GetallCache = GetallCache & Cacheobj & ","
    Next
End Function
Sub DelCahe(MyCaheName)
    Application.Lock
    Application.Contents.Remove(MyCaheName)
    Application.unLock
End Sub
Sub InnerHtml(obj,msg)
    Response.Write "<li>"&msg&"</li>"
    Response.Flush
End Sub
%>
高手们帮我一下.