让ASP程序自动运行的代码

  这要用到计划任务,首先假定你这个程序的地址为“http://1.0.0.8/a.asp”,那么你编辑如下内容:

  

复制代码 代码如下:

  Dim IE

  Set IE = CreateObject("InternetExplorer.Application")

  ie.navigate("http://1.0.0.8/a.asp")

  ie.visible=1

  Set IE = Nothing

  存储成一个vbs后缀的文件,比如test.vbs。

  在windows的管理工具——服务中启动“计划任务”服务。

  在控制面板的“任务计划”中,双击“添加任务计划”。

  点“下一步”。

  点“浏览”,找到并选择你保存的VBS文件。

  选择“每天”,点“下一步”。

  点“下一步”。

  输入你当前用户的登陆密码,点“下一步”。

  点“完成”。

  在任务计划中找到你新建的计划,双击它。

  在“计划”中点“高级”。

  选中“显示多项计划”。

  点“删除”,再点“新建”。

  将“开始时间”改为3:00,再点“新建”。

  将“开始时间”改为8:50,再点“新建”。

  将“开始时间”改为18:00,点“确定”。

  计划配置完了,最后在你定时执行的程序的最后加上如下关闭窗口的代码:

  <script language=javascript>

  window.opener='';

  window.close();

  </script>