jtof.asp

仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户名：admin 密码：admin TOP/top.htm 顶部模板 left.htm 左边树形菜单模板

<!--#include file="../../conn.asp"-->
<!--#include file="../BtBBS_Fun.asp"-->
<%
 Dim FileName,BoardID,File,FileNl,myFile
 File=Request.QueryString("File")
 File=replace(replace(replace(replace(File,"'","‘"),"<","&lt;"),">","&gt;")," ","&nbsp;")
 BoardID=Request.QueryString("BoardID")
 IF IsNumeric(BoardID)=False THEN Response.Redirect "index.asp" END IF
 FileName="../../board/bbs"+BoardID+"/"+File
 
 Const ForReading = 1
 Const Forwriting = 2
 Const ForAppending = 8
 myFile = Server.MapPath(FileName)
 SET fileStreamObj = CreateObject("Scripting.FileSystemObject")
 if not(fileStreamObj.FileExists(myFile)) then 
    FileName=""
 else
    SET textStream = fileStreamObj.OpenTextFile(myFile,ForReading,False)
    while not textStream.AtEndOfStream
        FileNl=FileNl+textStream.ReadLine()
    wend
    textStream.Close()
 end if
 set fileStreamObj=nothing

 if Application(BBSname&"TOP_FTJS")="" then
  TopName = Server.MapPath("../../inc/Top1_FT_js.inc")
  set fileStreamObj = CreateObject("Scripting.FileSystemObject")
  set textStream = fileStreamObj.OpenTextFile(TopName,ForReading,False)
  TopName=textStream.ReadAll()
  textStream.Close()
  set fileStreamObj=nothing
  set textStream=nothing
  Response.Write TopName
  Application(BBSname&"TOP_FTJS")=TopName
 else
  Response.Write Application(BBSname&"TOP_FTJS")
 end if

 FileNl = replace(FileNl, "<script language=""JavaScript"" src=""../../inc/Top1_bbs.js"">", "")
 FileNl = replace(FileNl, "<script language=""JavaScript"" src=""../../inc/Tom1_bbs.js"">", "<script language=""JavaScript"" src=""../../inc/Tom1_bbs_FT.js"">")
 Response.Write JtoF(FileNl)
%>