定时查询数据库,显示记录?
这是我查询数据库,显示一些字段的程序,我想定时的查询数据库自动刷新所显示的记录,该怎样实现阿?
谢谢!
<%dim cn,strcn,rstest,strsql
set cn=server.CreateObject ("ADODB.Connection")
strcn="Provider=microsoft.Jet.OLEDB.4.0;Data Source=e:\张丽华\webtest\db1.mdb"
cn.Open strcn
Response.Write cn.State&"<br>"
strsql="SELECT * FROM 令单 where 状态=false"
set rstest=server.CreateObject ("ADODB.recordset")
rstest.Open strsql,cn
Do while not rstest.EOF
Response.Write rstest("刀具名称")&" "
Response.Write rstest("刀套")&" "
Response.Write rstest("刀杆")&" "
Response.Write rstest("状态")&" "
Response.Write rstest("机床名称")&" "
Response.Write rstest("经办人")&"<br> "
rstest.MoveNext
loop
%>