ＶＢＳcript 调用webservice 示例

ghost_fly

浏览: 111349 次
性别:
来自: 长沙

最近访客更多访客>>

u012363178

墨绿红晨

dzcdhj

MINGMING_0302

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

博客分类：

javaScript+AJAX

VBScript WebService SOAP JSP J#

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

分享到：

实现拖动（网上摘录－存档） | 表格动态添加一行

2007-07-03 09:37
浏览 1614
评论(0)
查看更多

发表评论

您还没有登录,请您登录后再发表评论

最近访客更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论