fix:优化taskList报错，增加thirdpay.asp

wanglizhong

2025-05-05 a0a942c610f7069a3e252ad6aca632c7152e43f7

fix:优化taskList报错，增加thirdpay.asp

 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
%>

 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


 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