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

dim bbsurl
bbsurl="http://www.cooldoo.com/"  '請填寫你論壇的正確地址,要以"HTTP://"開頭

'bbsurl=getservepath(request.ServerVariables("server_name")&request.ServerVariables("URL"))
'function getservepath(str)
'dim tmpstr
'tmpstr=split(str,"/")
'getservepath="http://"&replace(str, tmpstr(ubound(tmpstr)), "")
'end function


'*************************************
'上傳到與CONN.ASP同級的目錄下
'以上地址參數一定要修改,否則所調用的鏈接是去了以上的論壇.
'若有問題,可以運行一起上傳的newscode.ASP文件進行調試(newscode.ASP運行前要修改調用參數)
'	FSSUNWIN	2002.10.18
'*************************************

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
	if request("action")=1 or request("action")="" then
	'顯示主題
          set rs=conn.execute("select top "&replace(request("n"),"'","")&" PostUserName,Title,topicid,boardid,dateandtime,topicid,hits from topic where  datediff('d',dateandtime,Now())<="&replace(request("sdate"),"'","")-1&" and not locktopic=2 "&board&"  ORDER BY "&orders&" desc")
	elseif request("action")=2 then
        '顯示精華主題
          set rs=conn.execute("select top "&replace(request("n"),"'","")&" PostUserName,Title,rootid,boardid,dateandtime,Announceid,id from BestTopic where  datediff('d',dateandtime,Now())<="&replace(request("sdate"),"'","")-1&"  "&board&"  ORDER BY "&orders&" desc")
        else
          set rs=conn.execute("select top "&replace(request("n"),"'","")&" username,topic,rootid,boardid,dateandtime,announceid,body from bbs1 where  datediff('d',dateandtime,Now())<="&replace(request("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('<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('