"&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 top 1 * from [bbs_vice] order by tm desc",conn,1,1 if not rs.eof then dim ggtitle Response.write "公告:"&chr(13) ggtitle=left(rs("name"),20) if len(rs("name"))>20 then ggtitle=ggtitle+".." End if Response.write "" & ubb(ggtitle) & "
"&chr(13) End if rs.close set rs=nothing '---------------自定义开始 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("暂无版面
") 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")) elseif rs("lx")="100" then Response.write ""&ubb(rs("name"))&""&chr(13) elseif rs("lx")="110" then Response.write ""&ubb(rs("name"))&""&chr(13) elseif rs("lx")="120" then Response.write ""&ubb(rs("name"))&""&chr(13) elseif rs("lx")="130" then Response.write ""&ubb(rs("name"))&""&chr(13) elseif rs("lx")="140" then Response.write ""&ubb(rs("name"))&""&chr(13) elseif rs("lx")="150" then Response.write ""&ubb(rs("name"))&""&chr(13) elseif rs("lx")="151" then Response.write ""&ubb(rs("name"))&""&chr(13) elseif rs("lx")="160" then Response.write ""&ubb(rs("name"))&""&chr(13) elseif rs("lx")="170" then Response.write ""&ubb(rs("name"))&""&chr(13) elseif rs("lx")="180" then Response.write ""&ubb(rs("name"))&""&chr(13) elseif rs("lx")="190" then Response.write ""&ubb(rs("name"))&""&chr(13) elseif rs("lx")="200" then Response.write ""&ubb(rs("name"))&""&chr(13) elseif rs("lx")="210" then Response.write ""&ubb(rs("name"))&""&chr(13) 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 "