如何讓ASP程式自動執行

穩萊

如何讓ASP程式自動執行

把以下文字存成vbs檔,執行看看^^
'---------------------------------
Set IE = CreateObject("InternetExplorer.Application")
URL="http://www.yam.com.tw"
IE.Visible = True
IE.navigate URL
WaitPage
If IE.document.forms.length>0 Then
IE.document.forms.item(0).submit
End If

IE.Quit

Function WaitPage()

While IE.Busy
WScript.Sleep 500
Wend
WScript.Sleep 500
End Function

註解一下.

'開啟物件
Set IE = CreateObject('InternetExplorer.Application')
'下面這一行就是要自動執行的那頁網頁
URL='http://www.yam.com.tw'
'下面這一行如果設為False,則執行過程就不會跳出IE,不知不覺地執行了
IE.Visible = True
IE.navigate URL
WaitPage
'以下這兩行楊該是要將網頁中的form送出,
'如果網頁中沒有form就可以不用
If IE.document.forms.length>0 Then
IE.document.forms.item(0).submit
End If

IE.Quit

Function WaitPage()

While IE.Busy
WScript.Sleep 500
Wend
WScript.Sleep 500
End Function

將以上文字存成附檔名為vbs的檔案,然後點兩下就可以看到效果了.
用windows排程就可以定期自動執行.
若有不只一隻asp要自動執行的話,可以開一個文字檔,
把要自動執行的asp一行一行的寫在裡面.
改寫上面的程式,用開檔+迴圈把要執行的asp一一餵給變數URL.
這樣太方便了!我想要這樣想很久了!
ps:開檔或是其他的WSH功能,上網找有很多.

 給當前日誌評分:
Loading Vote
正在讀取評分資料...


文章來自: Tank部落格
引用通告: 查看所有引用 | 我要引用此文章
Tags: 自動執行
相關日誌:

評論: 1 | 引用: 0 | 查看次數: -
回覆回覆ironman[2009-12-20 06:07 PM | del]
我執行會產生錯誤ㄝ
發表評論
暱 稱:
密 碼: 遊客發言不需要密碼.
內 容:
驗證碼: 驗證碼
選 項:
雖然發表評論不用註冊,但是為了保護您的發言權,建議您註冊帳號.