安庆市环境保护局网站

<% dim conn,dbuid,dbpwd,dBName,dbip,rsa,database,connstr '修改以下信息以适合你的网站 '--------------------------------------------------------------------------- dbuid="aqhb2008" '数据库登陆名 dbpwd="5533446HB5535447EPB" '数据库密码 dBName="AQHB.GOV.CN" '数据库名称 dbip="10.34.228.230" '数据库所在地址，如果是本地数据库则为：(local) '--------------------------------------------------------------------------- set conn=Server.CreateObject("adodb.Connection") Conn.Open "PROVIDER=SQLOLEDB.1;Data Source="&dbip&";Initial Catalog="&dBName&";Persist Security Info=True;User ID="&dbuid&";Password="&dbpwd&";Connect Timeout=30" %>

城区空气质量日报
<% sql="select * from ReportAir order by id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 %>

发布时间	<%=rs("rtime")%>

空气质量状况	<%=rs("AirQ")%>

污染物指数	<%=rs("api")%>

首要污染物	<%=rs("aprimary")%>

空气质量级别	<%=rs("alevel")%>

监测时间	<%=rs("mtime")%>

空气质量预报
<% sql="select * from ReportAir0 order by id desc" set rsm=server.createobject("adodb.recordset") rsm.open sql,conn,1,1 %>

预报时间	<%=rsm("ttime")%>

API值范围	<%=rsm("tAPI")%>

首要污染物	<%=rsm("taprimary")%>

空气质量状况	<%=rsm("tairQ")%>

查询更多

长江水质（安庆皖河口）

<% sql="select * from ReportWater1 order by id desc" set rsw1=server.createobject("adodb.recordset") rsw1.open sql,conn,1,1 %>

发布时间	<%=rsw1("rtime")%>

pH值	<%=rsw1("ph")%>

溶解氧	<%=rsw1("doc")%>mg/L

高锰酸盐指数	<%=rsw1("cod")%>mg/L

氨氮	<%=rsw1("nhn")%>mg/L

符合标准	<%=rsw1("waterQ")%>

安庆市功能区地表水

<% sql="select * from ReportWater2 order by id desc" set rsw2=server.createobject("adodb.recordset") rsw2.open sql,conn,1,1 %>

发布时间	<%=rsw2("rtime")%>

符合标准	<%=rsw2("waterQ")%>

皖河水质	<%=rsw2("wanhe")%>

破罡湖水质	<%=rsw2("poganghu")%>

石塘湖水质	<%=rsw2("shitanghu")%>

莲湖水质	<%=rsw2("lianhu")%>

菱湖水质	<%=rsw2("linghu")%>

饮用水源水质报告

<% sql="select * from ReportWater3 order by id desc" set rsw3=server.createobject("adodb.recordset") rsw3.open sql,conn,1,1 %>

发布时间	<%=rsw3("rtime")%>

长江干流水质	<%=rsw3("changjiang")%>

市一水厂	<%=rsw3("water1")%>

市二、三水厂	<%=rsw3("water23")%>

市石化水厂	<%=rsw3("shihua")%>

查询更多

长江水质（安庆皖河口）

城区区域噪声

<% sql="select * from Reportvoice order by id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 %>

发布时间	<%=rs("rtime")%>

宜城饭店	<%=rs("yichen")%>dB(A)

石化新北区	<%=rs("shihuabei")%>dB(A)

高琦分校	<%=rs("gaoqi")%>dB(A)

马山宾馆	<%=rs("mashan")%>dB(A)

合洗厂东	<%=rs("hexi")%>dB(A)

种子公司	<%=rs("zhongzi")%>dB(A)

查询更多