From a0a942c610f7069a3e252ad6aca632c7152e43f7 Mon Sep 17 00:00:00 2001
From: wanglizhong <wlz>
Date: 星期一, 05 五月 2025 11:17:23 +0800
Subject: [PATCH] fix:优化taskList报错，增加thirdpay.asp
---
API/inc/thirdpay.asp | 20 ++++++++++
weixin/web.config | 27 +++++++++++++
inc/thirdpay.asp | 18 +++++++++
weixin_pay.asp | 4 ++
Task_List.gds | 8 ++--
5 files changed, 73 insertions(+), 4 deletions(-)
diff --git a/API/inc/thirdpay.asp b/API/inc/thirdpay.asp
new file mode 100644
index 0000000..0674639
--- /dev/null
+++ b/API/inc/thirdpay.asp
@@ -0,0 +1,20 @@
+<%
+'绗笁鏂规敮浠�
+Function ThirdPay(PayMoney,ServiceOrdID,DispatchOrdID)
+'PayType:鏀粯绫诲瀷
+'PayMoney:鏀粯閲戦
+'ServiceOrdID:鏈嶅姟鍗旾D
+'DispatchOrdID:璋冨害鍗旾D
+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
+%>
\ No newline at end of file
diff --git a/Task_List.gds b/Task_List.gds
index 981b6df..b7d9eb6 100644
--- a/Task_List.gds
+++ b/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
diff --git a/inc/thirdpay.asp b/inc/thirdpay.asp
new file mode 100644
index 0000000..2d40a68
--- /dev/null
+++ b/inc/thirdpay.asp
@@ -0,0 +1,18 @@
+<%
+'绗笁鏂规敮浠�
+Function ThirdPay(PayMoney,ServiceOrdID,DispatchOrdID)
+'PayType:鏀粯绫诲瀷
+'PayMoney:鏀粯閲戦
+'ServiceOrdID:鏈嶅姟鍗旾D
+'DispatchOrdID:璋冨害鍗旾D
+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
+%>
\ No newline at end of file
diff --git a/weixin/web.config b/weixin/web.config
new file mode 100644
index 0000000..78d0605
--- /dev/null
+++ b/weixin/web.config
@@ -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>
diff --git a/weixin_pay.asp b/weixin_pay.asp
index 656bbe0..c7b0373 100644
--- a/weixin_pay.asp
+++ b/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
--
Gitblit v1.9.1