Webboy2008
asked on
classic asp / web services
The following codes are in classic asp
How can I call the function?
I tryied SendEncryption("xxx") or OnlineWS.SendEncryption(pl ainText) but it returns nothing. Let us assume the function is working right.
<%
Class OnlineWS
Public function SendEncryption(plainText)
Dim objRequest, objXMLDoc
Dim strRet, strRequest
On Error Resume Next
strRequest = EncryptionRequestString(pl ainText)
Set objRequest = CreateObject("MSXML2.Serve rXMLHTTP")
objRequest.open "POST", m_serviceUrl , false
objRequest.setRequestHeade r "Content-Type", m_content_type
objRequest.setRequestHeade r "Content-Length",CStr(Len( strRequest ))
objRequest.setOption 2, 13056 '13065 = SXH_SERVER_CERT_IGNORE_ALL _SERVER_ER RORS to ignore certificate error
objRequest.send strRequest
strRet = ErrHandlerXMLHTTPRequest(o bjRequest, strRequest)
set objRequest = nothing
SendEncryption = strRet
End function
End Class
%>
How can I call the function?
I tryied SendEncryption("xxx") or OnlineWS.SendEncryption(pl
<%
Class OnlineWS
Public function SendEncryption(plainText)
Dim objRequest, objXMLDoc
Dim strRet, strRequest
On Error Resume Next
strRequest = EncryptionRequestString(pl
Set objRequest = CreateObject("MSXML2.Serve
objRequest.open "POST", m_serviceUrl , false
objRequest.setRequestHeade
objRequest.setRequestHeade
objRequest.setOption 2, 13056 '13065 = SXH_SERVER_CERT_IGNORE_ALL
objRequest.send strRequest
strRet = ErrHandlerXMLHTTPRequest(o
set objRequest = nothing
SendEncryption = strRet
End function
End Class
%>
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.