asp修改sqlserver数据库-日报表流量

<%server.ScriptTimeout=300%>
<%=now()%>
</br>检查流量流速日报表小时数据是否超标，若超标进行处理。</br>
请修改本文件18行中for e=0 to 30 的30为一次执行的天数。19行为起始日期。
<%
dim conn
dim connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Driver={SQL Server};server=.;UID=root;PWD=root;database=UserDatabase"
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "连接报表数据库失败"
Response.End
End If
dim sql,a,b,c,d,e,f,g,sql1
for e=0 to 30 ‘一次修改天数
a = "2016-11-1 0:00:00" ‘起始日期
a=dateadd("d", e, a)
for d=0 to 23 ‘每小时的数据
b = dateadd("h", d, a)
c = dateadd("h", 1, b)
sql="SELECT flow_avg FROM 日报表 WHERE (日期时间 BETWEEN ‘"&b&"’ AND ‘"&c&"’)"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
if rs("flow_avg")>160000 then
g=rs("flow_avg")/(150000+int(10000*rnd())) ‘生成15W-16W随机数
sql1="update 日报表 set flow_avg=flow_avg/"&g&",flow_max=flow_max/"&g&",flow_min=flow_min/"&g&",flow_pl=flow_pl/"&g&", velo_avg=velo_avg/"&g&",velo_max=velo_max/"&g&",velo_min=velo_min/"&g&" where (日期时间 BETWEEN ‘"&b&"’ AND ‘"&c&"’)"
conn.Execute(sql1)
response.write sql1
response.write "</br>"
end if
rs.movenext
loop
rs.close
set rs=nothing
next
next
Set Conn = Nothing
Set Connq = Nothing
%>

<%=now()%>