API/inc/thirdpay.asp

New file
@@ -0,0 +1,20 @@
<%
'第三方支付
Function ThirdPay(PayMoney,ServiceOrdID,DispatchOrdID)
'PayType:支付类型
'PayMoney:支付金额
'ServiceOrdID:服务单ID 
'DispatchOrdID:调度单ID
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from ServiceOrder where ServiceOrdID="&ServiceOrdID
rs.open sql,objConn,1,1
If not rs.Eof then	 
      PayQRcodeURL = rs("PayQRcodeURL")
      if PayQRcodeURL<>"" Then
         PayQRcodeURL = PayQRcodeURL&"?PayType="&PayType&"&PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
         Response.Redirect PayQRcodeURL
      End If
End If
rs.close()
End Function
%>

 ServiceOrder.gds

@@ -1800,13 +1800,17 @@
                                document.form1.NEWOrder.value = "";

                                document.form1.ServiceOrdState.value = "4";

                                document.getElementById("zhezhao").style.display="block"; 

                        document.getElementById("login").style.display="block";

                                document.getElementById("login").style.display="block";

                                form1.submit();

                            }

                        }

                        

                        //保存咨询单(修改)

                        function form1_submit20_1(){

                            let checkResult=checkOpenerAndFollower();

                            if(!checkResult){

                                return;

                            }

                            document.getElementById("MessageContents_form1").value=document.getElementById("MessageContents").value;

                            document.form1.action = "admin_save.gds";

                            document.form1.admin_save.value = "20";


 Task_List.gds

@@ -349,7 +349,7 @@
            

            <%

            if searchTXT<>"" Then

              searchSql=" DispatchOrdID=(select DispatchOrdIDDt from DispatchOrd_Entourage where EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and EntourageOAid="&session("adminID")&") and "

              searchSql=" DispatchOrdID in(select DispatchOrdIDDt from DispatchOrd_Entourage where EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and EntourageOAid="&session("adminID")&") and "

              If Len(searchTXT)=14 And Not IsNumeric(Left(searchTXT,2)) And IsNumeric(Mid(searchTXT,3,8)) And IsNumeric(Right(searchTXT,3)) And Mid(searchTXT,11,1)="-" Then

                searchSql=" DispatchOrdClass='"&Left(searchTXT,2)&"' and CONVERT(VARCHAR(10),DispatchOrd_NS_Time,120)=CONVERT(VARCHAR(10),'"&Mid(searchTXT,3,4)&"-"&Mid(searchTXT,7,2)&"-"&Mid(searchTXT,9,2)&"',120) and Right('00'+convert(varchar(3),DispatchOrdNo),3)='"&Right(searchTXT,3)&"' "

              ElseIf Len(searchTXT)=10 And IsNumeric(searchTXT) Then

@@ -358,15 +358,15 @@
                searchSql=" (ServiceOrdCoName like '%"&searchTXT&"%' or ServiceOrdCoPhone like '%"&searchTXT&"%' or ServiceOrdPtName like '%"&searchTXT&"%' or ServiceOrdTraStreet like '%"&searchTXT&"%' or ServiceOrdTraEnd like '%"&searchTXT&"%') "

              End if

            else

              searchSql=" DispatchOrd_NS_Time "&SqlOrdDateType&" and DispatchOrdID=(select DispatchOrdIDDt from DispatchOrd_Entourage where EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and EntourageOAid="&session("adminID")&")"

              searchSql=" DispatchOrd_NS_Time "&SqlOrdDateType&" and DispatchOrdID in(select DispatchOrdIDDt from DispatchOrd_Entourage where EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and EntourageOAid="&session("adminID")&")"

              If OrdState="0" Then

                searchSql=searchSql&" and DispatchOrdState<>4 "

              ElseIf OrdState="1" Then

                searchSql=searchSql&" and DispatchOrdState in (0) "

              ElseIf OrdState="2" Then

                searchSql=searchSql&" and DispatchOrdState in (1,2) and DispatchOrdID=(select DispatchOrdIDDt from DispatchOrd_Entourage where EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and EntourageOAid="&session("adminID")&") "

                searchSql=searchSql&" and DispatchOrdState in (1,2) and DispatchOrdID in(select DispatchOrdIDDt from DispatchOrd_Entourage where EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and EntourageOAid="&session("adminID")&") "

              ElseIf OrdState="3" Then

                searchSql=" DispatchOrdState in (3,4,5,6,7) and DispatchOrdID=(select DispatchOrdIDDt from DispatchOrd_Entourage where EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and EntourageOAid="&session("adminID")&") "

                searchSql=" DispatchOrdState in (3,4,5,6,7) and DispatchOrdID in(select DispatchOrdIDDt from DispatchOrd_Entourage where EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and EntourageOAid="&session("adminID")&") "

              ElseIf OrdState="8" Then

                searchSql=searchSql&" and DispatchOrdState in (8,9) "

              Else


 admin_save.gds

@@ -1050,7 +1050,7 @@
rs.close()

ServiceOrdNo    = ServiceOrdClass& year(now())&Right("0"&month(now()),2)&Right("0"&day(now()),2) & "-"&Right("00"&ServiceOrdNo,3)



'保存开单人及提成比例的函数



SaveOpenerCommission ServiceOrdID

SaveFollowers ServiceOrdID

'咨询单转为服务单('自动审核)

