• IIS 7 应用程序池自动回收关闭的解决方案


    如果你正在做ASP.NET,那肯定会用到IIS

    如果你想在ASP.NET Application中加入某个定时任务,那想必一定是用一个线程在不停地做定时计算

    那假设我们在自己的ASP.NET应用程序中加入了Quartz.NET框架,并且配置等等都OK了。

    这个站点访问量很少,现在只有几个人上班的时候才会使用,结果第二天过来一看,后台调度的线程和计算任务都停止了,如果你抓取了Application_End事件,会发现这个事件居然被调用了。

    那一定是IIS的应用程序池回收的机制在作怪了。因为IIS的默认设置里面,如果一个站点所处的应用程序池超过一段时间没有被访问或者请求,IIS就会自动回收这个程序池,并且把进程杀掉。那进程里面的线程肯定也活不下来了。

    但是我们可以通过设置应用程序池参数使其不会被简单的自动回收(有些情况无法避免,比如热部署的站点,错误数量超限等等)

    在IIS中找到这个站点所用的程序池,点击“高级设置...”

    在打开的列表中更改以下设置:

    回收——固定时间间隔(分钟) 改为 0

            ——虚拟/专用内存限制(KB) 改为 0

    进程模型——闲置超时(分钟) 改为 0

    这样子,一般情况下程序池就不会被自动回收了,后台一些简单的计算线程就会正常工作


    我的网站有大量用户数据交换,需要保存很多临时数据,所以为了使网站更快,我用到很多 Application,但是很多时候莫明其妙的Application 数据丢失了,使得网站无法再保证正确运行,在网站搜了好多久,大家说是因为应用程序池被收回了,所在我想,主动按一定时间在服务器自动回收之前用我做个程序回收,保证Application数据不丢失,请高手写出完整asp代码,如果问题得到很好的解决,我可以考虑付您人民币
    如果这样asp 页面不能实现,请给我一个很好解决Application 数据丢失的问题,Application 必须要用,用数据库解决的话网站太慢了


    首先要给WScript.Shell权限,因为这个组件太危险,所以一般情况是禁止的,如果定时执行回收进程池可以计划任务中添加指定时间激发一个IIS.vbs(回收进程)

    IIS.vbs代码如下
    set WebAppPool = GetObject("IIS://LocalHost/w3svc/AppPools/DefaultAppPool")
    WebAppPool.Stop
    WebAppPool.Start
    set WebAppPool=Nothing




    网站由于使用比较多的缓存,有时会出现缓存错误,导致程序异常,这个时候需要回收一个应用程序池就可以了。
    以前每次都是通过远程桌面连接到服务器,然后在应用程序池上右击》回收,感觉比较麻烦,于时找了如下的一个办法来实现。
    其实就是普通的一个asp.net页面,加上一个按钮,进行回收,主要程序如下:
    复制代码
    复制代码
     1 
     2     protected void StartStopRecycleApp(string method)
     3     {
     4         string AppPoolName = this.tbAppName.Text.Trim();
     5         //string method = "Recycle";
     6 
     7         try
     8         {
     9             DirectoryEntry appPool = new DirectoryEntry("IIS://localhost/W3SVC/AppPools");
    10             DirectoryEntry findPool = appPool.Children.Find(AppPoolName, "IIsApplicationPool");
    11             findPool.Invoke(method, null);
    12             appPool.CommitChanges();
    13             appPool.Close();
    14             lbMsg.Text = string.Format("应用程序池{0}{1}成功", AppPoolName,method);
    15         }
    16         catch (Exception ex)
    17         {
    18             lbMsg.Text = string.Format("应用程序池{0}{2}失败:{1}", AppPoolName, ex.Message,method);
    19         }
    20     }
    复制代码
    复制代码

    tbAppName是一个textbox,用来输入应用程序池的名字,如“DefaultAppPool”。
    当method="Recycle"时就是回收,为“Start”时是启动,为“Stop”时是停止。

    注意:
    1. 必须引入System.DirectoryServices包
    2. 运行此程序的应用程序也的用户必须权限比较高,可以单独为此程序提供应用程序程,或者建立一个虚拟目录在配制里模拟高级用户(如administrators或者system),否则应用程序会抛出“拒绝访问”的异常。








    应用程序池在使用一段时间后需要回收,想用程序来控制,就用vbs实现了以下代码,在asp上一样运行。

    set apppools = GetObject("IIS://LocalHost/W3SVC/AppPools")
    for each apppool in apppools
    msgbox apppool.name
    apppool.recycle
    next

    上面的程序在安装有iis的服务器上面运行,即可弹出所有的应用程序池,想回收指定的应用程序池,只需要判断相应的apppool.name即可。

    后面是在网上(suntw.com)找到的相关操作iis的vbs脚本。
    '设置应用程序池的属性
    function SetAppPoolSetting(AppPoolName,Values)
        SetAppPoolSetting=false
        Set apps=GetObject("IIS://localhost/w3svc/AppPools/"&AppPoolName)
        SetValue=split(Values,"|")
        apps.CpuLimit=int(SetValue(1))*1000'最大CPU百分比
        apps.CPUAction=SetValue(2)'超过处理方式0忽略1关闭
        apps.PeriodicRestartMemory=int(SetValue(3))*1024'虚拟内存
        apps.PeriodicRestartPrivateMemory=int(SetValue(4))*1024'物理内存
        apps.PeriodicRestartTime=SetValue(5)'回收时间
        apps.SetInfo
        set apps=nothing
        SetAppPoolSetting=true
    end function
     
    '创建一个池并设置属性
    '================================================================
    function CreateAppPool(NewAppPoolName)
        Set AppPools = GetObject("IIS://localhost/W3SVC/AppPools")
        set NewPool = AppPools.Create("IIsApplicationPool", NewAppPoolName)
        NewPool.AppPoolIdentityType = 2'预定义账户0本地系统1本地服务2网络服务
        NewPool.PeriodicRestartMemory = 512 * 1000 '最大虚拟内存使用值
        NewPool.PeriodicRestartPrivateMemory = 500 * 1000 '500物理内存限制'
        NewPool.CPUAction = 0'超过CPU不操作,1就是超过cpu就关闭。
        NewPool.CPULimit = "80000"'最大80%的CPU
        NewPool.PeriodicRestartTime = 180'内存回收时间(分钟)
        NewPool.CPUResetInterval = 2'刷新CPU使用率值(分钟)
        NewPool.AppPoolAutoStart = true'自动启动此池
        NewPool.SetInfo
        Set AppPools = nothing
        set NewPool = nothing
        if err.number=0 then CreateAppPool=true
    end function
  • 相关阅读:
    虚拟化技术
    软件产业的知识经济 (蔡学墉)
    关于内存对齐
    Reverse Engineering
    [转]今天的操作系统 
    BasicBIOS & CMOS
    [bbk5355]第18集 Chapter 08 Handling Exceptions(01)
    [bbk1452]第1集 在Apache中使用SSL
    Linux>User Manager
    如何更新linux系统时间
  • 原文地址:https://www.cnblogs.com/cuihongyu3503319/p/9173439.html
Copyright © 2020-2023  润新知