<%
set conn = server.createobject("adodb.connection")
conn.open Application("sql")
sql = "select * from zt_question where viewit = 0 and report = '哈尔滨停水事件' order by qid desc"
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") & " "
else
ren = " 网友 " & rs("username") & " "
end if
%>
<%if rs("backtime") = "" then %>