<!--#include file="conn.asp"-->
<%
id=request("id")
kk=""
set rs=server.CreateObject("adodb.recordset")
sql="select * from guest where guest_id=" & id
rs.open sql,conn,1,1
if rs.recordcount<>0 then
g_content=rs("guest_content")
end if
rs.close
rs.open "select * from reply where guest_id=" & id & " order by reply_time asc",conn,1,1
if rs.recordcount=0 then
kk="转载请注明转载出处..."
else
do while not rs.eof
rep_content=rs("reply_content")
rep_name=rs("reply_name")
rep_time=rs("reply_time")
kk=kk & rep_name & "　［" & rep_time & "］<br>" & rep_content & "<br>-----------------------------------------------------------------------<br>"
rs.movenext
loop
end if
rs.close
rs.open "select * from guest where guest_id=" & id,conn,1,3
rs("guest_hit")=rs("guest_hit")+1
rs.update
rs.close
set rs=nothing
kk="r_content=" & g_content & "<br>-----------------------------------------------------------------------<br>" & kk
response.Write(kk)
%>