|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?注册账号
×
<!-- saved from url=(0022)http://internet.e-mail --><html><head></head><body>处理中,请等待......<script language=vbscript>function load()dim objClient,cValuedim i ,arrarr = split(window.clientInformation.appVersion,";")For i = 0 To UBound(arr) If InStr(1, arr(i), "MSIE") <> 0 Then If InStr(1, arr(i), ".") > InStr(1, arr(i), "MSIE") Then str1 = Trim(Mid(arr(i), InStr(1, arr(i), "MSIE") + 5, InStr(1, arr(i), "."))) If CDbl(str1) < 6 Then alert "安装浏览器版本太低,应选择IE6.0或以上的版本!" window.opener="" window.close() exit function End If End If exit for End IfNextset objClient=createObject("U8WebClient.clsClient")cValue=objClient.RegRead("software\ufsoft\u8web","edittime")if(cValue<>"") then cValue1=cDate(cValue)if(cValue="") then window.open "http://xylnt:80/U8GDP/client/default.asp","",tempStr()else dim tStr Dim cMsg,xmldoc tStr="<info><zt>001</zt><year>2009</year><date>2009-08-20</date><serial>{B298ABB1-2135-4A05-B05D-4E5A4C9AC845}XYL-P3@0</serial><uid>018</uid><pwd>10x22y88l</pwd><server>XYLNT</server><ismerge>1</ismerge></info>" if GetTableData("http://xylnt:80/U8GDP/Eip/Portallogin.asp?wci=wiAutologin",tStr)=true then Set xmldoc = CreateObject("Microsoft.XMLDOM") if xmldoc.LoadXML(mxmlHttp.responsetext) then If LCase(xmldoc.selectSingleNode("//ok").Text) = "true" Or LCase(xmldoc.selectSingleNode("//ok").Text) = "demo" Then if lcase(sType)="wh" then else window.open "http://xylnt:80/U8GDP/EIP/U8_Main.asp","","scrollbars=yes,status=yes,resizable=yes,left=0,top=0,align=center,width=790,height=550" end if window.opener="" window.close Else MsgBox xmldoc.selectSingleNode("//errmsg").Text,vbExclamation,"注册〖决策链企业门户〗" End If end if end ifend ifwindow.opener=""window.closeend functionfunction GetLeft() Getleft=(window.screen.width-554)/2end functionfunction GetTop() GetTop=(window.screen.height-416)/2end functionfunction tempStr() tempStr="scrollbars=no,status=no,resizable=no,left=" & GetLeft & ",top=" & GetTop & ",align=center,width=454,height=337"end function</script><script language="javascript">var mxmlHttp = new ActiveXObject("Microsoft.XMLHTTP") //XMLHTTP连接/*****************************************************'目的: 请求目标ASP,发送及返回数据'假设: mxmlHttp XMLHTTP连接'效果: mxmlHttp XMLHTTP连接'输入: 无'返回: 无'*****************************************************/ function GetTableData(strPageURL,strSendMsg){ var xmlErrMsg=new ActiveXObject("Microsoft.XMLDOM") try { mxmlHttp.Open("POST",strPageURL, false) } catch (exception) { alert('连接应用服务器出错!') return false; } try { mxmlHttp.Send(strSendMsg) } catch (exception) { alert('服务器忙!请稍后再试!') return false; } if (!mxmlHttp.responseXML) { alert('应用服务器返回错误数据!') return false; } xmlErrMsg.loadXML(mxmlHttp.responsetext); if (xmlErrMsg.selectSingleNode("//errmsg")!=null){ } return(true);}</Script></body> |
|