<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
SQLPassword="7i24.com"'为了安全，请修改数据库的登陆密码为您自己的密码，这个密码可以在SQL2000企业管理器--安全性--登陆--FreeHost用户属性中设置。










SQLAt="127.0.0.1,1433"'数据库所在位置，如果数据库在其他服务器请写别的IP
on error resume next
Application("FreeHostDBlink")="provider=sqloledb.1;Persist Security Info=false;data source="&SQLAt&";User ID=FreeHost;pwd="&SQLPassword&";Initial Catalog=FreeHost"
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
Set dsreg = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_System_Info where id=0"
		dsreg.Open Sql,conn,1,1
if not dsreg.Eof then
Application("FreeHostsharekey")=dsreg("FreeHostsharekey")
Application("FreeHost")=dsreg("FreeHost")
Application("indexsame")=dsreg("indexsame")
Application("NP_ShopID")=dsreg("NP_ShopID")
Application("NP_NPS_ShopID")=dsreg("NP_NPS_ShopID")
Application("NP_NPS_Key")=dsreg("NP_NPS_Key")
Application("NP_NPS_IP")=dsreg("NP_NPS_IP")
Application("NP_Payone_ShopID")=dsreg("NP_Payone_ShopID")
Application("NP_Ipay_ShopID")=dsreg("NP_Ipay_ShopID")
Application("NP_Ipay_Key")=dsreg("NP_Ipay_Key")
Application("NP_ChinaBank_ShopID")=dsreg("NP_ChinaBank_ShopID")
Application("NP_ChinaBank_Key")=dsreg("NP_ChinaBank_Key")
Application("NP_ALLBUY_ShopID")=dsreg("NP_ALLBUY_ShopID")
Application("NP_ALLBUY_Key")=dsreg("NP_ALLBUY_Key")
Application("NP_IPS_ShopID")=dsreg("NP_IPS_ShopID")
Application("NP_IPS_Key")=dsreg("NP_IPS_Key")
Application("Domain_API")=dsreg("Domain_API")
Application("DNS_API")=dsreg("DNS_API")
Application("DNS1")=dsreg("DNS1")
Application("DNS2")=dsreg("DNS2")
Application("DNS1_IP")=dsreg("DNS1_IP")
Application("DNS2_IP")=dsreg("DNS2_IP")
Application("URLRE_IP")=dsreg("URLRE_IP")
Application("DNScount")=dsreg("DNScount")
Application("Domain_Agent_username")=dsreg("Domain_Agent_username")
Application("Domain_Agent_password")=dsreg("Domain_Agent_password")
Application("Domain_Agent_username_1")=dsreg("Domain_Agent_username_1")
Application("Domain_Agent_password_1")=dsreg("Domain_Agent_password_1")
Application("Domain_Agent_password_1_API")=dsreg("Domain_Agent_password_1_API")
Application("Domain_Agent_username_2")=dsreg("Domain_Agent_username_2")
Application("Domain_Agent_password_2")=dsreg("Domain_Agent_password_2")
Application("Domain_Agent_password_2_API")=dsreg("Domain_Agent_password_2_API")
Application("Domain_Agent_username_3")=dsreg("Domain_Agent_username_3")
Application("Domain_Agent_password_3")=dsreg("Domain_Agent_password_3")
Application("Domain_Agent_username_4")=dsreg("Domain_Agent_username_4")
Application("Domain_Agent_password_4")=dsreg("Domain_Agent_password_4")
Application("Domain_Agent_username_5")=dsreg("Domain_Agent_username_5")
Application("Domain_Agent_password_5")=dsreg("Domain_Agent_password_5")
Application("Domain_Agent_username_5_emamil")=dsreg("Domain_Agent_username_5_emamil")
Application("Domain_Agent_username_4_checksum")=dsreg("Domain_Agent_username_4_checksum")
Application("Domain_HTTP")=dsreg("Domain_HTTP")
Application("PAY_Month")=dsreg("PAY_Month")
Application("nohost")=dsreg("nohost")
Application("notusedomain")=dsreg("notusedomain")
Application("EmailSendAPI")=dsreg("EmailSendAPI")
Application("icpbyhost")=dsreg("icpbyhost")
Application("emailau")=dsreg("emailau")
Application("hpsystem")=dsreg("hpsystem")
Application("agnimgpath")=dsreg("agnimgpath")
Application("canagnimg")=dsreg("canagnimg")
Application("NP_ali_ShopID")=dsreg("NP_ali_ShopID")
Application("NP_ali_Key")=dsreg("NP_ali_Key")
Application("openmustre")=dsreg("openmustre")
Application("ctldomain")=Trim(LCase(dsreg("ctldomain")))
Application("emailreg")=dsreg("emailreg")
Application("emailregact")=dsreg("emailregact")
Application("emailuserforget")=dsreg("emailuserforget")
Application("emailregagn")=dsreg("emailregagn")
Application("emailregactagn")=dsreg("emailregactagn")
Application("emailuserforgetagn")=dsreg("emailuserforgetagn")
Application("emaildomainopen")=dsreg("emaildomainopen")
Application("emaildomainend")=dsreg("emaildomainend")
Application("emailhostopen")=dsreg("emailhostopen")
Application("emailhostend")=dsreg("emailhostend")
Application("emailsqlopen")=dsreg("emailsqlopen")
Application("emailsqlend")=dsreg("emailsqlend")
Application("emailopen")=dsreg("emailopen")
Application("emailend")=dsreg("emailend")
Application("emailotheropen")=dsreg("emailotheropen")
Application("emailotherend")=dsreg("emailotherend")
Application("emailendmessage")=dsreg("emailendmessage")
Application("noticemesg")=""
Application("NP_Netcard_ShopID")=dsreg("NP_Netcard_ShopID")
Application("NP_Netcard_Key")=dsreg("NP_Netcard_Key")
Application("domainoptime")=now
Application("domainopmax")=180
Application("domainoplock")=false
Application("alipayid")=dsreg("alipayid")
Application("netpayselect")=dsreg("netpayselect")
Application("testtime")=dsreg("testtime")
Application("PAY_Season")=dsreg("PAY_Season")
Application("PAY_halfyear")=dsreg("PAY_halfyear")
Application("Domain_Agent_username_6")=dsreg("Domain_Agent_username_6")
Application("Domain_Agent_password_6")=dsreg("Domain_Agent_password_6")
Application("Domain_Agent_username_7")=dsreg("Domain_Agent_username_7")
Application("Domain_Agent_password_7")=dsreg("Domain_Agent_password_7")
Application("MaxConnections")=dsreg("MaxConnections")
Application("spacelimit")=dsreg("spacelimit")
Application("MaxBandwidth")=dsreg("MaxBandwidth")
Application("Agentcantest")=dsreg("Agentcantest")
Application("Agentcanunlimit")=dsreg("Agentcanunlimit")
Application("hpsystem")=dsreg("hpsystem")
if isnull(Application("hpsystem")) then Application("hpsystem")=false
Application("admmailname")=dsreg("admmailname")
Application("testsame")=dsreg("testsame")
Application("NP_99bill_ShopID")=dsreg("NP_99bill_ShopID")
Application("NP_99bill_Key")=dsreg("NP_99bill_Key")
Application("urlcheck")=dsreg("urlcheck")
Application("superdns")=dsreg("superdns")
Application("onlyone")=dsreg("onlyone")
Application("showdomainpass")=dsreg("showdomainpass")
Application("NetPaypercent")=dsreg("NetPaypercent")
Application("NP_BJ_ShopID")=dsreg("NP_BJ_ShopID")
Application("NP_BJ_Key")=dsreg("NP_BJ_Key")
Application("usercanselectapi")=dsreg("usercanselectapi")
Application("api1")=dsreg("api1")
Application("api2")=dsreg("api2")
Application("api3")=dsreg("api3")
Application("api4")=dsreg("api4")
Application("api5")=dsreg("api5")
Application("api6")=dsreg("api6")
Application("api7")=dsreg("api7")
Application("plugin1")=dsreg("plugin1")
Application("alipayuser7i24")=dsreg("alipayuser7i24")
Application("todelday")=dsreg("todelday")
Application("testhostcandomain")=dsreg("testhostcandomain")
Application("SMSUserName")=dsreg("SMSUserName")
Application("SMSKey")=dsreg("SMSKey")
Application("canuseorder")=dsreg("canuseorder")
Application("blockip")=dsreg("blockip")
if isnull(Application("blockip")) then Application("blockip")=""
Application("blockdomain")=dsreg("blockdomain")
if isnull(Application("blockdomain")) then Application("blockdomain")=""
Application("smsreg")=dsreg("smsreg")
Application("smshostopen")=dsreg("smshostopen")
Application("smshosttimeout")=dsreg("smshosttimeout")
Application("smsemailopen")=dsreg("smsemailopen")
Application("smsemailtimeout")=dsreg("smsemailtimeout")
Application("smsdomainopen")=dsreg("smsdomainopen")
Application("smsdomaintimeout")=dsreg("smsdomaintimeout")
Application("smsregcon")=dsreg("smsregcon")
Application("smshostopencon")=dsreg("smshostopencon")
Application("smshosttimeoutcon")=dsreg("smshosttimeoutcon")
Application("smsemailopencon")=dsreg("smsemailopencon")
Application("smsemailtimeoutcon")=dsreg("smsemailtimeoutcon")
Application("smsdomainopencon")=dsreg("smsdomainopencon")
Application("smsdomaintimeoutcon")=dsreg("smsdomaintimeoutcon")
Application("smssqlopen")=dsreg("smssqlopen")
Application("smssqltimeout")=dsreg("smssqltimeout")
Application("smssqlopencon")=dsreg("smssqlopencon")
Application("smssqltimeoutcon")=dsreg("smssqltimeoutcon")
Application("smsothertimeout")=dsreg("smsothertimeout")
Application("smsothertimeoutcon")=dsreg("smsothertimeoutcon")
Application("smsidctimeout")=dsreg("smsidctimeout")
Application("smsidctimeoutcon")=dsreg("smsidctimeoutcon")
Application("smstimeout")=dsreg("smstimeout")
Application("agncangetsms")=dsreg("agncangetsms")
Application("smsidcopen")=dsreg("smsidcopen")
Application("smsidcopencon")=dsreg("smsidcopencon")
Application("canagnrar")=dsreg("canagnrar")
Application("FapiaoPaypercent")=dsreg("FapiaoPaypercent")
Application("MinFapiaomoney")=dsreg("MinFapiaomoney")
Application("Fapiaokuai")=dsreg("Fapiaokuai")
Application("autodelhost")=dsreg("autodelhost")
Application("autodeltesthostnow")=dsreg("autodeltesthostnow")
Application("netpaylessmoney")=dsreg("netpaylessmoney")
Application("cnrepay")=dsreg("cnrepay")
Application("admemail")=dsreg("admemail")
Application("autodelicp")=dsreg("autodelicp")
Application("agentcannetpay")=dsreg("agentcannetpay")
Application("autopausebytesite")=dsreg("autopausebytesite")
Application("sendtonodefineagn")=dsreg("sendtonodefineagn")
Application("API2Check")="http://api.xinnet.com/domain/api.gb?method=check"
Application("API2Register")="http://api.xinnet.com/domain/api.gb?method=Register"
Application("API2Renew")="http://api.xinnet.com/domain/api.gb?method=DomainRenew"
Application("API2GetProductKey")="http://api.xinnet.com/domain/api.gb?method=GetProductKey"
Application("API2ChangeProductKey")="http://api.xinnet.com/domain/api.gb?method=ChangeProductKey"
Application("hostoneip")=dsreg("hostoneip")
Application("domaincansetM")=dsreg("domaincansetM")
Application("iphead")=dsreg("iphead")
Application("agnchangelogin")=dsreg("agnchangelogin")
Application("Domain_Agent_url_6")=dsreg("Domain_Agent_url_6")
Application("Domain_Agent_md5_6")=dsreg("Domain_Agent_md5_6")
Application("showapi1")=dsreg("showapi1")
Application("showapi2")=dsreg("showapi2")
Application("showapi3")=dsreg("showapi3")
Application("showapi4")=dsreg("showapi4")
Application("showapi5")=dsreg("showapi5")
Application("showapi6")=dsreg("showapi6")
Application("showapi7")=dsreg("showapi7")
Application("autodelsql")=dsreg("autodelsql")
Application("beianupsaok")=dsreg("beianupsaok")
Application("beianusecode")=dsreg("beianusecode")
Application("apipubdomain")=dsreg("apipubdomain")
Application("mustcheckid")=dsreg("mustcheckid")
Application("beianrecheck")=dsreg("beianrecheck")
Application("usenetcnhost")=dsreg("usenetcnhost")
Application("openispsystem")=dsreg("openispsystem")
Application("Beian_ver")=dsreg("Beian_ver")
Application("Beian_vertime")=dsreg("Beian_vertime")
Application("ispID")=dsreg("ispID")
Application("userName")=dsreg("userName")
Application("isppass")=dsreg("isppass")
Application("AESIV")=dsreg("AESIV")
Application("AESKey")=dsreg("AESKey")
Application("SOAP_Url_QS")=dsreg("SOAP_Url_QS")
Application("SOAP_Url_UP")=dsreg("SOAP_Url_UP")
Application("SOAP_Url_VM")=dsreg("SOAP_Url_VM")
Application("opencheckmobi")=dsreg("opencheckmobi")
Application("api7select")=dsreg("api7select")

