<!--#include file="conn.asp"-->
<%
dim lm
lm = request.QueryString("lm")
if isnumeric(lm) then
lm =cint(lm)
else
lm = 0
end if
if lm < 1 or lm > 6 then
response.Write("非法栏目号或该栏目不存在!")
response.end()
end if %>
<%
if request.form("o")="p" then
if trim(request.Form("title"))="" or trim(request.Form("word"))="" then
response.Write("<script>alert('必须填写标题和内容');history.back(1);</script>")
response.end()
end if
set rs1=server.CreateObject("adodb.recordset")
sql="select*from word "
rs1.open sql,cn,1,3
rs1.addnew
rs1("zuozhe")=trim(request.Form("zuozhe"))
rs1("title")=trim(request.Form("title"))
rs1("word")=request.Form("word")
rs1("zhiding")=request.Form("zhiding")
rs1("jinghua")=request.Form("jinghhua")
rs1("type")=trim(request.Form("type"))
rs1("class")=trim(request.Form("class"))
rs1("date")=now()
rs1("lm")=lm
rs1.update
response.Redirect "guanli.asp?lm="&lm
end if
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select*from class where lm="&lm
rs.open sql,cn,1,3
%>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.ti {
font-size: 14px;
color: #FFFFFF;
}
td {
font-size: 12px;
color: #999999;
}
.style1 {color: #000000}
.style2 {font-size: 14px; color: #000000; }
-->
</style>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#6699FF"><span class="style1"></span></td>
</tr>
</table>
<table width="100%" height="22" border="0" cellpadding="0" cellspacing="0" bgcolor="#6699FF">
<tr>
<td bgcolor="#FFFFFF"><span class="style2">※<%=rs("title")%>---------><strong>内容添加</strong></span></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#6699FF">
<tr>
<td height="25"> </td>
</tr>
</table>
<form name="form1" method="post" action="">
<table width="760" height="204" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC" style="border-collapse:collapse ">
<tr>
<td height="25">标题:
<input name="title" type="text" id="title" size="40">
{必填}</td>
</tr>
<tr>
<td height="25">作者:
<input name="zuozhe" type="text" id="zuozhe" size="20"></td>
</tr>
<tr>
<td height="25">班级:
<input name="class" type="text" id="class" size="20"></td>
</tr>
<tr>
<td height="25">职务:
<input name="type" type="text" id="type" size="20"></td>
</tr>
<tr>
<td height="25">精华:是
<input type="radio" name="jinghua" value="1">
否
<input name="jinghua" type="radio" value="0" checked></td>
</tr>
<tr>
<td height="25">置顶:是
<input type="radio" name="zhiding" value="1">
否
<input name="zhiding" type="radio" value="0" checked></td>
</tr>
<tr>
<td width="550" height="350">内容添加:--->
<input type="hidden" name="word"><INPUT type="hidden" name="word" >
<IFRAME ID="eWebEditor1" src="../ewebeditor.asp?id=word&style=s_coolblue" frameborder="0" scrolling="no" width="550" height="350"></IFRAME></td>
</tr>
<tr>
<td height="25"><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit" value="重置">
<input type="hidden" name="o" value="p">
</td>
</tr>
<tr>
<td > </td>
</tr>
</table>
</form>
添加文字的时候就没问题..
但是一添加图片就
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'
多步 OLE DB 操作产生错误。请检查每个 OLE DB 状态值。没有工作被完成。
/add_word.asp，行30
[此贴子已经被作者于2007-6-11 19:05:18编辑过]
