实现的功能是:网站登录后,打开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) 编辑 收藏 所属分类:
我的经验