📄 announce.asp

📁 应用于高等院校党团思想教育
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>

<!-- #include file="conn.asp" -->
<!-- #include file="inc/char.asp" -->
<!--#include file="inc/stats.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/code.asp"-->
<html>

<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<title><%=ForumName%>--我要发言</title>
<link rel="stylesheet" type="text/css" href="forum.css">
<script language="javascript">
function popwin3(path)
{		window.open(path,"","height=300,width=450,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
</head>
<!--#include file="inc/theme.asp"-->
<body bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="0" leftmargin="0">
<br>
<%
	rem ----------------------
	rem ------主程序开始------
	rem ----------------------

	dim boardID
   	dim rs,sql
	dim boardtype
   	boardid=0
   	if not (isNUll(request("boardid")) or isEmpty(request("boardid")) or (request("BoardID")="") ) then
      		boardid=request("boardid")
   	end if

   	set rs=server.createobject("adodb.recordset")
	if boardID>0 then
		set rs=conn.execute("select boardtype from board where boardid="&cstr(boardid))
		if err then 
			Errmsg=ErrMsg+"<Br>"+"<li>数据库操作发生错误！"
			FoundError=true
		else
			if not (rs.eof and rs.bof) then 
				boardtype=rs(0)
%>
<TABLE border=0 width="95%" align=center>
  <TBODY>
  <TR>
    <TD vAlign=top width=30%><a href="<%=HostURL%>"><img border="0" src="<%=logo%>"></a></TD>
    <TD valign=middle align=top>
&nbsp;&nbsp;<img src="<%=picurl%>closedfold.gif" border=0>&nbsp;&nbsp;<a href="index.asp"><%=ForumName%></a><br>
&nbsp;&nbsp;<img src="<%=picurl%>bar.gif" border=0 width=15 height=15><img src="<%=picurl%>closedfold.gif" border=0>&nbsp;&nbsp;<a href="list.asp?boardid=<%=boardid%>&skin=<%=request("skin")%>"><%=boardtype%></a>
<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="<%=picurl%>bar.gif" border=0 width=15 height=15><img src="<%=picurl%>openfold.gif" border=0>&nbsp;&nbsp;发表新贴子
      </TD></TR></TBODY></TABLE> 
<br>
				<!--#include file="inc/Form.asp"-->
<%
				call showForm()
			else
				if err.number<>0 then
					Errmsg=ErrMsg+"<Br>"+"<li>数据库操作发生错误！"
					FoundError=true
					err.clear
				else
					Errmsg=ErrMsg+"<Br>"+"<li>不存在的版面！"
					FoundError=true
				end if
			end if          
			rs.close
		end if
		set rs=nothing
	else
		Errmsg=ErrMsg+"<Br>"+"<li>未指定所需参数！"
		FoundError=true
	end if
	call endConnection()
	if founderror=true then
		call error()
	end if

   	rem ----------------------
	rem ------主程序结束------
	rem ----------------------

%>

<!--#include file="footer.asp"-->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -