"&chr(13) if len(bbslogo)>7 then response.write"
"&chr(13) end if '检查有几条新留言 dim newguest newguest = 0 IF myid > 0 THEN newguest = ForNewGuest(myid) END IF if myid<>0 then if newguest > 0 then Response.write "您有"&newguest&"条新消息
"& chr(13) end if response.write"欢迎您："&myni&"
"&chr(13) else Response.write "欢迎您:登陆/注册
"& chr(13) end if '---------------自定义开始 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("暂无版面
") else rs.Move(0) dim j j=1 do while not rs.EOF if rs("lx")=1 then Response.write ""&ubb(rs("name"))&""&chr(13) elseif rs("lx")=2 then Response.write ""&ubb(rs("name"))&"" elseif rs("lx")=3 then Response.write ""&ubb(rs("name"))&""&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 newsell(rs("ydnum"),rs("did")) elseif rs("lx")="20" then call relsell(rs("ydnum"),rs("did")) elseif rs("lx")="30" then call jjsell(rs("ydnum"),rs("did")) elseif rs("lx")="40" then call photosell(rs("ydnum"),rs("did")) end if if rs("brr")=1 then Response.write "
"&chr(13) rs.MoveNext j=j+1 loop end if rs.close set rs=nothing '---------------自定义结束 conn.close set conn=nothing Response.write "社区首页"&chr(13) Response.write "
返回首页"&chr(13) Response.write "