ＶＢＳcript 调用webservice 示例

最新推荐文章于 2019-04-30 15:48:39 发布

ghost_fly

最新推荐文章于 2019-04-30 15:48:39 发布

阅读量480

点赞数

分类专栏： javaScript+AJAX 文章标签： VBScript WebService SOAP JSP J#

javaScript+AJAX 专栏收录该内容

12 篇文章

订阅专栏

本文介绍了一个使用VBScript实现的自动登录M8系统的脚本，该脚本通过SOAP协议创建令牌并进行身份验证，成功后将跳转到M8系统的默认页面。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<%@ 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>

</BODY>
</HTML>