Application("smscdnopen")=dsreg("smscdnopen")
Application("smscdntimeout")=dsreg("smscdntimeout")
Application("smscdnopencon")=dsreg("smscdnopencon")
Application("smscdntimeoutcon")=dsreg("smscdntimeoutcon")

Application("smsvpsopen")=dsreg("smsvpsopen")
Application("smsvpstimeout")=dsreg("smsvpstimeout")
Application("smsvpsopencon")=dsreg("smsvpsopencon")
Application("smsvpstimeoutcon")=dsreg("smsvpstimeoutcon")


Application("emailcdnopen")=dsreg("emailcdnopen")
Application("emailcdnend")=dsreg("emailcdnend")
Application("emailvpsopen")=dsreg("emailvpsopen")
Application("emailvpsend")=dsreg("emailvpsend")
Application("emailidcopen")=dsreg("emailidcopen")
Application("emailidcend")=dsreg("emailidcend")

Application("fastlogin_usealipay")=dsreg("fastlogin_usealipay")
Application("fastlogin_useqq")=dsreg("fastlogin_useqq")
Application("fastlogin_useqq_appid")=dsreg("fastlogin_useqq_appid")
Application("fastlogin_useqq_appkey")=dsreg("fastlogin_useqq_appkey")


Application("QQ_CALLBACK_URL")=dsreg("QQ_CALLBACK_URL")
Application("vpscantest")=dsreg("vpscantest")
Application("vpscantestST")=dsreg("vpscantestST")
Application("vpscantestEN")=dsreg("vpscantestEN")
Application("smsau")=dsreg("smsau")
Application("emailmustone")=dsreg("emailmustone")
Application("mobimustone")=dsreg("mobimustone")

