又研究了下,自动刷新是还保持,可是我设定的播放声音就停止了。有和办法让当检测到数据库有新数据的时候窗口自动最大化。关键是窗口自动最大化的方法。我的代码:
<% anguage="vbscript"
dim a
dim rs1
dim sql1
dim str1
dim conn1
a=session("user_name")
on error resume next
'打开数据库
set rs1=server.createobject("adodb.recordset")
str1="select * from qsnews where 单位='"&a&"' and 签收状态=0"
set rs1=conn.execute(str1)
rs1.open sq1l,conn1,3,2
if rs1.eof and rs1.bof then
response.write "<p align='center'
valign='middle' class='unnamed18'> 没有未签收的调度命令</p>"
else
response.write"<bgsound
src=""images/a.wav""
loop=""-1"">"
end if
rs1.close
conn1.close
%>