我還是把代碼放出來給大家看下吧：
<%@LANGUAGE="VBScript" codepage="936"%>
<%
DBpath = "../" '數(shù)據(jù)庫文件的位置
%>
<!--#include file="../conn.asp"-->
<script language="javascript">
function checkbook(obj)
{
if(obj.title.value=="")
{
alert("請輸入新聞的標(biāo)題!");
obj.title.focus();
return false;
}
if(obj.writer.value=="")
{
alert("請輸入作者的名稱!");
obj.writer.focus();
return false;
}
if(obj.content.value=="")
{
alert("請輸入新聞的內(nèi)容!");
obj.content.focus();
return false;
}
}
</script>
<form id="addnews"method="post" action="addnews.asp" onsubmit="return checkbook(this);">
<input name="addnews" type="hidden" value="addnews">
<table width="483" height="119" border="0" cellspacing="0">
<tr>
<td width="105"><div align="right"><span class="STYLE14">新聞標(biāo)題：</span></div></td>
<td width="374"><label>
<input name="title" type="text" id="title" />
</label></td>
</tr>
<tr>
<td><div align="right"><span class="STYLE14">發(fā)布人名稱：</span></div></td>
<td><label>
<input name="writer" type="text" id="writer" />
</label></td>
</tr>
<tr>
<td><div align="right"><span class="STYLE14">新聞內(nèi)容：</span></div></td>
<td><label>
<textarea name="content" cols="40" rows="15" id="content"></textarea>
</label></td>
</tr>
<tr>
<td> </td>
<td><label>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="清空" />
</label></td>
</tr>
</table>
</form>
<%
sub addnews()
set rs=server.createobject("adodb.recordset")
sql="select title,writer,content from newsInfo"
rs.open sql,conn,1,3
rs.addnew
title=request.form("title")
writer=request.Form("writer")
content=request.form("content")
rs("title")=title
rs("writer")=writer
rs("content")=content
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
response.write("<script>alert(""發(fā)表成功！"");navigate(""default.asp"")</script>")
end sub
%>
