reannounce.asp

来自「学生评教系统,可以实现学生评教,教师查分功能.」· ASP 代码 · 共 90 行

ASP
90 行
字号 
<!--#include file="conn.asp"-->
<!-- #include file="inc/char.asp" -->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/stats.asp"-->
<!--#include file="inc/code.asp"-->

<html>

<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title>回复贴子</title>
<link rel="stylesheet" type="text/css" href="forum.css">
</head>
<body bgcolor="#006699" alink="#333333" vlink="#333333" link="#333333" topmargin="0" leftmargin="0" >
<br>
<%

	dim AnnounceID
	dim RootID
	dim BoardID
	dim cname
	dim rs
	dim sql
	dim rsBoard
	dim boardsql
	dim FoundErr
	
	dim ErrMsg,con,content
	dim boardtype

	if request("boardid")="" then
		founderr=true
		Errmsg=Errmsg+"<br>"+"<li>请指定论坛版面。"
	elseif not isInteger(request("boardid")) then
		founderr=true
		Errmsg=Errmsg+"<br>"+"<li>非法的版面参数。"
	else
		boardid=request("boardid")
	end if
	if request("id")="" then
		founderr=true
		Errmsg=Errmsg+"<br>"+"<li>请指定相关贴子。"
	elseif not isInteger(request("id")) then
		founderr=true
		Errmsg=Errmsg+"<br>"+"<li>非法的贴子参数。"
	else
		AnnounceID=request("id")
	end if
	if request("RootID")="" then
		founderr=true
		Errmsg=Errmsg+"<br>"+"<li>请指定相关贴子。"
	elseif not isInteger(request("RootID")) then
		founderr=true
		Errmsg=Errmsg+"<br>"+"<li>非法的贴子参数。"
	else
		RootID=request("RootID")
	end if
	if founderr=true then
		call error()
	else
   	set rs=server.createobject("adodb.recordset")
   	set rsBoard=server.createobject("adodb.recordset")

	boardsql="select boardtype from board where boardID="&BoardID
   	rsboard.open boardsql,conn,1,1
   	boardtype=rsboard("boardtype")
   	rsboard.close

  	sql="select body,topic,locktopic from bbs1 where AnnounceID="&AnnounceID
   	rs.open sql,conn,1,1 
%>
		<!--#include file="inc/Form1.asp"-->
<%
		if rs("locktopic")=1 then
		founderr=true
		Errmsg=Errmsg+"<br>"+"<li>本主题已被锁定，不能发表回复。"
		call error()
		else
   		con=rs("body")
		topic=rs("topic")
		call showReForm()
		end if
	rs.close
   	set rs=nothing
	end if
   	call endConnection()
%>
</body>
</html>

reannounce.asp - 源码说明

本页面展示了「学生评教系统,可以实现学生评教,教师查分功能.」中的 reannounce.asp 源码文件，采用 ASP 编程语言编写，共 90 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与学生评教系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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