问是否使用任务计划程序运行ASP文件？

EN

  <%
    strFileName = "database/testdata.txt"                                        

    Set fso = Server.CreateObject("Scripting.FileSystemObject") 
    set fs = fso.OpenTextFile(Server.MapPath(strFileName), 1, true) 
    if not fs.AtEndOfStream then
        Do while not fs.AtEndOfStream 
            strRow = fs.ReadLine
            sDate = Mid(Trim(strRow), 1, 8)

            Set rstTMClk1 = server.CreateObject("ADODB.RecordSet")    '=== Transfer from file to TMCLK1
            sSQL = "select * from TMCLK1 '" 
            rstTMClk1.Open sSQL, conn, 3, 3
            if rstTMClk1.eof then '=== To avoid duplicates
                sSQL = "insert into TMCLK1 (DT_WORK) "
                sSQL = sSQL & "values ("
                sSQL = sSQL & "'" & fdate2(sDate) & "'"     
                sSQL = sSQL & ") "
                conn.execute sSQL
            end if
            pCloseTables(rstTMClk1)
        Loop
    end if
    pCloseTables(fs)
%>