<%If Action="news" Then%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr bgcolor="D6DFF5">
<td height="26" colspan="2"><div align="center"><strong>新闻公告及教育事件方针发布</strong></div></td>
</tr>
<form name="form7" method="post" action="?Action=newssave">
<tr bgcolor="#FFFFFF">
<td height="29"><div align="right">标题：</div></td>
<td width="91%" height="29"><input name="namee" type="text" size="50" maxlength="200"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="24"><div align="right">发布人：</div></td>
<td height="24"><input name="writer" type="text" size="15">
类型：
<select name="selecta">
<option value="1" selected>新闻公告</option>
<option value="2">教学管理</option>
<option value="3">学生工作</option>
<option value="4">招生管理</option>
</select>
时间：
<input name="ttime" type="text" value="<%=date()%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="74" colspan="2"><div align="center">
<textarea name="nei" style="display:none"><%=Server.HtmlEncode(sContent)%></textarea>
<iframe id="bbs2" src="edit/ewebeditor.asp?id=nei&style=bbs" frameborder="0" scrolling="no" width="98%" height="350"></iframe> //这里用的是网上的编辑器，应该没有问题
</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="9%" height="21">&nbsp;</td>
<td>
<input type="submit" name="Submit7" value="添加">
　　
<input type="reset" name="Submit7232" value="取消" onClick="javascript:history.go(-1)">
</td>
</tr>
</form>
</table>
<%End If%>

if Action="newssave" then
namenn=request("namee")
writer=request("writer")
classid=request("selecta")
nei=request("nei")

Set rs= Server.CreateObject("ADODB.Recordset")
sql="select Top 1 * from news"
rs.open sql,conn,3,2
rs.addnew
rs("writer")=writer
rs("time")=date()
rs("leibie")=classid
rs("newsname")=namenn
rs("text")=nei
Call AlertBack("信息录入成功",1)//这句有FUNCTION支持
end if