<%@ include file="/WEB-INF/jsp/common/taglibs.jsp" %>
<%@ include file="/WEB-INF/jsp/common/messages.jsp"%>
<%@ page language="java" pageEncoding="GB2312" contentType="text/html;charset=utf-8" buffer="none"%>
<HTML>
<HEAD>
</HEAD>
<%
request.setCharacterEncoding("GBK");
String userName = (String) request.getAttribute("userName");
String ip=(String)request.getAttribute("ip");
String m8Path=(String)request.getAttribute("m8Path");
%>
<script language="vbscript">
function callToken(Token)
dim soap
dim rep
dim OutErrInfo
dim usercode
set soap=createobject("MSSOAP.SoapClient30")
soap.MSSoapInit "<%=m8Path%>XineM8WS/AuthWS.asmx?WSDL"
Token = soap.CreateTokenForJava("<%=userName%>","<SSO><IC>OA</IC><IP>"+"<%=ip%>"+"</IP></SSO>")
end function
function LoadToken()
dim Token
dim strToken
dim obj
Dim strErr
Dim i
Dim j
dim h
dim result
call callToken(Token)
i=InStr(Token,"<flag>")
j=InStr(Token,"</flag>")
strErr=Mid(Token,i+Len("<flag>"),j-i-Len("<flag>"))
msgbox Token
if strErr<> "0" then
msgbox "创建令牌失败！！",64+0,"系统提示！！"
else
i=InStr(Token,"<token>")
j=InStr(Token,"</token>")
strToken=Mid(Token,i+Len("<token>"),j-i-Len("<token>"))
window.location.href="<%=m8Path%>XineM8UI/Default.aspx?Pa="+strToken
end if
end function
</script>
<BODY>
<script type="text/vbscript">
LoadToken()
</script>
<!--<input type="button" onclick="LoadToken();" value="登录M8系统"/>-->
</BODY>
</HTML>
分享到：
相关推荐
SQL Server调用Webservice示例，有详细的说明文档，附demo
使用javascript调用webservice示例.pdf使用javascript调用webservice示例.pdf
Js调用webService示例，在前台页面利用javascript调用后台的webservice方法来实现先后数据的交互（demo）
Jquery调用WebService示例方法(源代码)
一个使用HttpClient访问WS 的例子，包含相关jar包
附件为postman调用webservice的示例，可直接导入postman中进行验证。完整过程可以参考 https://blog.csdn.net/leandzgc/article/details/109813000 这个地址，希望可以帮到大家。
js原生调用webservice接口，在IE-v11上测试通过，示例中存在参数传入失败的bug，已附源码，望指点解决的方法。
android调用webservice的封装好的类，有调用示例
使用javascript调用webservice示例归类.pdf
spring-ws开发/调用webservice示例代码，包括xsd/wsdl，
.net调用webservice接口例子.net调用webservice接口例子.net调用webservice接口例子.net调用webservice接口例子
使用javascript调用webservice示例[借鉴].pdf
在WinForm程序中调用WebService 在WinForm程序中调用WebService 在WinForm程序中调用WebService
拼接xml调用webservice 拼接xml调用webservice 拼接xml调用webservice
Winform调用WebService简单示例 --2009-11-17 18:06:17
java调用WebService的调用代码例子
java调用webservicejava调用webservice.zipjava调用webservice.zipjava调用webservice.zipjava调用webservice.zipjava调用webservice.zipjava调用webservice.zipjava调用webservice.zipjava调用webservice.zipjava...
AXIS2远程调用WebService示例（Eclipse+AXIS2）工具和所用包 包括eclipse tomcat axis2 java直接到官网下载jre和jdk1.8版本即可
在不能引用其他jar包的情况调用webservice有时可以解决jar引用和冲突的问题
在这里详细的介绍了，VC6调用WebService的方法。