<!--#include file="ubb.asp"-->
<%If IsObject(contt) = false Then

set contt = Server.CreateObject("ADODB.Connection")
contt.Open conndata
If Err.Number <> 0 Then
   Response.write "系统日常维护中!"
   Response.End()
end if

set rs=server.createobject("adodb.recordset")
sql="select * from config"
rs.open sql,contt,1,1
if not rs.eof then

	Application("cityurl")=rs("cityurl")
	
	Application("citytitle")=rs("citytitle")
	
	Application("citydns")=rs("citydns")                                '二级域名后缀
	
	application("dnskey")=rs("dnskey")                                  '二级域名开关
	application("dnswww")=rs("dnswww")                                  'www


end if
rs.close


contt.close
set contt=nothing

end if
  
    cityurl=Application("cityurl")
   
    citytitle=Application("citytitle")
   
	citydns=Application("citydns")
	
	dnskey=application("dnskey")
	dnswww=application("dnswww")
	
'====================================================

%>