form1.asp

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

<%
sub showreForm()
      'on error resume next
	dim username,TxtMsg
	username=Session.Contents("UserName")
      if foundError=true then
%>
<blockquote>
          <p align="left"><font color="#FF0000"><strong>输入错误：</strong></font></p>
          <p align="left">
          <ul>
            <%response.write ErrMsg %>
          </ul>
          </p>
</blockquote>
<%         
      end if
%>

<form action="SaveReAnnounce.asp?method=Topic&boardID=<%=request("boardid")%>" method="POST" onSubmit="submitonce(this)" name="frmAnnounce">
  <input type="hidden" name="followup" value="<%=AnnounceID%>"><input type="hidden" name="rootID" value="<%=RootID%>">

  <div align="center"><center>
  <table border="2" cellpadding="0" cellspacing="0" width="61%" bordercolorlight="#800000" bordercolordark="#800000">
  <tr><td width="100%">
<table  cellpadding=0 cellspacing=0 border=0 width="63%" cellspacing="0">
    <tr>
      <td width="100%" bgcolor="#FFFFFF">
<table cellpadding=3 cellspacing=1 border=0 width=459 height="302">
    <tr>
      <td  bgcolor="#800000" colspan=2 height="25" width="455"><div align="left"><p><strong><font color="#FFFFFF">&nbsp;&nbsp;*为必填项目 只有注册用户能发表贴子</font>                
          </div>
        </strong></td>
    </tr>
        <tr bgcolor=#FFFFFF>
          <td width="101" align="right" height="25" bgcolor="#EEEEEE">用户名：</td>
          <td height="25" bgcolor="#EEEEEE" width="344" ><font color="red">*</font><input name="username" value="<%=htmlencode(Session.Contents("UserName"))%>" style="font-size: 12px">&nbsp;&nbsp;<a href="#"onClick="window.open('reg.asp','caikuang','scrollbars=yes,resizable=yes,top=100,left=100,width=400,height=400')">[注册]</a>  
          </td>
        </tr>
        <tr bgcolor=#FFFFFF>
          <td width="101" align="right" bgcolor="#CCCCCC" height="25">密码：</td>
          <td bgcolor="#CCCCCC" height="25" width="344" ><font color="red">*</font><input name="passwd" type="password" value="<%=htmlencode(Session("password"))%>"  style="font-size: 12px"><font color="red">&nbsp;&nbsp;</font></td>
        </tr>
        <tr bgcolor=#FFFFFF>
          <td width="101" align="right" bgcolor="#EEEEEE" height="41">标题：</td>
          <td bgcolor="#EEEEEE" height="41" width="344" ><font color="red">
            *</font><input name="subject" size=45 maxlength=80  style="font-size: 12px">&nbsp;<font color="red"><strong><br>
            </strong></font><font color="red"><strong>&nbsp;</strong></font>不得超过 50 个汉字                
<INPUT TYPE="hidden" name="boardtype" value="<%=htmlencode(boardtype)%>">
<INPUT TYPE="hidden" name="skin" value="<%=request("skin")%>">               
<input type="hidden" value="face1" name="Expression" >               
	 </td>
        </tr>
        <tr bgcolor=#FFFFFF>
          <td  valign=top align="right" height="111" bgcolor="#CCCCCC" width="101">
内容：<br><br>
          <td height="111" bgcolor="#CCCCCC" width="344">

<textarea class="smallarea" cols="46" name="body" rows="6" wrap="VIRTUAL"  style="font-size: 12px"></textarea>
	</td>
<tr bgcolor=#FFFFFF>
                <td valign=middle colspan=2 align=center height="27" bgcolor="#EEEEEE" width="455" >
                <input type=Submit value="发 表" name="Submit" style="font-size: 12px"> &nbsp; <input type="reset" name="Clear" value="清 除" style="font-size: 12px">     
                </td></form></tr>
  </center>

</form>
<%
	if err.number<>0 then err.clear
end sub
%>