retitle.asp

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

<!--#include file="../board/const.asp"-->
<!--#include file="BtBBS_Fun.asp"-->
<!--#include file="../conn.asp"-->
<!--#include file="code.asp"-->
<%
 StarTime = Timer():AccessNum=0
 username=Request.Cookies("username")
 login=Request.Cookies("login")
 boardid=Request.QueryString("boardid")
 AccessNum=AccessNum+1
 set rsk=conn.execute("select top 1 id,所属分类ID,所属分类,版面名称 from 版面分类 where id="&cint(Boardid)&" ") '读取版面名称
 if not (rsk.bof and rsk.eof) then
  BoardName=rsk("版面名称")
  bbsid=rsk("所属分类ID")
  Flname=rsk("所属分类")
 else 
  Response.Redirect "exit.asp" 
 end if
 rsk.close
 set rsk=nothing
 titleid=Request.QueryString("titleid")
 titlename=Request.QueryString("titlename")
 titlefilepath="bbs"+cstr(boardid)+"/fileid"+cstr(titleid)+".shtml"

Call JCC_Board_Top
Call Login_EN
EndTime = Timer()
%>
 <table width=743><tr><td height=30 class=light>&nbsp;<img src=../images/nav.gif>&nbsp;<a href=index.asp><font class=NavColor>阶韭