【调度系统】广东民航医疗快线调度系统源代码
wzp
2025-05-14 a023d5daed320eb4dbf6cfb8c28529d41cf5f9c3
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
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %> 
<% Session.CodePage=65001 %> 
<% Response.charset = "utf-8" %>
<!--#include virtual="/weixin/OAuth2.gds"-->
<!--#include virtual="/inc/function.gds"-->
<%
DispatchOrdID    = request("DispatchOrdID")
ServiceOrdID    = request("ServiceOrdID")
OAID            = request("OAID")
media_id        = request("media_id")
ImageType        = request("ImageType")
If ImageType="" Then ImageType=0
 
If DispatchOrdID<>"" then
    sql="insert into ImageData (DOrdIDDt,SOrdIDDt,ImageType,ImageUrl,ImageUrls,UpImageOAid) values ("&DispatchOrdID&","&ServiceOrdID&","&ImageType&",'/upload/"&Year(now())&Right("0"&Month(now()),2)&"/"&DispatchOrdID&"_"&media_id&".jpg','/upload/"&Year(now())&Right("0"&Month(now()),2)&"/s_"&DispatchOrdID&"_"&media_id&".jpg',"&session("adminID")&")"
    objConn.Execute sql
    If ImageType="1" Then
        '上传知情同意书后通知客服查看
        Set rs = Server.CreateObject("ADODB.Recordset")
        sql="select DispatchOrdClass,DispatchOrd_NS_Time,DispatchOrdNo from DispatchOrd where DispatchOrdID="&DispatchOrdID
        rs.open sql,objConn,1,1
        If not rs.Eof then
            DispatchOrdNo = rs("DispatchOrdClass")& year(rs("DispatchOrd_NS_Time"))&Right("0"&month(rs("DispatchOrd_NS_Time")),2)&Right("0"&day(rs("DispatchOrd_NS_Time")),2) & "-"&Right("00"&rs("DispatchOrdNo"),3)    '调度单编号
        End If
        rs.close()
        sql="select top 1 id from ImageData order by id desc"
        rs.open sql,objConn,1,1
        ImageID=rs(0)
        rs.close()
        '写入通知中心
        NC_OAID="78"
        NC_Name="【"&DispatchOrdNo&"的知情同意书上传】"
        NC_Content="调度单号:"&DispatchOrdNo&"&nbsp;上传时间:"&Now()&""
        NC_PageUrl="/Image.gds?ImageID="&ImageID
        NC_PageUrlM=""
        Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
    ElseIf ImageType="6" Then
        '上传绑安全带图片
        sql="update DispatchOrd set CarSeatBelt_OAId="&session("adminID")&" where DispatchOrdID="&DispatchOrdID
        objConn.Execute sql
    End If
ElseIf OAID<>"" Then
    sql="update OA_User set OA_weixinAvatar='/upload/"&OAID&"_"&media_id&".jpg' where OA_User_ID="&OAID
    objConn.Execute sql
End If
%>