const.asp

来自「短信息群发平台 功能强大 使用于各行各业 还可以和其他系统连接」· ASP 代码 · 共 49 行

<%If IsObject(contt) = false Then

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

end if

set rs=server.createobject("adodb.recordset")
sql="select * from es_config"
rs.open sql,contt,1,1
if not rs.eof then
	Application("citybottom")=rs("es_citybottom")
	Application("citycss")=rs("es_citycss")
	Application("cityurl")=rs("es_cityurl")
	Application("cityname")=rs("es_cityname")
	Application("cityusertk")=rs("cityusertk")
	Application("cityviptk")=rs("es_cityviptk")
	Application("cityabout")=rs("es_cityabout")
	Application("cityabout")=rs("es_cityabout")
	Application("citycontact")=rs("es_citycontact")
	Application("citybuy")=rs("es_citybuy")
	application("cityadmin")=rs("es_cityadmin")
	
end if
rs.close


contt.close
set contt=nothing

end if
    citycss=Application("citycss")
    cityurl=Application("cityurl")
    cityname=Application("cityname")
    citytitle=Application("citytitle")
  	cityviptk=application("cityviptk")
    citybottom=Application("citybottom")
	cityabout=Application("cityabout")
	citycontact=Application("citycontact")
	citybuy=Application("citybuy")
	cityadmin=Application("cityadmin")
	
%>