farzadyazdan
پنج شنبه 16 دی 1389, 17:16 عصر
سلام من دارم یه اسکریپت برای پرداخت آنلاین از طریق درگاه بانک ملت می نویسم. اسکریپتی که می نویسم به زبان ASP Classic هست. با بانک هم تماس گرفتم اما گفتن که اسکریپت نمونه با ASP کلاسیک نداریم.
البته من خودم یه چیز هایی نوشتم ولی متاسفانه خطا میده و نمی دونم مشکل از کجاست اگر کسی می دونه کمک کنه. ناگفته نمونه که همه کارهای اداری مربوطه مثل تکمیل و ارسال فرم ها برای بانک انجام شده و TerminalID و user و Pass هم در اختیار من قرار گرفته.
این هم خطایی که میده: (هم روی لوکال هاست و هم روی هاست اصلی):
Client error '8007005
7'
Client:Incorrect number of parameters supplied for SOAP request HRESULT=0x80070057: The parameter is incorrect. - Client:Unspecified client error. HRESULT=0x80070057: The parameter is incorrect.
/newDP/repcode/bank.asp, line 54
این هم تکه کد نوشته شده:
<%
'on error resume next
dim methodserver
dim payserver
dim terminalId
dim userName
dim userPassword
dim orderId
dim amount
dim localDate
dim localTime
dim additionalData
dim callBackUrl
dim payerId
dim result
methodserver = "https://pgwstest.bpm.bankmellat.ir/pgwchannel/services/pgw?wsdl"
payserver = "https://pgwtest.bpm.bankmellat.ir/pgwchannel/startpay.mellat"
terminalId = 1002069
userName = "sepidan"
userPassword = "0000"
orderId = 10
amount = 1
localDate = "20110108"
localTime = "102003"
additionalData = "salam"
callBackUrl = "http://www.downloadproje.com/default.asp"
payerId = 0
namespace="PaymentGatewayImplService"
'=== Create an instance of SoapClient
SET objSoapClient = Server.CreateObject("MSSOAP.SoapClient30")
'=== Set Client Properties
objSoapClient.ClientProperty("ServerHTTPRequest") = True
'=== Retrieve KWMP web services WSDL
Call objSoapClient.mssoapinit("https://pgwstest.bpm.bankmellat.ir/pgwchannel/services/pgw?wsdl", namespace)
'=== Set connection property to be over SSL
objSoapClient.ConnectorProperty("UseSSL") = True
'=== Now consume the web sevices according to KWMP Specification
output = objSoapClient.bpPayRequest (terminalId,userName,userPassword,orderId,amount,l ocalDate,localTime,additionalData,callBackUrl,paye rId)
Response.Write(output)
%>
البته من خودم یه چیز هایی نوشتم ولی متاسفانه خطا میده و نمی دونم مشکل از کجاست اگر کسی می دونه کمک کنه. ناگفته نمونه که همه کارهای اداری مربوطه مثل تکمیل و ارسال فرم ها برای بانک انجام شده و TerminalID و user و Pass هم در اختیار من قرار گرفته.
این هم خطایی که میده: (هم روی لوکال هاست و هم روی هاست اصلی):
Client error '8007005
7'
Client:Incorrect number of parameters supplied for SOAP request HRESULT=0x80070057: The parameter is incorrect. - Client:Unspecified client error. HRESULT=0x80070057: The parameter is incorrect.
/newDP/repcode/bank.asp, line 54
این هم تکه کد نوشته شده:
<%
'on error resume next
dim methodserver
dim payserver
dim terminalId
dim userName
dim userPassword
dim orderId
dim amount
dim localDate
dim localTime
dim additionalData
dim callBackUrl
dim payerId
dim result
methodserver = "https://pgwstest.bpm.bankmellat.ir/pgwchannel/services/pgw?wsdl"
payserver = "https://pgwtest.bpm.bankmellat.ir/pgwchannel/startpay.mellat"
terminalId = 1002069
userName = "sepidan"
userPassword = "0000"
orderId = 10
amount = 1
localDate = "20110108"
localTime = "102003"
additionalData = "salam"
callBackUrl = "http://www.downloadproje.com/default.asp"
payerId = 0
namespace="PaymentGatewayImplService"
'=== Create an instance of SoapClient
SET objSoapClient = Server.CreateObject("MSSOAP.SoapClient30")
'=== Set Client Properties
objSoapClient.ClientProperty("ServerHTTPRequest") = True
'=== Retrieve KWMP web services WSDL
Call objSoapClient.mssoapinit("https://pgwstest.bpm.bankmellat.ir/pgwchannel/services/pgw?wsdl", namespace)
'=== Set connection property to be over SSL
objSoapClient.ConnectorProperty("UseSSL") = True
'=== Now consume the web sevices according to KWMP Specification
output = objSoapClient.bpPayRequest (terminalId,userName,userPassword,orderId,amount,l ocalDate,localTime,additionalData,callBackUrl,paye rId)
Response.Write(output)
%>