【调度系统】广东民航医疗快线调度系统源代码
wanglizhong
2025-05-05 14553e97825d8c112ce2c40275e0c71b79fe3121
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
<% @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")
Set rsDt = Server.CreateObject("ADODB.Recordset")
 
UserID=4
sql="select top 50 * from UserUUID order by LoginTime desc"
rs.open sql,objConn,1,1
do while not rs.Eof
    UserUUID=rs("id")
    UID=rs("ToUserID")
    iuid=rs("iuid")
    uuid=rs("uuid")
    LoginTime=rs("LoginTime")
    ToServiceOrdID=rs("ToServiceOrdID")
    TritonshJson=rs("TritonshJson")
    TritonshTime=rs("TritonshTime")
    Response.Write UserUUID &" UserID="&UID&" iuid="&iuid&" LoginTime="&LoginTime&" ToServiceOrdID="&ToServiceOrdID&" TritonshJson="&TritonshJson&" TritonshTime="&TritonshTime&"<br>"
    'Call GetBody("https://api.966120.com.cn/v1/cuituAPI.php","OrdID="&ServiceOrdID&"&method=1&iuid="&iuid&"&uuid="&uuid)
    'GetBody("https://sys.966120.com.cn/inc/GB2312.gds","zhoz_txt="&server.urlencode(Str))
    rs.movenext
Loop
rs.close()
 
%>