让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>