<%Response.Expires=0%> <% dim rs dim sql dim lockboard dim tableback dim tabletitle dim tablebody dim atablebody dim tablefont dim tableContent dim outtext outtext="  " function HTMLEncode(fString) fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "£»") fString = Replace(fString, CHR(10), "£¬") HTMLEncode = fString end function set rs=server.createobject("adodb.recordset") sql="select bbs1.*,board.* from bbs1,board where bbs1.boardid="&cstr(request("boardid")&" and bbs1.rootid="&request("rootid")&" and bbs1.announceid<>"&request("rootid")&" and bbs1.boardid=board.boardid order by bbs1.rootid desc,bbs1.orders") ' response.write sql ' response.end rs.open sql,conn,1,1 lockboard=rs("lockboard") Tableback=trim(rs("Tableback")) Tabletitle=trim(rs("Tabletitle")) Tablebody=trim(rs("Tablebody")) aTablebody=trim(rs("aTablebody")) TableFont=trim(rs("TableFont")) TableContent=trim(rs("TableContent")) %>