VBScript 调用webservice 示例

本文介绍了一个使用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>
<!--<input type="button" onclick="LoadToken();" value="登录M8系统"/>-->
</BODY>
</HTML>
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值