我校的留言簿提供学生提问,可是答复问题只希望指定的老师才有权限.我从网上下载了留言簿源程序,可是人人都能回复,不知如何修改?

主要的源码如下,请说明具体的做法
<tr>
<TD height="64" colspan="2" valign="top" class=alt1> <% ShowPage RecordCount,PageCount,CurrentPage,PageSize,Url_Add %>
<form action="<%=Url_Add%>Action=reparent" method="post" name="Post" id="Post">
<table class=alt2 width="650" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td width="127" height="25">快速回复内容: </td>
<td width="228">姓名:
<INPUT name=UserName id="UserName" size="23" maxLength=10></td>
<td width="233">邮箱:
<INPUT name=Mail id="Mail" size="23" maxLength=100></td>
</tr>
<tr>
<td valign="top"> <p>HTML标签： 不可用 <br>
UBB标签： 可用 <br>
......
<td colspan="2"><textarea name=Content cols=80 rows=5 id="Content" title=可以使用Ctrl+Enter直接提交贴子 onKeyDown=ctlent()></TEXTAREA></td>
</tr>
<tr>
<td><div align="center"> </div></td>
<td colspan="2"><input Style="background-color:#FFFFFF; " type=submit value= OK!发表(或是按Ctrl+Enter) name=Submit>
&nbsp;&nbsp;&nbsp;&nbsp; <INPUT Style="background-color:#FFFFFF; " type=reset value=" 重新填写内容 " name=Submit2>
</td>
</tr>
</table>
</form></TD>
</TR>

sub reparent()
Dim User,Email,Content
User=Request.Form("UserName")
Email=Request.Form("Mail")
Content=Request.Form("Content")
if User="" or Content="" then
response.write("<script language=javascript>alert('至少写上名字和内容呀～！');window.history.go(-1);</script>")
response.end
end if

接受批评,我想是否应该在if...then...中多加入一个判断,比如写成

sub reparent()
Dim User,Email,Content
User=Request.Form("UserName")
Email=Request.Form("Mail")
Content=Request.Form("Content")
if User="" or Content="" then
response.write("<script language=javascript>alert('至少写上名字和内容呀～！');window.history.go(-1);</script>")
response.end
else
user<>'知心姐姐' then...
end if

    

你提出的问题，比原来的程序都要复杂，得自己重新设计一下数据库的用户结构，并在帖子里增加限止用户。
主要是权限问题，要增设用户设置，并且在留言时，帖子的回复要限止用户回复。你这样判断是没用的，最起码要用Session或Cookie来判断发表者身份，在发布页要有验证身份的程序。
在留言时要增设可以回复者的ID号，并在回复时要判断身份与本帖限止用户身份相符。