<% checklg() 'if userlg=false then response.end url=Lcase(url) url=replace(url,"rss","Showbbs") dim action,sql,wzrep,hostname,reinfo,urlstr,rename,topicinfo,retopic,description,linkstr,userid,category,username wzrep=application(prefix&"topiclistpage") action=request.querystring("action") hostname=Request.ServerVariables("SERVER_NAME") userid=checknum(request.querystring("userid")) bbsname=checktitle(bbsname) if bd>0 then category=checktitle(bdinfo(0)) end if if action="today" then category="今日新贴" end if if userid>0 then set rs=conn.execute("select top 1 name from [user] where userid="&userid&"") if not rs.eof then category=rs("name")&"空间" set rs=nothing end if for each rename in request.querystring urlstr=urlstr&rename&"="&request.querystring(rename)&"&" next urlstr="?"&urlstr urlstr=left(urlstr,len(urlstr)-1) urlstr=checktitle(urlstr) Response.ContentType="text/xml" %> <%response.write "http://"&hostname&url&urlstr%> <%response.write bbsname&"→"&category%> www.6kbbs.net Powered By : 6kbbs V 7.1 <% '_____________________________________________________________________________________________________________________________________________ if action="good" then sql="select*from topic where bd="&bd&" and type=1 order by top desc,edittime desc" elseif action="today" then sql="select*from topic where edittime>now()+"×et&"/24-1 and type<>3 order by edittime desc" else sql="select*from topic where bd="&bd&" and type<>3 order by top desc,edittime desc" end if if userid>0 then sql="select*from topic where userid="&userid&" and type<>3 order by top desc,edittime desc" set rs = server.createobject("adodb.recordset") rs.Open sql,conn,1 if rs.eof or rs.bof then response.write" "&VbNewline else 'wzcount=rs.recordcount 'wzpagecount = abs(int(-abs(wzcount/wzrep))) 'if len(wzpage) = 0 or wzpage = 0 then wzpage = 1 'rs.absoluteposition=rs.absoluteposition+((abs(wzpage)-1)*wzrep) for i = 0 to wzrep-1 if rs.eof then exit for response.write" "&VbNewline '帖子开始/////////////////////////////////////////////////////////// topicinfo=rs("topicinfo") topicinfo=split(topicinfo,"|") retopic=rs("retopic") if isnull(retopic) or retopic="" then reinfo="——" retopic="未有人回复。|——|0" retopic=split(retopic,"|") else retopic=split(retopic,"|") reinfo=checktitle(retopic(1)) end if description="最后回复:"&checktitle(retopic(0))&"" linkstr="http://"&hostname&""&url&"?bd="&rs("bd")&"&id="&rs("id")&"&totable="&rs("totable") linkstr=checktitle(linkstr) response.write" "&VbNewline response.write" "&linkstr&""&VbNewline response.write" "&VbNewline response.write" "&category&""&VbNewline response.write" "&checktitle(topicinfo(2))&""&VbNewline response.write" "&rs("edittime")&""&VbNewline response.write" "&VbNewline ''帖子结束/////////////////////////////////////////////////////////// rs.movenext next%><% end if rs.Close set rs=nothing Response.write" "&VbNewline Response.write"" %>