<%
set conn = server.createobject("adodb.connection")
conn.open Application("sql")
sql = "select * from zt_question where viewit = 2 and report = '哈尔滨、北江' order by backtime"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1
while not rs.eof
if Minute(rs("uptime")) < 10 then
fen = "0" & Minute(rs("uptime"))
else
fen = Minute(rs("uptime"))
end if
shi = hour(rs("uptime"))
shijian = shi &":"& fen
if rs("speaker") = "主持人" or rs("speaker") = "中国水网" then
ren = " " & rs("speaker") & " "
elseif rs("speaker")="网友" then
ren = " 网友:" & rs("username") & "提问"
else
ren = " " & rs("speaker") & " "
end if
%>
<%=shijian%> <%=ren%> 说： <%=rs("sayword")%>
<%
rs.movenext
wend
%>
松花江污染事件
哈尔滨市取水口与净水厂关系
制水二厂（取水口）
粉末炭投加
广东北江镉污染事件应急供水技术与工程实施
南华水厂应急隔除镉工程改造
中国水网版权所有
<%
rs.close
set rs =nothing
conn.close
set conn = nothing
%>
