【调度系统】广东民航医疗快线调度系统源代码
wzp
2024-12-05 8a09f655eace34e9c90bbfc711eedb7a69e4e068
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<%
'Response.Cookies("OA")("adminID")=""
'Response.end
testID=request("testID")
state=request("state")
If testID="" And state<>"" Then testID=state
if testID="" then Response.Redirect "/"
state=testID%>
<!--#include virtual="/weixin/OAuth2.gds"-->
<!--#include virtual="/inc/function.gds"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="viewport" content="width=device-width, height=device-height, initial-scale=1, maximum-scale=1, user-scalable=no">  
<title>调度演示</title>
<link href="css/main.css" type="text/css" rel="stylesheet">
</head>
 
<%
Set rs = Server.CreateObject("ADODB.Recordset")
Set rsDt = Server.CreateObject("ADODB.Recordset")
sql="select * from test_Ord WHERE testID = "&testID
rs.open sql,objConn,1,1
if rs.eof then Response.Redirect "/"
 
testName    = rs("testName")    '名称
testDate    = rs("testDate")    '下单时间
 
%>
<body>
    <!--<div class="order_head"><a href="order_List.asp"><font></font></a>调度详情</div>-->
    <!--<div class="os_status"><span class="os_statusfirst">订单状态:等待卖家发货</span><span class="os_refresh">刷新</span></div>-->
    
    <div class="os_line"></div>
    <div class="os_shopname">名称:<%=testName%></div>
    <div class="os_oedernumber">下发时间:<%=testDate%></div>
            <div class="os_img">
            <%sql = "select * from test_OrdDt where testIDDt="&testID
                    rsDt.open sql,objConn,1,1
                    do while not rsDt.Eof
                      id            = rsDt("id")
                      testOA_UserID    = rsDt("testOA_UserID")
                      test_UserType    = rsDt("test_UserType")
                      testWeixinState= rsDt("testWeixinState")
                      testWeixinDate= rsDt("testWeixinDate")
                      If testWeixinState="" Or isnull(testWeixinState) Then testWeixinState="已发"
                      If CInt(session("adminID"))=CInt(testOA_UserID) And testWeixinState<>"已确认" And testWeixinState<>"已取消" Then
                        testUserID=id
                      End If
                      
                    %>
                <div style=" margin:5px 10px;height: 65px;">
                    <img src="<%=OAUser(testOA_UserID,"Avatar")%>">
                    <div class="os_name"><%=OAUser(testOA_UserID,"UserName")%><br><%=test_UserType%></div>
                    <div class="os_price"><%=testWeixinState%></span></div>       
                    <div class="os_weight"><%=testWeixinDate%></div>
                </div>
            <%rsDt.movenext
                loop
                rsDt.close()%>
            </div>
        <div style="height:50px;"></div>
     <%If testUserID<>""  Then
     sql="UPDATE test_OrdDt set testWeixinState='已读',testWeixinDate=GETDATE() where testWeixinState is null and id="&testUserID
     objConn.Execute sql
     %>
     <div class="posi">
        <div class="ljgm"><a href="/admin_save.gds?admin_save=14&testID=<%=testID%>&testUserID=<%=testUserID%>" class="bttt" style="color: #fff;background: #9a6d92;font-weight: 700;">确认</a></div>
        <div class="ljgm"><a href="/admin_save.gds?admin_save=15&testID=<%=testID%>&testUserID=<%=testUserID%>" class="bttt">取消</a></div>
     </div>
     <%End if%>
 
</body>
</html>