newfile.asp

来自「仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户」· ASP 代码 · 共 28 行

<!--#include file="../conn.asp"-->
<!--#include file="../board/const.asp"-->
<!--#include file="../board/UserPost_Const.asp"-->
<!--#include file="code.asp"-->
<!--#include file="char.asp"-->
<!--#include file="BtBBS_Fun.asp"-->
<%dim err
 StarTime = Timer():AccessNum=0
 username=Request.Cookies("username")
 login=Request.Cookies("login")
 Bmid=Request.QueryString("boardid")
 if IsNumeric(Bmid)=false then Response.Redirect "index.asp" end if '-----------------------论坛状态及访问控制-----------------
 
   BT_Board():aRS=Application(BBSname&"BT_Board")
   if aRS(0,0)<>-1 and VarType(aRS)<>0 then 
    For i=0 to UBound(aRS,2)
     If aRS(0,i)=cint(Bmid) then
      boardname=aRS(3,i)
      bbsid=aRS(1,i)
      Flname=aRS(2,i)
     End if
    Next
   end if

Call JCC_board_Top
titlename=htmlencode(Request.Form("titlename"))
err=""
if len(titlename)>TitleLen then titlename="":err="<tr><td><li>夹肈