@@ -1315,7 +1315,7 @@


ServiceOrd_Check        = SafeRequest(Request.form("ServiceOrd_Check"))        '当前审核操作

EditDataForm            = SafeRequest(Request.form("EditDataForm"))            '当前修改项目

'保存开单人及提成比例的函数



SaveOpenerCommission ServiceOrdID

SaveFollowers ServiceOrdID




 inc/thirdpay.asp

New file
@@ -0,0 +1,18 @@
<%
'第三方支付
Function ThirdPay(PayMoney,ServiceOrdID,DispatchOrdID)
'PayType:支付类型
'PayMoney:支付金额
'ServiceOrdID:服务单ID 
'DispatchOrdID:调度单ID
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from ServiceOrder where ServiceOrdID="&ServiceOrdID
rs.open sql,objConn,1,1
If not rs.Eof then	 
      PayQRcodeURL = rs("PayQRcodeURL")
      PayQRcodeURL = PayQRcodeURL&"?PayType="&PayType&"&PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
      Response.Redirect PayQRcodeURL
End If
rs.close()
End Function
%>

 weixin/web.config

New file
@@ -0,0 +1,27 @@
<?xml version="1.0" encoding="UTF-8"?>
<configuration>
    <system.webServer>
        <defaultDocument>
            <files>
                <remove value="default.aspx" />
                <remove value="Default.htm" />
                <remove value="Default.asp" />
                <remove value="index.htm" />
                <remove value="index.html" />
                <remove value="iisstart.htm" />
                <add value="index.asp" />
            </files>
        </defaultDocument>
        <handlers>
            <remove name="php" />
            <remove name="FastCGI" />
            <add name="gds" path="*.gds" verb="*" modules="IsapiModule" scriptProcessor="C:\Windows\System32\inetsrv\asp.dll" resourceType="File" preCondition="bitness64" />
            <add name="asp" path="*.asp" verb="*" modules="IsapiModule" scriptProcessor="C:\Windows\System32\inetsrv\asp.dll" resourceType="File" preCondition="bitness64" />
            <add name="FastCGI" path="*.php" verb="*" modules="FastCgiModule" scriptProcessor="D:\project\急救转运\code\php\php-cgi.exe" resourceType="File" requireAccess="Script" />
            
        </handlers>
        <httpErrors errorMode="DetailedLocalOnly" />
       
      
    </system.webServer>
</configuration>

 weixin_pay.asp

@@ -4,12 +4,16 @@
<!--#include virtual="/inc/odbc.asp"-->

<!--#include virtual="/inc/function.gds"-->

<!--#include virtual="/inc/core.asp"-->

<!--#include virtual="/inc/thirdpay.asp"-->

<%

Set rs = Server.CreateObject("ADODB.Recordset")

DispatchOrdID    = SafeRequest(trim(request("DispatchOrdID")))

ServiceOrdID    = SafeRequest(trim(request("ServiceOrdID")))

Total_fee        = SafeRequest(trim(request("Total_fee")))



'第三方支付

ThirdPay Total_fee,ServiceOrdID,DispatchOrdID



APPPayID    = "Pay966120"

trade_type    = "NATIVE"

If ServiceOrdID<>"" Then