利用VBS执行asp程序,实现站点定时更新|百信语网络学院

09-0208 利用VBS执行asp程序,实现站点定时更新 所属栏目: VB编程关注热度: ℃ 出处: 作者: Plus

一直在琢磨怎么让一个站点在晚上负荷小的时候,定时自动更新，不会写windows进程，所以用VBS写了一个。
设置好指定时间，弹出一个IE去执行一个ASP的WEB脚本程序，然后关闭IE(关闭IE要在这个WEB脚本程序里面用javascript执行)
代码如下，另存为.VBS文件即可。然后让这个VBS文件随服务器启动。

引用

Dim t
Dim IE
t="23:09:00"
Sub runit()
If CStr(Time)=t Then
Call updateit()
End if
End Sub
Sub updateit()
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate("http://xxxx/xxx.asp")
IE.visible=1
Set IE = Nothing
End Sub

Do
Call runit()
WScript.Sleep 1000
Loop

收藏到：