X-Router 开发接口说明

其他开发接口

强制在线机器指定时间后注销
在X-Router安装目录下创建ExtCallSet.ini文件,内容如下:

[LogoutPC]
{启用自动注销登录用户}
Enabled=1
{用户登录多长时间注销,以分钟为单位}
Times=60

客户机上线后实现自动登录

在X-Router安装目录下创建ExtCallSet.ini文件,内容如下:

[AutoLogon]

{启用自动登录设置为1,不启用设置为0}
Enabled=1

{检查是否符合自动登录的网址,除了[IP]和[MAC]不能修改以外,其他都可以修改}
{URL总长度限制在255个字符}
URL=http://10.0.0.1/checkautologon.asp?IP=[IP]&MAC=[MAC]&VLANID=[VLANID]

{网页返回不允许自动登录的错误信息,限制在15个字符}
{如果允许自动登录,请返回一个登录名给该客户机,该名称会显示在在线机器中}
FailureInfo=Error

上例中http://10.0.0.1/checkautologon.asp内容如下(实际上只要不输出Error信息就表示可以成功自动登录):

<%
dim rs,sql
dim conn,connstr
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb") '数据库路径和名称
conn.Open connstr

set rs=server.createobject("adodb.recordset")
sql="select * from Users where MAC='"& request("MAC") & "'"
rs.open sql,conn,1,3
if not rs.EOF then
rs("LogonTime") = Now()
rs("LogonIP") = request("IP")
response.write(rs("name"))
rs.update
rs.close
Set rs=nothing
response.end
end if
response.write("Error")
%>

客户机下线通知

在X-Router安装目录下创建ExtCallSet.ini文件,内容如下:

[NotifyLogout]

{启用机器下线通知设置为1,不启用设置为0}
Enabled=1

{设置为1表示只有登录的用户注销才通知,为0表示无论登录与否注销都通知}
OnlyLogonUser=1

{通知下线调用的网址}
URL=http://10.0.0.1/notifylogout.asp?IP=[IP]&MAC=[MAC]&VLANID=[VLANID]&UserName=[UserName]

上例中http://10.0.0.1/notifylogout.asp内容如下:

<%
dim rs,sql
dim conn,connstr
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb") '数据库路径和名称
conn.Open connstr

set rs=server.createobject("adodb.recordset")
sql="select * from Users where LogonIP='"& request("IP") & "'"
rs.open sql,conn,1,3
if not rs.EOF then
rs("LogoutTime") = Now()
rs.update
rs.close
Set rs=nothing
response.end
end if
%>