newtopic.asp

一个美化的论坛程序

<!--#include file="conn.asp"-->
<%  

dim bbsurl
bbsurl="lt/"  '请填写你论坛的正确地址,要以"HTTP://"开头

Rem 过滤HTML代码
function HTMLEncode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")

    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> ")

    HTMLEncode = fString
end if
end function

	dim rs,sql
	dim orders,reply,topic,isbest
        dim board
	if request("orders")=1 then
		orders="hits"
	else
		orders="dateandtime"
	end if
        if request("boardid")="all" then
            board=""
        elseif isnumeric(request("boardid")) then
            board=" and boardid="&request("boardid")&""
	else
	    board=" and boardid=1"
        end if
	dim n,sdate
	n=request("n")
	sdate=request("sdate")
	if isnumeric(n)=0 or n="" then n=10
	if isnumeric(sdate)=0 or sdate="" then sdate=1
	if request("action")=1 then
	'显示主题
          set rs=conn.execute("select top "&n&" * from bbs where  datediff('d',dateandtime,now())>="&sdate-1&" and not locktopic=2 "&board&"  ORDER BY "&orders&" desc")
	elseif request("action")=2 then
        '显示精华主题
          set rs=conn.execute("select top "&n&" PostUserName,Title,rootid,boardid,dateandtime,Announceid,id from BestTopic where  datediff('d',dateandtime,now())>="&sdate-1&"  "&board&"  ORDER BY "&orders&" desc")
        else
          set rs=conn.execute("select top "&n&" username,topic,rootid,boardid,dateandtime,announceid,body from bbs1 where  datediff('d',dateandtime,now())>="&sdate-1&" and not locktopic=2 "&board&" ORDER BY "&orders&" desc")
        '显示主题或回复
        end if

	do while Not RS.Eof
       topic=rs(1)
       if topic="" then
          topic=rs(6)
       end if
       if len(topic)>Cint(request("tlen")) then
          topic=left(topic,request("tlen"))&"..."
          end if
       topic=htmlencode(topic)
	response.write "document.write('<FONT color=#b70000><B>·</B></FONT><span style=""font-size:9pt;line-height: 15pt""><a href="&bbsurl&"dispbbs.asp?boardid="&rs(3)&"&ID="&rs(2)&"&replyID="&rs(5)&" target=_top title="&htmlencode(rs(1))&">');"
        response.write "document.write('"&topic&"');"
	response.write "document.write('</a>');"
	select case request("info")
	case 0
	case 1
	response.write "document.write('