fix:pay update

wanglizhong

2025-05-05 8a7dab004bc3eca7808d0cc196a329464402bbc9

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
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 
<%Session.CodePage=65001%> 
<!--#include virtual="/inc/chkadmin.gds"--> 
<!--#include virtual="/inc/function.gds"--> 
<% 
HospSearchTXT=trim(Request("HospSearchTXT")) 
OA_CompetencyID=trim(Request("OA_CompetencyID")) 
HopsCity=trim(Request("HopsCity")) 
HospType=trim(Request("HospType")) 
acc1=trim(Request("page")) 
pagesize=trim(Request("pagesize")) 
t=trim(Request("t")) 
if acc1="" then acc1=1 
If pagesize="" Then 
    pagesize=6 
Else 
    pagesize=CInt(pagesize) 
End If 
acc2=1 
i=0 
acc3=0 
If HopsCity<>"" Then 
    HopsCity=Replace(HopsCity,"服务单","") 
    HopsCity=Replace(HopsCity,"地面","") 
    HopsCity=Replace(HopsCity,"航空","") 
    If HospType<>"ServiceOrdPtOutHosp" And HospType<>"ServiceOrdPtInHosp" Then HospType="ServiceOrdPtOutHosp" 
End If 
Set rs = Server.CreateObject("ADODB.Recordset") 
if len(HospSearchTXT)>0 then 
    sql="select HospID,HospName,HospShort,HopsProvince,HopsCity,HopsArea,HospAddress,HospLevel from HospData where HospState>0 and (HospName like '%"&HospSearchTXT&"%' or HospShort like '%"&HospSearchTXT&"%' or HopsProvince like '%"&HospSearchTXT&"%' or HopsCity like '%"&HospSearchTXT&"%' or HopsArea like '%"&HospSearchTXT&"%' or HospAddress like '%"&HospSearchTXT&"%') order by HospLevel,HospID" 
ElseIf Len(HopsCity)>0 Then 
    sql="select HospID,HospName,HospShort,HopsProvince,HopsCity,HopsArea,HospAddress,HospLevel from ServiceOrder,HospData where HospID="&HospType&"ID and ServiceOrdState=3 and "&HospType&"ID<>0 and DATEDIFF(dd, ServiceOrd_CC_Time,GETDATE())<=60 and (HospLevel<0 or HopsCity like '%"&HopsCity&"%' or HopsProvince like '%"&HopsCity&"%' or HospName like '%"&HopsCity&"%' or HospShort like '%"&HopsCity&"%') GROUP BY HospID,HospName,HospShort,HopsProvince,HopsCity,HopsArea,HospAddress,HospLevel order by count("&HospType&"ID) desc" 
Else 
    sql="select HospID,HospName,HospShort,HopsProvince,HopsCity,HopsArea,HospAddress,HospLevel from HospData where HospState>0 order by HospLevel,HospID" 
end If 
    rs.open Sql,objConn,1,1 
    if not rs.eof then 
        rs.pagesize=pagesize 
        rs.absolutepage=acc1 
        acc2=rs.pagecount 
        acc3=rs.recordcount 
    end If 
    %> 
        <script language=javascript> 
        var HospListArray=new Array() 
        <% 
            do while not rs.Eof and i<pagesize 
                HospID        = rs("HospID") 
                HospName    = rs("HospName") 
                HospShort    = rs("HospShort") 
                HospAddress    = rs("HospAddress") 
                HopsProvince= rs("HopsProvince") 
                HopsCity    = rs("HopsCity") 
                HopsArea    = rs("HopsArea") 
                HospLevelName=HospLevelA(rs("HospLevel")) 
                if HospAddress<>"" then 
                    HospAddress=HopsProvince&HopsCity&HopsArea&HospAddress 
                end if 
                %> 
                HospListArray[<%=i%>]=new Array("<%=HospID%>","<%=HospName%>","<%=HospShort%>","<%=HospAddress%>","<%=HospLevelName%>") 
                <%i=i+1 
                rs.movenext 
            loop 
            rs.close() 
        %> 
        parent.JS_HospList(HospListArray,<%=acc1%>,<%=acc2%>,'<%=HospSearchTXT%>',<%=acc3%>); 
        </script> 
 
 
<%Response.End%>