您所在位置：主题：帮忙看一下代码
huangyu_00007
[专家分：0] 发布于 2007-11-26 13:25:00
Sub geneSimuDailyReport(strPortList, strChkDate1, strChkDate2)
on Error resume next
' Clear extraneous errors from the Errors collection.
DBConn.Errors.Clear
set Cmd = server.CreateObject("adodb.command")
Cmd.ActiveConnection = DBConn
Cmd.CommandText ="UP_simulatorDailyReport_new" [color=008000]'"UP_simulatorDailyReport" [/color]
Cmd.CommandType = 4
Cmd.CommandTimeout = 3600
server.ScriptTimeout = 3600
on Error resume next
' Clear extraneous errors from the Errors collection.
DBConn.Errors.Clear
set Cmd = server.CreateObject("adodb.command")
Cmd.ActiveConnection = DBConn
Cmd.CommandText ="UP_simulatorDailyReport_new" [color=008000]'"UP_simulatorDailyReport" [/color]
Cmd.CommandType = 4
Cmd.CommandTimeout = 3600
server.ScriptTimeout = 3600
