<%
dim arrUpiUrls,RegSiteIds,RegSiteId,SecurityKey,HL_Url,Manage_Url
Const RefreshTime = 1                          '注册、登录、退出同步跳转时间。
Const HLIntegration = True                      '是否请设为True。
Const Domainname="" '设置你的子域名，如你的域名是www.ABC.com那么ABC.com则为你的子域名，如果你的域名是http://ABC.cn那么你的子域名就是ABC.cn
Set rsweb=server.CreateObject("ADODB.Recordset")
sqlweb="select top 1 * from hl_web"
rsweb.open sqlweb,conn,1,1
SecurityKey = rsweb("hl_webkey")                '网站私钥，最好设成10位以上的字符串。
HL_Url=rsweb("hl_weburl")                       '设置主站
Manage_Url=rsweb("hl_manageurl")                 '设置Manage_Url地址
Set rsinfo=server.CreateObject("ADODB.Recordset")
sqlinfo="select * from hl_config where hl_open=1"
rsinfo.open sqlinfo,conn,1,1
do while not rsinfo.eof
arrUpiUrls =arrUpiUrls&rsinfo("hl_interface")&"|"   '要整合的程序的完整URL（以“http://”开头，以接口文件的文件名结尾），如果有多个系统要整合，每个URL间用“|”分隔
RegSiteIds=RegSiteIds&rsinfo("id")&","
rsinfo.movenext
loop
RegSiteIds=RegSiteIds&","
RegSiteIds=replace(RegSiteIds,",,","")

arrUpiUrls=arrUpiUrls&"|"
arrUpiUrls=replace(arrUpiUrls,"||","")
Dim HLUpi, iUpi
HLUpi = Split(arrUpiUrls, "|")
rsweb.close
set rsweb=nothing
rsinfo.close
set rsinfo=nothing
%>
