这个ASP代码哪里写错了么,为什么执行后是空白一片?

xwoniu xwoniu 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区

<!-- #include file="../conn_noclock.asp" -->
<%
'批量修改所有记录

dim sql,rs
Dim swTime,swOutTime, xwTime, xwOutTime, swRnd, swOutRnd, xwRnd,xwOutRnd, dailydate
set rs=server.createobject("adodb.recordset")
sql="select * from Tsignupinfo where swqdzt=2 or swqtzt=2 or xwqdzt=2 or xwqtzt=2"
rs.open sql,conn,1,3


Do While not rs.eof

swRnd = 1800*Rnd '浮动30分随机数
swOutRnd = 3600*Rnd
xwRnd = 3600*Rnd
xwOutRnd = 3600*Rnd
swTime = DateAdd("s", swRnd, "07:45:00")
swOutTime = DateAdd("s", swOutRnd, "11:45:00")
xwTime = DateAdd("s", xwRnd, "13:45:00")
xwOutTime = DateAdd("s", xwOutRnd, "17:15:00")

conn.Execute "update Tsignupinfo set swqd='"&swTime&"', swqt='"&swOutTime&"', xwqd='"&xwTime&"', xwqt=,'"&xwOutTime&"', swqdzt='1', swqtzt='1', xwqdzt='1', xwqtzt='1') where swqdzt=2 or swqtzt=2 or xwqdzt=2 or xwqtzt=2"

End If
rs.moveNext
Loop
rs.close
Response.write "批量修改所有记录数据成功!"
set rs=nothing

%>

系统将于<span id="BackSecs" style="color: #F00;"></span>秒后自动返回...
<script>function countDown(Secs) {
BackSecs.innerText=Secs;
if(Secs>0) {
setTimeout("countDown("+Secs+"-1)",1000);
}
else {
window.location=document.referrer;
}
}
countDown(5);
</script>
...全文

相关推荐

评论 7
收藏 已收藏
分享
返回顶部
xwoniu
ASP 28,401 成员 356,940 内容