<%on error resume next%>
<%
compid=replace(request("compid"),"'","’")
uid=replace(request("uid"),"'","’")
mcontent=replace(request("mcontent"),">",">")
mcontent=replace(mcontent,"<","<")
mcontent=replace(mcontent,"'","’")
if rs.eof or rs.bof then
conn.execute "insert into message (user,mcontent,mdate,compid) values ('"&uid&"','"&mcontent&"','"&now()&"','"&compid&"')"
end if
rs.close
set rs=nothing
id=replace(request("compid"),"'","’")
sqlt="select * from comp where id=" & id
Set rst=Server.CreateObject("ADODB.RecordSet")
rst.open sqlt,conn,1,1
if rst("messageCheck")=0 then
Response.Write ""
response.end
end if
%>
<%=rst("company")%>楼盘评论留言-武鸣信息网
<%
sql="select * from message where compid='"&compid&"' order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=20
rs.AbsolutePage=pagecount
do while not rs.eof
m_id=rs("ID")
lzuser=rs("user")
%>
<%
dim rs_R,sql_R
Set rs_R=Server.CreateObject("ADODB.RecordSet")
sql_R="SELECT ID,user,mdate,Rcontent,IsAdminReply from Reply_message where message_id="&m_id&" order by ID desc"
rs_R.open sql_R,conn,1,1
do while not rs_R.eof
user = rs_R("user")
mdate = rs_R("mdate")
Rcontent = rs_R("Rcontent")
IsAdminReply = rs_R("IsAdminReply")
if IsAdminReply = 1 then
user = "" & user & ""
else
user = "" & user & ""
end if
%>
<%=user%>回复<%=lzuser%>的留言 回复时间<%=mdate%>
<%=UBBCode(Rcontent)%>
<%
rs_R.movenext
loop
rs_R.close
set rs_R=nothing
%>
<%
rs.movenext
i=i+1
if i>=rs.pagesize then exit do
loop
%>
页次: <%=pagecount%>/<%=rs.pagecount%>
<% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
下一页
<% end if %>
<% if rs.pagecount>1 and rs.pagecount=pagecount then %>
上一页
<%end if%>
<% if pagecount<>1 and rs.pagecount<>pagecount then%>
上一页 下一页
<% end if%>
<%
set rst2=server.createobject("adodb.recordset")
sqlt2="SELECT * FROM comp where icheck=True and city<>'武鸣市' and city<>'雨花区' and city<>'天心区' order by id desc"
rst2.open sqlt2,conn,1,1
j=1
%>
您现在的位置是：
" border="0">
