📄 announce.asp

📁 学生评教系统,可以实现学生评教,教师查分功能.

💻 ASP

字号:

<!-- #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=<%=CharSet%>">
<title>我要发言</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>
<body bgcolor="#006699" 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)
%>
				<!--#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 ----------------------

%>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -