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

<%
call head()
Call saycardd("同城交友")


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

Response.write "<img src='"&citylogo&"' alt='.' /><br/>"

End if
if zqfjse = 1 then
call bbslbtxt()
response.write "<br/>"
else
response.write ""
end if
if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;saytk=[saytk]&amp;sid=[sid]]"&myni&"[/url]"
else
mz="游客"&Replace(time(),":","")&""
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"逛到了(url=/bbs/city.asp?saytk=[saytk]&amp;sid=[sid])同城交友(/url)')")
'---------------自定义开始
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from ydbbs where yc=0 AND prentID=0 and city=1 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>"&chr(13)

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

elseif rs("lx")=3 then
    Response.write "<a href='Citylist.asp?id="&rs("id")&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(rs("name"))&"</a>"&chr(13)

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 newselll(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"))

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

Function CreatedTextFiles(FileName,body)
'On Error Resume Next
If InStr(FileName, ":") = 0 Then FileName = Server.MapPath(FileName)
	Dim oStream
	Set oStream = CreateObject("ADODB.Stream")
	oStream.Type = 2 
	oStream.Mode = 3 
	oStream.Charset = "GB2312"
	oStream.Open
	oStream.Position = oStream.Size
	oStream.WriteText body
	oStream.SaveToFile FileName, 2
	oStream.Close
	Set oStream = Nothing
	If Err.Number <> 0 Then Err.Clear
	End Function
'================================================

if myid<>0 then
mz="[url=uinfo.asp?id="&myid&"&amp;saytk="&saytk&"&sid=[sid]]"&myni&"[/url]"
else
mz="游客"
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"进入了(url=/bbs/city.asp?saytk="&saytk&"&sid=[sid])同城交友(/url)')")
%>
<!--#include file="fanhui.asp"-->
<%call headsay()%>
