<!--#include file="Inc.asp"-->
<!--#include file="ydzq1.asp"-->
<!-- #include file="../Inc/char.asp" -->

<%call head()
dim rs1,sql1,id
id=request.QueryString("id")
if id="" or IsNumeric(id)=False then
if saytk<>1 then
  Call Error("<title>出错了</title></head><body><body bgcolor="""&yanse&"""><p>ID无效！")
else
  Call Error("<card title='出错了'><p>ID无效！")
  end if
end if
dim ydbbsname
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="Select * from ydbbs where id="&id
rs1.open sql1,conn,1,1 
if rs1.eof then
if saytk<>1 then
  Call Error("<title>出错了</title></head><body><body bgcolor="""&yanse&"""><p>页面不存在！")
else
  Call Error("<card title='出错了'><p>页面不存在！")
  end if
end if
ydbbsname=rs1("name")
oopp=rs1("oopp")
rs1.close
set rs1=nothing
if myid<>0 then
mz="[url=uinfo.asp?id="&myid&"&amp;sid=[sid]]"&myni&"[/url]"
else
mz="游客"
end if

conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"查看了[url=/bbs/findex.asp?id="& id &"&amp;sid=[sid]]"&ydbbsname&"[/url]')")
Call saycardc(""&ydbbsname&"")
if oopp=2 then
browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
if browsers="oper"  or  browsers="winw"  or  browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="cdr/" or browsers="nec-" or browsers="fetc" or browsers="r380" or browsers="winw" or browsers="mozi" or browsers="mozi" or browsers="m3ga" then 
Call Error("请用手机访问！")
end if
end if



%>
<!--#include file="sy1.asp"-->
<%
Dim i,p
set rs = server.createobject("adodb.recordset")
rs.open"select * from ydbbs where prentID="&id&" and yc=0 and city=0 order by pid asc",conn,1,1
if rs.eof then 
response.write("页面建设中..<br/>")
else
rs.Move(0)
dim j
j=1
do while not rs.EOF 
if rs("lx")=1 then
    Response.write "<a href='board.asp?bbsid="&rs("id")&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>"&ubb(rs("name"))&"</a>"

elseif rs("lx")=2 then
    Response.write "<a href='"&ubb2(rs("test"))&"'>"&ubb(rs("name"))&"</a>"

elseif rs("lx")=4 then
    Response.write usb(rs("test"))

elseif rs("lx")=0 then
    Response.write ubbcode(rs("test"))

elseif rs("lx")="10" then call newsell(rs("ydnum"),rs("did"),rs("logo"),rs("vicexs"),rs("zonejb"))
elseif rs("lx")="20" then call relsell(rs("ydnum"),rs("did"),rs("logo"),rs("vicexs"),rs("zonejb"))
elseif rs("lx")="30" then call jjsell(rs("ydnum"),rs("did"),rs("logo"),rs("vicexs"),rs("zonejb"))
elseif rs("lx")="31" then call hotsell(rs("ydnum"),rs("did"),rs("logo"),rs("vicexs"),rs("zonejb"))
elseif rs("lx")="40" then call photosell(rs("ydnum"),rs("did"))
elseif rs("lx")="50" then call sjphoto(rs("ydnum"),rs("did"))
elseif rs("lx")="60" then call sjsell(rs("ydnum"),rs("did"),rs("logo"),rs("vicexs"),rs("zonejb"))


elseif rs("lx")="100" then 
Response.write "<a href='city.asp?sid="&sid&"&amp;saytk="&saytk&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="110" then 
Response.write "<a href='zone.asp?sid="&sid&"&amp;saytk="&saytk&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="120" then 
Response.write "<a href='chat/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="130" then 
Response.write "<a href='photo.asp?sid="&sid&"&amp;saytk="&saytk&"'>"&ubb(rs("name"))&"</a>"

elseif rs("lx")="140" then 
Response.write "<a href='marry/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="150" then 
Response.write "<a href='game/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="151" then 
Response.write "<a href='bankcl.asp?sid="&sid&"&amp;saytk="&saytk&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="160" then 
Response.write "<a href='bbslist.asp?sid="&sid&"&amp;saytk="&saytk&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="170" then 
Response.write "<a href='blacklist.asp?sid="&sid&"&amp;saytk="&saytk&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="180" then 
Response.write "<a href='search.asp?sid="&sid&"&amp;saytk="&saytk&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="190" then 
Response.write "<a href='e_list.asp?tpye=1&amp;sid="&sid&"&amp;saytk="&saytk&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="200" then 
Response.write "<a href='e_list.asp?tpye=0&amp;sid="&sid&"&amp;saytk="&saytk&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="210" then 
Response.write "<a href='e_list.asp?tpye=2&amp;sid="&sid&"&amp;saytk="&saytk&"'>"&ubb(rs("name"))&"</a>"
end if


If rs("brr") = "1" Then 
   If saytk>1 Then
      If rs("lx")=0 Or rs("lx")=4 then 
         If Right(rs("test"),6)="(/div)" Or Right(rs("test"),6)="</div>" Or Right(rs("test"),5)="(/3g)" Or Right(rs("test"),8)="(/class)" Or Right(rs("test"),8)="(/cz2.0)" Or Right(rs("test"),4)="(/d)" Or rs("test")="(/class)" Or rs("test")="(/3g)" Or rs("test")="(/cz2.0)" Or rs("test")="(/div)" Then
		 else
         response.write "<br/>" 
         End If
	  Else
	  response.write "<br/>" 
      End If
	  
   Else
   response.write "<br/>" 
   End If
End If

rs.MoveNext
j=j+1
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<!--#include file="fanhui.asp"-->