<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim arrUpiUrls
Const RefreshTime = 1                         
Const HLIntegration = True                      '


Set rsweb=server.CreateObject("ADODB.Recordset")
sqlweb="select top 1 * from hl_web"
rsweb.open sqlweb,conn,1,1
SecurityKey = rsweb("hl_adminkey")             '后台私钥，最好设成10位以上的字符串。
HL_Url=rsweb("hl_weburl")
Set rsinfo=server.CreateObject("ADODB.Recordset")
sqlinfo="select * from hl_config where hl_admin_open=1"
rsinfo.open sqlinfo,conn,1,1
do while not rsinfo.eof
arrUpiUrls =arrUpiUrls&rsinfo("hl_admininterface")&"|"    '要整合的程序的完整URL（以“http://”开头，以接口文件的文件名结尾），如果有多个系统要整合，每个URL间用“|”分隔
rsinfo.movenext
loop
arrUpiUrls=arrUpiUrls&"|"
arrUpiUrls=replace(arrUpiUrls,"||","")
Dim HLUpi, iUpi
HLUpi = Split(arrUpiUrls, "|")
rsweb.close
set rsweb=nothing
rsinfo.close
set rsinfo=nothing
%>
