利用ASP实现RTX与网站登录的结合

利用ASP实现RTX与网站登录的结合

实现的功能是：网站登录后，打开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...