【发布时间】:2017-11-22 10:13:56
【问题描述】:
您好,我希望每天早上 9 点运行以下代码。基本上,代码会从每一行读取一个 txt 文件。它将处理并插入到 Mysql 表中。我该如何做到这一点?我找到了以下Make server automatic run asp-script every day,但它不起作用。请帮忙。
<%
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)
%>
【问题讨论】:
-
将代码复制到 VBS 文件中,将 Server.CreateObject 的所有引用更改为仅 CreateObject,设置您的工作,一切顺利。
标签: vbscript asp-classic taskscheduler