 您现在的位置是：首页> 楼盘><%=rs("company")%> |
| <%=rs("company")%>问题集 |
| ">楼盘简介 |
|
|
|
<%if rs("messageCheck")=1 then%>
|
<%end if%>
|
<% if rs("lpvideoad")<>"" then%>
<% if left(rs("lpvideoad"),7)="http://" then%>
|
<%else%>
|
<%end if%>
<%end if%>
|
|
|
|
|
|
<%
compid=replace(request("id"),"'","’")
if request("key")<>"" then
sql="Select * From sia_faq where "& nosql(request("xz")) &" like '%" & nosql(request("key")) & "%' and compid='"&compid&" Order By top DESC, adddata DESC"
else
sql="Select * From sia_faq where compid='"&compid&"' Order By top DESC, adddata DESC"
end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write(" 暂无问题或符合搜索关键字的问题")
end if%>
<%
rs.pagesize =10
if request("page")="" or isempty(request("page")) then
page = 1
else
page=int(request("page"))
end if
if page>rs.pagecount then
page=rs.pagecount
end if
if not rs.BOF then
Rs.Move Rs.PageSize*(page-1)
end if
i=1
while not rs.eof and i<=rs.pagesize
%>
| · <%=rs("title")%> |
答：
<%memo = rs("content")
memo = Replace(memo, chr(32), " ")
memo = Replace(memo, vbCrLf, "
")
Response.Write memo
%> |
<%
i=i+1
rs.MoveNext
wend
%>
|
|
|
|
|
|
|
|
<%
sqlad="select * from comp where id=" & id
Set rsad=Server.CreateObject("ADODB.RecordSet")
rsad.open sqlad,conn,1,1
%>
<%if rsad("flashad2")<>"" then%>
<%else%>
<%end if%>
<%
rsad.close
set rsad=nothing
%>
|
|
|
| 在售楼盘 |
| <%
set rst1=server.createobject("adodb.recordset")
sqlt1="SELECT * FROM comp where city="&"'武鸣市'"&" and xkz like"&"'%销%中%'"&" order by id desc"
rst1.open sqlt1,conn,1,1
j=1
%>
|
|
|
| 县城楼盘 |
| <%
set rst2=server.createobject("adodb.recordset")
sqlt2="SELECT * FROM comp where city<>"&"'武鸣市'"&" order by id desc"
rst2.open sqlt2,conn,1,1
j=1
%>
|
|
|
购房工具 |
|
|
" border="0">