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