newfile_news.asp

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

<!--#include file="../board/const.asp"-->
<!--#include file="../board/UserPost_Const.asp"-->
<!--#include file="code.asp"-->
<!--#include file="char.asp"-->
<!--#include file="BtBBS_Fun.asp"-->
<!--#include file="../conn.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>標題長度超過規定的"&cstr(TitleLen)&"字節</li></td></tr>" end if  '不允許標題長度超過規定的字節
nl=ubbcode(Request.Form("nl"))
if len(nl)>FileLen then nl="":err=err+"<tr><td><li>內容長度超過規定的"&cstr(FileLen)&"字節</li></td></tr>" end if  '不允許內容長度超過規定的字節
if Request.Form("ftbq")<>"" then nl="<img src=../../images/ftbq/"+Request.Form("ftbq")+">"+nl end if
Call Login_EN
  if login<>"Y" then
   Response.Write "<table width=743><tr><td height=30 class=light>&nbsp;<img src=../images/nav.gif>&nbsp;<a href=index.asp><font class=NavColor>論壇首頁</font></a>>> <a href=index.asp?bbsid="&bbsid&"><font class=NavColor>"&Flname&"</a>  >>  </font><a href=dislist.asp?boardid="&Bmid&"><font class=NavColor>"&boardname&"</font></a>  >>  新帖子</font></td></tr></table>"
   Response.Write "<br><br><table width=300><tr><td class=light>可能存在下列錯誤</td></tr> "&err&" <tr><td><li>尚未登陸或用戶名/密碼錯誤!</li></td></tr><tr><td align=center><a href=# onclick=history.go(-1)>返回</a> &nbsp;<a href=exit.asp>登陸</a></td></tr></table><br>"
    %></form><form name=newfile  method="post" action="login.asp">
    <table border=1 width=230 cellspacing=0 cellpadding=0 align=center class=table1>
    <tr><td width=80 height=30 align=center class=light1><b>ノめ