sub window_onload() wbObj.onserviceavailable = GetRef("after_window_onload") call wbObj.useService("http://WebDataService/DataService.asmx?WSDL","DataService") end subsub after_window_onload ''清除 status window.status = "" ''初始化 WebService 變數 Set g_callObj = wbObj.createCallOptions() g_callObj.async = false end subsub Query() g_strSQL = "select * from manager where " & inSQL.value end if g_callObj.funcName = "GetXMLBySQL" Set g_result = wbObj.DataService.callService(g_callObj, g_strSQL) end sub大概是這樣的,我自己也沒怎麼研究過,:)
不好意思,没看清:) 在asp中使用Jscript调用 需下载msSoapToolkit20.exe 引用:MSSOAP.SoapClient 例程: <%@ LANGUAGE = JScript %> <HTML> <HEAD> <TITLE>webservice演示</TITLE> </HEAD> <BODY> <% var WSDL_URL = "http://server0/yundan/webservice1.asmx?WSDL" var a, b, res var soapclient a = 12 b = 13 soapclient = Server.CreateObject("MSSOAP.SoapClient") soapclient.ClientProperty("ServerHTTPRequest") = true ‘在ASP中运行 需要设置ServerHTTPRequest选项 soapclient.mssoapinit("http://192.168.0.4/yundan/Service1.WSDL","Service1","Service1Soap","") res = soapclient.test(2,3) %> <h3>webservice 演示</h3> <B>Result:</B> <%=res%><P><P> </BODY> </HTML>在asp中使用vbscript调用 需下载msSoapToolkit20.exe 引用:MSSOAP.SoapClient 例程: <%@ LANGUAGE = VBScript %> <HTML> <HEAD> <TITLE>webservie演示</TITLE> </HEAD> <BODY> <% Dim soapclient Const WSDL_URL = "http://192.168.0.4/yundan/service1.wsdl" set soapclient = Server.CreateObject("MSSOAP.SoapClient") soapclient.ClientProperty("ServerHTTPRequest") = True soapclient.mssoapinit http://192.168.0.4:8080/yundan/Service1.WSDL","Service1","Service1Soap","" Dim res res = soapclient.test(23, 34) %> <h1>webservie演示</h1> <B>Result:</B> <%=res%><P><P> </BODY> </HTML>
wbObj.onserviceavailable = GetRef("after_window_onload")
call wbObj.useService("http://WebDataService/DataService.asmx?WSDL","DataService")
end subsub after_window_onload
''清除 status
window.status = "" ''初始化 WebService 變數
Set g_callObj = wbObj.createCallOptions()
g_callObj.async = false
end subsub Query()
g_strSQL = "select * from manager where " & inSQL.value
end if g_callObj.funcName = "GetXMLBySQL" Set g_result = wbObj.DataService.callService(g_callObj, g_strSQL)
end sub大概是這樣的,我自己也沒怎麼研究過,:)
在asp中使用Jscript调用
需下载msSoapToolkit20.exe
引用:MSSOAP.SoapClient
例程:
<%@ LANGUAGE = JScript %>
<HTML>
<HEAD>
<TITLE>webservice演示</TITLE>
</HEAD>
<BODY>
<%
var WSDL_URL = "http://server0/yundan/webservice1.asmx?WSDL"
var a, b, res
var soapclient
a = 12
b = 13
soapclient = Server.CreateObject("MSSOAP.SoapClient")
soapclient.ClientProperty("ServerHTTPRequest") = true
‘在ASP中运行 需要设置ServerHTTPRequest选项
soapclient.mssoapinit("http://192.168.0.4/yundan/Service1.WSDL","Service1","Service1Soap","")
res = soapclient.test(2,3)
%>
<h3>webservice 演示</h3>
<B>Result:</B> <%=res%><P><P>
</BODY>
</HTML>在asp中使用vbscript调用
需下载msSoapToolkit20.exe
引用:MSSOAP.SoapClient
例程:
<%@ LANGUAGE = VBScript %>
<HTML>
<HEAD>
<TITLE>webservie演示</TITLE>
</HEAD>
<BODY>
<%
Dim soapclient
Const WSDL_URL = "http://192.168.0.4/yundan/service1.wsdl"
set soapclient = Server.CreateObject("MSSOAP.SoapClient")
soapclient.ClientProperty("ServerHTTPRequest") = True
soapclient.mssoapinit
http://192.168.0.4:8080/yundan/Service1.WSDL","Service1","Service1Soap",""
Dim res
res = soapclient.test(23, 34)
%>
<h1>webservie演示</h1>
<B>Result:</B> <%=res%><P><P>
</BODY>
</HTML>
与vb的差不多
msSoapToolkit30.exe好像也出来了,另外msSoapToolkit20.exe在服务端应用就可以了吧,不需要在客户端再注册什么了吧