實(shí)現(xiàn)的功能是：網(wǎng)站登錄后，打開(kāi)RTX，自動(dòng)登錄。

asp文件的內(nèi)容是：



ASP OPERATIONS...

%>

<!--
此中間部分發(fā)送到客戶端
-->
<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") = "<%


      '用來(lái)產(chǎn)生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>

<!--
中間部分結(jié)束
-->

<%


ASP OPERATIONS...