new.asp

一个不错的论坛原代码

<!--#include file="connections.asp"-->
<%'寻找路径
tmpt = "http://" & request.servervariables("SERVER_NAME") & _            
               left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("new.asp"))

'过滤
function topic(fString)
if not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = replace(fString,"&nbsp;"," ")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")

    topic = fString
end if
end function

listid=request("listid")'版块
titlelen=request("titlelen")'显示的文字数
n=replace(request("n"),"'","")'显示的文章数
orders=request("orders")'排序方法，1为按点击，2为按发表时间,3为最后发表时间
info=request("info")'连接说明1为显示 0为不显示 
action=request("action")'1: 显示主题  2:显示精华主题

sql="select top "&n&" t_title,t_id,l_id,t_lastusername,t_username,t_lasttime from topic where t_lock<>2 "
if listid<>"" then sql=sql&" and l_id="&listid
if int(action)=2 then sql=sql&" and t_jinhua<>0" 
if int(orders)=1 then
sql=sql&" order by t_count desc"
elseif int(orders)=2 then
sql=sql&" order by t_time desc"
else
sql=sql&" order by t_lasttime desc"
end if 
set rs=conn.execute(sql)
if not rs.eof or rs.bof then 
i=1  
do while not rs.eof  and i<=int(n)
 
News =  "<FONT class=tdc><a href="""&tmpt&"topic.asp?t_id=" & rs("t_id") & "&l_id=" & rs("l_id") & """  target=_blank"
if int(info)=1 then news=news&" title=""主题："&rs("t_title")&" &#13;&#10;发起人："&rs("t_username")&"&#13;&#10;最后回复："&rs("t_lastusername")&"&#13;&#10;最后回复时间："&rs("t_lasttime")&""
news=news&""">   &nbsp;□ " & left(topic(rs("t_title")),titlelen) & "...</a></FONT><FONT class=bd>&nbsp;<br></font>"
Response.Write ("document.write('"&News&"');")
rs.movenext  
   i=i+1  
   loop
   else
Response.Write ("暂无文章;")

end if
set rs=nothing
%>