<!--#include file="Inc.asp"-->
<!--#include file="ydzq1.asp"-->
<!-- #include file="../Inc/char.asp" -->
<%
call Head() 
call saycard(bbstitle,bbsConst)

%>
<!--#include file="sy1.asp"-->
<%


if len(bbslogo)>7 then
response.write"<img src='" & bbslogo & "' alt='logo'/><br/>"
end if

'---------------自定义开始
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from ydbbs where yc=0 AND prentID=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;saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(rs("name"))&"</a>"

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

elseif rs("lx")=3 then
    Response.write "<a href='findex.asp?id="&rs("id")&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>"&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?saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="110" then 
Response.write "<a href='zone.asp?saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="120" then 
Response.write "<a href='chat/index.asp?saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="130" then 
Response.write "<a href='photo.asp?saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(rs("name"))&"</a>"

elseif rs("lx")="140" then 
Response.write "<a href='marry/index.asp?saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="150" then 
Response.write "<a href='game/index.asp?saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="151" then 
Response.write "<a href='bankcl.asp?saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="160" then 
Response.write "<a href='bbslist.asp?saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="170" then 
Response.write "<a href='blacklist.asp?saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="180" then 
Response.write "<a href='search.asp?saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="190" then 
Response.write "<a href='e_list.asp?tpye=1&amp;saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="200" then 
Response.write "<a href='e_list.asp?tpye=0&amp;saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(rs("name"))&"</a>"
elseif rs("lx")="210" then 
Response.write "<a href='e_list.asp?tpye=2&amp;saytk="&saytk&"&amp;sid="&sid&"'>"&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
'Response.write "(c) "&Request.ServerVariables("SERVER_NAME")&"["&String(2-Len(hour(now)),"0") & hour(now) &":"&String(2-len(minute(now)),"0") & minute(now)&"]"

%>
<!--#include file="../1endwml.asp"-->