 |
|
<%
dim conn,dbuid,dbpwd,dBName,dbip,rsa,database,connstr
'修改以下信息以适合你的网站
'---------------------------------------------------------------------------
dbuid="aqhb2008" '数据库登陆名
dbpwd="5533446HB5535447EPB" '数据库密码
dBName="AQHB2011" '数据库名称
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("aprimary")%> |
| 空气质量状况 | <%=rs("AirQ")%> |
污染物指数 | <%=rs("api")%> |
| 空气质量级别 | <%=rs("alevel")%> |
监测时间 | <%=rs("mtime")%> |
|
| 查询更多 |
<%rs.close
set rs=nothing %>
<%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")%> |
| 查询更多 |
<%rsm.close
set rsm=nothing %>
<%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")%> |
| 查询更多 |
<%rsw1.close
set rsw1=nothing %>
|
|
|