Application("smsBy")=dsreg("smsBy")
Application("smsByUserid")=dsreg("smsByUserid")
Application("fastlogin_autoreg")=dsreg("fastlogin_autoreg")
Application("DNScount")=dsreg("DNScount")
Application("VPScpdomain")=Trim(LCase(dsreg("VPScpdomain")))
Application("md5serverurl")="http://sys.7i24.com/system/ali/" 
Application("autodelvps")=dsreg("autodelvps")
Application("todeldayvps")=dsreg("todeldayvps")
Application("autodeltestvpsnow")=dsreg("autodeltestvpsnow")
Application("VPStestHour")=dsreg("VPStestHour")

Application("siteurl")="http://www.miitbeian.gov.cn"
Application("api6select")=dsreg("api6select")

Application("ZM_use7i24")=dsreg("ZM_use7i24")
Application("ZM_appId")=dsreg("ZM_appId")
Application("ZM_zhimaPublicKey")=dsreg("ZM_zhimaPublicKey")
Application("ZM_privateKey")=dsreg("ZM_privateKey")
Application("ZM_ReturnUrl")=dsreg("ZM_ReturnUrl")


Application("ZM_Use")=dsreg("ZM_Use")
Application("ZM_LoginInmustpass")=dsreg("ZM_LoginInmustpass")
Application("ZM_LoginInRedirect")=dsreg("ZM_LoginInRedirect")

end if
dsreg.close
set dsreg=nothing
Application("sitearry")=split(Application("FreeHost"),",")
Application("blockiparry")=split(Replace(Application("blockip"),".*",""),"@")
Application("blockdomainarry")=split(Application("blockdomain"),"@")
Set dsreg = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Admuser where superuser='freehost'"
	dsreg.Open Sql,conn,1,1
If dsreg.Eof Then Application("admuserer")=true'3265
If not dsreg.Eof Then
Application("superuser")=dsreg("superuser")
Application("Mail_from")=dsreg("Mailfrom")
Application("Mail_fromName")=dsreg("MailfromName")
Application("Mail_fromPass")=dsreg("MailfromPass")
Application("Mail_fromServer")=dsreg("MailfromServer")
Application("Mail_emailport")=dsreg("emailport")
Application("Mail_EnableSsl")=dsreg("EnableSsl")
if dsreg("password")="0715ea808afbdf0282d66159ca66bb7c" then Application("firstuse")=true '第一次访问后台,提示初始密码是7i24freehost

Set ds = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='freehost' and nowuse='1'"
ds.open sql,conn,1,1
if not ds.eof then
Application("html1")=ds("html1")
Application("html2")=ds("html2")
Application("html3")=ds("html3")
Application("html4")=ds("html4")
Application("html5")=ds("html5")
Application("html6")=ds("html6")
Application("html7")=ds("html7")
Application("html8")=ds("html8")
Application("html9")=ds("html9")
Application("html10")=ds("html10")
Application("html11")=ds("html11")
Application("html12")=ds("html12")
Application("html13")=ds("html13")
Application("html14")=ds("html14")
Application("html15")=ds("html15")
Application("html16")=ds("html16")
Application("html17")=ds("html17")
Application("html18")=ds("html18")
Application("html19")=ds("html19")
Application("html20")=ds("html20")
Application("html21")=ds("html21")
Application("html22")=ds("html22")
Application("html23")=ds("html23")
Application("html24")=ds("html24")
Application("html25")=ds("html25")
Application("html26")=ds("html26")
Application("html27")=ds("html27")
Application("html28")=ds("html28")
Application("html29")=ds("html29")
Application("html30")=ds("html30")
Application("html31")=ds("html31")
Application("html32")=ds("html32")
end if
ds.close
Set ds = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='freehost' and agentdefault='1' order by id desc"
ds.open sql,conn,1,1
if not ds.eof then
Application("agnhtml1")=ds("html1")
Application("agnhtml2")=ds("html2")
Application("agnhtml3")=ds("html3")
Application("agnhtml4")=ds("html4")
Application("agnhtml5")=ds("html5")
Application("agnhtml6")=ds("html6")
Application("agnhtml7")=ds("html7")
Application("agnhtml8")=ds("html8")
Application("agnhtml9")=ds("html9")
Application("agnhtml10")=ds("html10")
Application("agnhtml11")=ds("html11")
Application("agnhtml12")=ds("html12")
Application("agnhtml13")=ds("html13")
Application("agnhtml14")=ds("html14")
Application("agnhtml15")=ds("html15")
Application("agnhtml16")=ds("html16")
Application("agnhtml17")=ds("html17")
Application("agnhtml18")=ds("html18")
Application("agnhtml19")=ds("html19")
Application("agnhtml20")=ds("html20")
Application("agnhtml21")=ds("html21")
Application("agnhtml22")=ds("html22")
Application("agnhtml23")=ds("html23")
Application("agnhtml24")=ds("html24")
Application("agnhtml25")=ds("html25")
Application("agnhtml26")=ds("html26")
Application("agnhtml27")=ds("html27")
Application("agnhtml28")=ds("html28")
Application("agnhtml29")=ds("html29")
Application("agnhtml30")=ds("html30")
Application("agnhtml31")=ds("html31")
Application("agnhtml32")=ds("html32")
else
Application("agentnodefault")=true
end if
ds.close
set ds=nothing
end if
dsreg.close
set dsreg=nothing
conn.Close
set conn=nothing
'Application("sessionlen")=0
'Application("onlinecount")=0
'Application("onlinedomain")=""
Application("startattime")=now
End Sub


Sub Session_OnStart

'以下是防CC攻击的保护代码一:(默认打开)受攻击时启用它.
'if LCase(Request.ServerVariables("SERVER_PROTOCOL"))<>"http/1.1" then
'response.redirect "http://127.0.0.1/?"&Request.ServerVariables("SERVER_NAME")&"--"&Request.ServerVariables("SERVER_PROTOCOL")   '转向回攻击者自己
'Exit Sub
'end if 


'以下是防CC攻击的保护代码二:(默认关闭)
'if Request.ServerVariables("SERVER_NAME")="受攻击的代理域名如www.abc1.com" or Request.ServerVariables("SERVER_NAME")="受攻击的代理域名如www.abc2.com" then
'response.redirect "http://127.0.0.1"   '转向回攻击者自己
'Exit Sub
'end if 

session("agentname")="n"
'if Request.ServerVariables("HTTP_FreeHostAPI")="7i24.com" And Request.ServerVariables("SERVER_NAME")=Application("apipubdomain") Then
if Request.ServerVariables("HTTP_FreeHostAPI")="7i24.com" Then
Exit Sub
end if 

if Request.ServerVariables("url")="/api/freehost.asp" Or Request.ServerVariables("url")="/api/hostapi.asp" Or Request.ServerVariables("SERVER_NAME")=Application("ctldomain") then
Exit Sub
end if 

session("ism")=false
for i=0 to ubound(Application("sitearry"))
if Application("sitearry")(i)=Request.ServerVariables("SERVER_NAME") then
session("ism")=true
exit for
end if
Next

if session("ism")=false then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsagentdomain = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Agent_ALLdomain where domain='"&Request.ServerVariables("SERVER_NAME")&"'"
		dsagentdomain.Open Sql,conn,1,1
if not dsagentdomain.eof then
session("agentname")=dsagentdomain("username")
Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='"&session("agentname")&"' and nowuse='1'"
		ds.Open Sql,conn,1,1
if not ds.eof then
session("html1")=ds("html1")
session("html2")=ds("html2")
session("html3")=ds("html3")
session("html4")=ds("html4")
session("html5")=ds("html5")
session("html6")=ds("html6")
session("html7")=ds("html7")
session("html8")=Application("html8")
session("html9")=Application("html9")
session("html10")=Application("html10")
session("html11")=ds("html11")
session("html12")=ds("html12")
session("html13")=ds("html13")
session("html14")=ds("html14")
session("html15")=ds("html15")
session("html16")=ds("html16")
session("html17")=ds("html17")
session("html18")=ds("html18")
session("html19")=ds("html19")
session("html20")=ds("html20")
session("html21")=ds("html21")
session("html22")=ds("html22")
session("html23")=ds("html23")
session("html24")=ds("html24")
session("html25")=ds("html25")
session("html26")=ds("html26")
session("html27")=ds("html27")
session("html28")=ds("html28")
session("html29")=ds("html29")
session("html30")=ds("html30")
session("html31")=ds("html31")
session("html32")=ds("html32")
else

Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='"&dsagentdomain("agent1")&"' and nowuse='1'"
		ds.Open Sql,conn,1,1
if not ds.eof then'上级代理中是否有模板
session("html1")=ds("html1")
session("html2")=ds("html2")
session("html3")=ds("html3")
session("html4")=ds("html4")
session("html5")=ds("html5")
session("html6")=ds("html6")
session("html7")=ds("html7")
session("html8")=Application("html8")
session("html9")=Application("html9")
session("html10")=Application("html10")
session("html11")=ds("html11")
session("html12")=ds("html12")
session("html13")=ds("html13")
session("html14")=ds("html14")
session("html15")=ds("html15")
session("html16")=ds("html16")
session("html17")=ds("html17")
session("html18")=ds("html18")
session("html19")=ds("html19")
session("html20")=ds("html20")
session("html21")=ds("html21")
session("html22")=ds("html22")
session("html23")=ds("html23")
session("html24")=ds("html24")
session("html25")=ds("html25")
session("html26")=ds("html26")
session("html27")=ds("html27")
session("html28")=ds("html28")
session("html29")=ds("html29")
session("html30")=ds("html30")
session("html31")=ds("html31")
session("html32")=ds("html32")
else
session("html1")=Application("agnhtml1")
session("html2")=Application("agnhtml2")
session("html3")=Application("agnhtml3")
session("html4")=Application("agnhtml4")
session("html5")=Application("agnhtml5")
session("html6")=Application("agnhtml6")
session("html7")=Application("agnhtml7")
session("html8")=Application("agnhtml8")
session("html9")=Application("agnhtml9")
session("html10")=Application("agnhtml10")
session("html11")=Application("agnhtml11")
session("html12")=Application("agnhtml12")
session("html13")=Application("agnhtml13")
session("html14")=Application("agnhtml14")
session("html15")=Application("agnhtml15")
session("html16")=Application("agnhtml16")
session("html17")=Application("agnhtml17")
session("html18")=Application("agnhtml18")
session("html19")=Application("agnhtml19")
session("html20")=Application("agnhtml20")
session("html21")=Application("agnhtml21")
session("html22")=Application("agnhtml22")
session("html23")=Application("agnhtml23")
session("html24")=Application("agnhtml24")
session("html25")=Application("agnhtml25")
session("html26")=Application("agnhtml26")
session("html27")=Application("agnhtml27")
session("html28")=Application("agnhtml28")
session("html29")=Application("agnhtml29")
session("html30")=Application("agnhtml30")
session("html31")=Application("agnhtml31")
session("html32")=Application("agnhtml32")

session("ism")=false'如果没有定义htmlsytle
end if
end if'此代理直接有模板
ds.close
set ds=nothing
else'代理绑定的域名中没有这个域名
session("ism")=true
session("nohost")=True
'if Application("nohost")=true and session("nohost")=true then Response.Redirect("/nohost.asp")'启用本功能必须在系统参数中,将127.0.0.1设置为其中一个主控域名
session("html1")=Application("html1")
session("html2")=Application("html2")
session("html3")=Application("html3")
session("html4")=Application("html4")
session("html5")=Application("html5")
session("html6")=Application("html6")
session("html7")=Application("html7")
session("html8")=Application("html8")
session("html9")=Application("html9")
session("html10")=Application("html10")
session("html11")=Application("html11")
session("html12")=Application("html12")
session("html13")=Application("html13")
session("html14")=Application("html14")
session("html15")=Application("html15")
session("html16")=Application("html16")
session("html17")=Application("html17")
session("html18")=Application("html18")
session("html19")=Application("html19")
session("html20")=Application("html20")
session("html21")=Application("html21")
session("html22")=Application("html22")
session("html23")=Application("html23")
session("html24")=Application("html24")
session("html25")=Application("html25")
session("html26")=Application("html26")
session("html27")=Application("html27")
session("html28")=Application("html28")
session("html29")=Application("html29")
session("html30")=Application("html30")
session("html31")=Application("html31")
session("html32")=Application("html32")

end if
dsagentdomain.close
set dsagentdomain=nothing
conn.close
set conn=nothing
end If

'sessionlen=0
'Application("onlinecount")=Application("onlinecount")+1
'For i=1 To 25
'sessionlen=sessionlen+Lenb(session("html"&i))
'next
'Application("sessionlen")=Application("sessionlen")+sessionlen
'If Len(Application("onlinedomain"))>40690 Then Application("onlinedomain")=""
'Application("onlinedomain")=Application("onlinedomain")&Request.ServerVariables("REMOTE_ADDR")&"||"&Request.ServerVariables("SERVER_NAME")&"||"&sessionlen&"||"&Request.ServerVariables("HTTP_REFERER")&";"

End Sub
'Sub Session_OnEnd
'on error resume next
'sessionlen=0
'Application("onlinecount")=Application("onlinecount")-1
'For i=1 To 25
'sessionlen=sessionlen+Lenb(session("html"&i))
'next
'Application("sessionlen")=Application("sessionlen")-sessionlen
'Application("onlinedomain")=Replace(Application("onlinedomain"),";","")
'arrydomina=Split(Application("onlinedomain"),";")
'For i=0 To UBound(arrydomina)
'If arrydomina(i)=Request.ServerVariables("REMOTE_ADDR")&"||"&Request.ServerVariables("SERVER_NAME")&"||"&sessionlen&"||"&Request.ServerVariables("HTTP_REFERER") Then arrydomina(i)=""
'next

'End Sub
</SCRIPT>