【调度系统】广东民航医疗快线调度系统源代码
wzp
2025-05-06 18c7a44d2e9db3f4a5322389c3ee94468cce4de1
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %> 
<% Session.CodePage=65001 %> 
<% Response.charset = "utf-8" %>
<!--#include virtual="/inc/odbc.asp"-->
<!--#include virtual="/inc/function.asp"-->
<!--#include virtual="/inc/core.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
 
    sql="select DispatchOrdID,DispatchOrdState,DispatchOrd_NS_Time from DispatchOrd where DispatchOrdState not in (8,9,10) and DispatchOrd_NS_Time>=DATEADD(mm,DATEDIFF(mm,0,getdate())-1,0)"
    'Response.Write sql&"<br>"
    rs.open sql,objConn,1,1
    i=0
    do while not rs.Eof
        DispatchOrdID            = rs("DispatchOrdID")            '服务单号
        objConn.Execute "exec OrdDataUP "&DispatchOrdID
        i=i+1
        rs.movenext
    loop
    rs.close()
 
Response.Write "更新"&i&"条"
 
%>