跳到主要內容

[Asp.net] 在asp.net中加入排程功能

在web的程式中
通常程式要被觸發 是要有使用者進入該網址才會有
但如果想要website的程式在某個時間可以執行某個程序
可以把在Global.asax中 加入Threading.Timer
這樣可以設定在Application啟動後 每隔一段時間去執行某個程序
而不需要有使用者登入web才觸發行為

用法如下


imports System.Web.SessionState
Imports System.Threading
Imports System.IO
Public Class Global_asax
    Inherits System.Web.HttpApplication
    Dim logTimer As Timer

    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the application is started
        Dim are As New AutoResetEvent(False)
        Dim tcb As New TimerCallback(AddressOf writelog)
        logTimer = New Timer(tcb, are, 10000, 60000)
    End Sub
    '在系統資料夾下寫入log
    Public Sub writelog()
        '系統程式的路徑
        Dim u As String = System.Web.Hosting.HostingEnvironment.ApplicationPhysicalPath()
        Dim filePath As String = u & Now.ToString("yyyyMMdd") & "log.txt"
        Application("test") = filePath & " @" & Now.ToString()
        Dim sw As New StreamWriter(filePath, True)
        Application("test2") = "W succsee"
        sw.WriteLine(Now)
        sw.Close()
    End Sub

End Class

留言

這個網誌中的熱門文章

[WEB]連線 HTTPS 網站發生驗證失敗導致基礎連接已關閉

某支透過 WebClient 物件去呼叫第三方API的程式,突然有天無法使用 經過測試出現下列的錯誤 基礎連接已關閉: 傳送時發生未預期的錯誤。 InnerException : 驗證失敗,因為遠端群體已經關閉傳輸資料流。 原來是第三方的服務已經不支援 TLS 1.0 我方的程式是用.net Framework 4.0開發了 得強制讓webclient改用 TLS 1.1 或 TLS 1.2 感謝黑大提供解決方法 在程式中加入 ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12  的設定就解決了這個問題 WebClient wc = new WebClient(); ServicePointManager.SecurityProtocol = SecurityProtocolType.Ssl3 | SecurityProtocolType.Tls | SecurityProtocolType.Tls11 | SecurityProtocolType.Tls12; 參考資料:暗黑執行緒

[SQL] SQL依照你的排序條件 找出目前資料的前一筆與下一筆。 Find Pre and Next DataRows of current Datarow by your order condition

有時候需要用SQL找出前一筆跟後一筆資料 用SQL的TOP是沒有辦法做到 這個時候就可以這個語法 select * from ( SELECT TOP 1 * FROM [Article] where Poid {CurrentPoid} order by CreateDate ASC) t2 找出目前PK id前一個與後一個的資料(依照想要排序順序) 那如果指示想要一個資料行呈現的話 可以改用下面的SQL語法 讓這兩筆資料join在同一筆 select Pre.*,Nex.* from (SELECT TOP 1 * ,1 tID FROM [dbo].[Article] where Poid {CurrentPoid} order by CreateDate ASC) Nex on Pre.tID=Nex.tID

Win10電腦 強制開啟IE瀏覽器 by VB script

 用Notapad寫下以下的內容 With CreateObject("InternetExplorer.Application") .visible = True .Navigate [Url]           .Left = 0           .Top = 0           .Height = 1024           .Width = 1280 End With 然後存檔成 .vbs 檔案 之後點選檔案就會自動啟動IE 目前測試過在WIN10 版本能正常執行