随笔-65  评论-68  文章-4  trackbacks-0

实现的功能是:网站登录后,打开RTX,自动登录。

asp文件的内容是:



ASP OPERATIONS...

%>

<!--
此中间部分发送到客户端
-->

<OBJECT id=RTXAX
data=data:application/x-oleobject;base64,fajuXg4WLUqEJ7bDM/7aTQADAAAaAAAAGgAAAA==
classid=clsid:5EEEA87D-160E-4A2D-8427-B6C333FEDA4D VIEWASTEXT>
</OBJECT>
  <SCRIPT language="vbscript">
 Set objProp = RTXAX.GetObject("Property")   
objProp.Value("RTXUsername") = "USERNAME"
objProp.Value("LoginSessionKey") = "<%


      '用来产生SessionKey
      dim RTXObj
     dim RTXParams
     dim RTXResult
  

      Set RTXObj =  CreateObject("rtxserver.rtxobj")
      Set RTXParams = CreateObject("rtxserver.collection")
    
      RTXObj.Name = "SYSTOOLS"
      RTXParams.Add "USERNAME","USERNAME"
      response.write(RTXobj.Call2(&H2000, RTXParams))
 
    %>"
objProp.Value("ServerAddress") = "SERVERIP"
objProp.Value("ServerPort") = 8000
   
    RTXAX.Call 2, objProp
    
</script>

<!--
中间部分结束
-->


<%


ASP OPERATIONS...

posted on 2005-04-29 23:02 小爽 阅读(1514) 评论(0)  编辑  收藏 所属分类: 我的经验

只有注册用户登录后才能发表评论。


网站导航: