<%
dim saidbstr,saimdb,saimdbmm,saidburl,saidbty,saimssqlip,saimssqlmc,saimssqler,saimssqlmm
saidburl=lcase(right(Request.ServerVariables("HTTP_HOST"),6))
const saidbqz="ees_"
if saidburl="90.com" or saidburl="me.net" or saidburl="ime.cn" then
'===================★MSSQL
saidbty=1'1=MSSQL 0=ACCESS
saimssqlip="(local)"'ip es:(local)
saimssqlmc="Men"'dataname
saimssqler="EESAI"'user
saimssqlmm="Guoyansai2015"'pass
'response.write saidburl&saimssqlip

elseif saidburl="ai.com" or saidburl="ya.com" then
'===================★MSSQL
saidbty=1'1=MSSQL 0=ACCESS
saimssqlip="(local)"'ip es:(local)
saimssqlmc="Asai"'dataname
saimssqler="EESAI"'user
saimssqlmm="Guoyansai2015"'pass

elseif saidburl="st:100" or saidburl="84:100" or saidburl="bn.com" or saidburl="obn.cn" then
'===================★ACCESS
saidbty=0'1=MSSQL 0=ACCESS
saimdb=s_drsys&"www.biobn.com.mdb"'
saimdbmm=""'pass

elseif saidburl="host:7" or saidburl="host:6" then
'===================★ACCESS
saidbty=0'1=MSSQL 0=ACCESS
saimdb=s_drsys&"edu.mdb"'
saimdbmm=""'pass

elseif saidburl="ost:88" then
'===================★ACCESS
saidbty=0'1=MSSQL 0=ACCESS
saimdb=s_drsys&"asai.mdb"'
saimdbmm=""'pass

elseif saidburl="ost:90" then
'===================★ACCESS
saidbty=0'1=MSSQL 0=ACCESS
saimdb=s_drsys&"EESai.mdb"'
saimdbmm=""'pass
''===================★MSSQL
'saidbty=1'1=MSSQL 0=ACCESS
'saimssqlip="222.168.57.139"'ip es:(local)
'saimssqlmc="Men"'dataname
'saimssqler="EESAI"'user
'saimssqlmm="Guoyansai2015"'pass
'response.write saidburl&saimssqlip

elseif saidburl="ost:29" then
'===================★ACCESS
saidbty=0'1=MSSQL 0=ACCESS
saimdb=s_drsys&"eesaicms.mdb"'
saimdbmm=""'pass

else
'===================★ACCESS
saidbty=0'1=MSSQL 0=ACCESS
saimdb=s_drsys&"www.eesai.com.mdb"'
saimdbmm=""'pass
end if
'-----------------------------------
'open db
'=opendb(dbfdr)
'-----------------------------------
function opendb(dbfdr)
if saidbty=1 then
saidbstr=saimssqlip&","&saimssqlmc&","&saimssqler&","&saimssqlmm
else
if left(saimdb,1)<>"/" then saimdb=dbfdr&saimdb
if saimdbmm<>"" then
saidbstr=saimdb&","&saimdbmm
else
saidbstr=saimdb
end if
end if
'response.Write saidbstr&now()
Call saic(saidbty,saidbstr)
end function
%>