当前位置:96看吧 > 技术文档 > ASP编程 > ASP常用的清理函数

ASP常用的清理函数

时间:2008/10/21
作者:佚名
来源:网络转载
查看:
标签:asp函数

<%
'功能:可以按前缀清理Application的东东
Public WriteRemoveApplication
Function RemoveApplication(sString)
    On Error Resume Next
    sString = BStr(sString)
    Dim aApplicationArray, x, i, j
    i = -1
    ReDim aApplicationArray(i)
    For Each x in Application.Contents
        If Left(x, Len(sString)) = sString Then
            i = i + 1
            ReDim Preserve aApplicationArray(i)
            aApplicationArray(i) = x
        End If
    Next
    For j = 0 To i
        Application.Lock
        Application.Contents.Remove(aApplicationArray(j))
        If WriteRemoveApplication Then WriteLn "<br />释放 <strong>" & aApplicationArray(j) & "</strong> 完成<br />"
        Application.unLock
    Next
    If WriteRemoveApplication Then WriteLn "<br />所有对象已经更新,共释放了 <strong>" & j & "</strong> 个缓存对象.<br />"
End Function
%>
 

上一篇:ASP获得某字符出现的次数函数
下一篇:asp判断是否用了代理访问
页面举报
Report
关闭页面
Close
收藏页面
Favorites
分享页面
Share
版权信息:栏目内,站内会员所分享的全部“资源/素材/文章”,仅供学习与参考,版权为原作者所有。
下载提示:非注册用户每天可下载一个文件,已注册会员不受限制。
网友评论
数据载入中
验证码
  • 请您注意:
  • ·请不要在评论中含与内容无关的广告链接。
  • ·不良评论请用报告管理员,以利管理员及时删除。
  • ·遵守中华人民共和国的各项有关法律法规
  • ·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • ·本站管理人员有权保留或删除评论中的任意内容
  • ·您在本站发表的作品,本站有权在网站内转载或引用
  • ·参与本评论即表明您已经阅读并接受上述条款
相关最新
相关热门