www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > top.asp
<%@language="VBScript"%> <!--#include file="title.asp"--> <% contents=contents &"<title>帖子管理-"& caption &"</title>"&_ "</head><base target="""& bbssn &"right"">"&_ "<body topmargin=""5"" oncontextmenu=""window.event.returnValue=false"" ondragstart=""window.event.returnValue=false"" onselectstart=""window.event.returnValue=false"" oncopy=""window.event.returnValue=false"">"&_ "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"&_ "<td background="""& theme &"02.gif""> " if gbmaduser<>"" then contents=contents & gbmaduser &" ("& gbname &":"& gb &")<iframe name="""& bbssn &"online"" src=""session.asp"" width=""1"" height=""1"" scrolling=""no"" frameborder=""0""></iframe> <a href=""logout.asp"" target=""_top""><B>退出本站</B></a> | <a href=""service.asp""><B>控制面版</B></a> | " if bbsadmin>3 then contents=contents &"<a href=""admin.asp""><B>管理工具</B></a> | " contents=contents &"<a href=""message.asp""><B>短消息</B></a> | <a href=""tool.asp""><B>道具超市</B></a>" else contents=contents &"<a href=""login.asp""><B>登陆/注册</B></a>" end if contents=contents &"</td><td width=""6""><img src="""& theme &"02.gif"" border=""0""></td></tr></table>" %> <!--#include file="bottom.asp"-->