日期:2009-10-09  浏览次数:20821 次

一、拥有数据库cnbruce.mdb

  本数据库的作用就是用来被插入数据的,可以直接采用上节中已经建立的cnbruce.mdb文件,当然连接打开数据库的文件conn.ASP也就顺利引用了。

  二、建立输入插入信息的页面平台addit.HTML

  本页的主要作用是:显示一些文本输入框以用来提供输入信息内容提交数据库。

  1,addit.HTML


<form action="addit.ASP" method="post">
Title:<input type="text" name="title"><br>
Author:<input type="text" name="author"><br>
Content:<br>
<textarea name="content" rows="8" cols="30"></textarea><br>
<input type="submit" value="Add">
<input type="reset" value="Reset">
</form>

  本页其实很简单,就是通过submit按钮将表单的信息内容提交到addit.ASP页面去处理。

  三、建立处理接受数据并插入数据库表的页面程序addit.ASP

  2,addit.ASP


<!--#include file="conn.ASP" -->

<%
whattitle=request.form("title")
whoauthor=request.form("author")
whatcontent=request.form("content")
%>

<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from cnarticle"
rs.Open sql,conn,3,2
%>

<%
rs.addnew
rs("cn_title")=whattitle
rs("cn_author")=whoauthor
rs("cn_content")=whatcontent
rs.update
%>
文章添加成功,<a href="showit.ASP">浏览</a>
<%
rs.close
Set rs = Nothing
conn.close
set conn=Nothing
%>


  恩,接着就是来具体分析一下。

  1,<!--#include file="conn.ASP" --> 不用说,凡是要和数据库有联系的都要运用到该连接文件。

  2,whattitle=request.form("title")之类 就是将上页表单中接受过来的值赋到一变量上,方便下面程序的调用。

  3,rs.Open sql,conn,3,2 注意参数和显示数据库时采用的参数的不同。

  4,rs.addnew 很简单也很显眼的一个声明:新建一个数据库记录集行。

  5,rs("cn_title")=whattitle之类 即将接受的表单值对应到相关字段中。

  6,rs.update 只是值和数据库字段的对应,完了后还要将对应的值上传提交到数据库表中去。

  7,插入后可以跳转到showit.ASP查看 需要说明,以后的ASP例题可能都是建立在前几节内容的基础之上完成的。

  8,释放资源 是规矩,不要忘记。

  那么,现在。插入并显示数据库记录,对你来说完全是小菜一碟了。大体框架搭建完毕,下面就是具体的细化了。

  其中包括:客户端的表单检测,防止用户信息输入的遗漏;当然最好还是要加上服务器端的表单检测,由于客户端的某些原因(比如自行设计提交非检测的页面)基于安全考虑,一切还是依服务器端所接受信息为准。那下面就继续细化应用下了。

  1,客户端检测 其实就是通过简单的脚本检测,这在初学ASP提到脚本的时候说到,下面将再次重复。

  加强的addit.HTML


<script laguage="javascript">
<!--
function form1_onsubmit()
{
if (document.form1.title.value=="")
{
alert("请输入文章标题")
document.form1.title.focus()
return false
}
else if(document.form1.content.value=="")
{
alert("请输入文章内容")
document.form1.content.focus()
return false
}
}
-->
</script>

<form action="addit.ASP" method="post" name="form1" onsubmit="return form1_
onsubmit()">
Title:<input type="text" name="title"><br>
Author:<input type="text" name="author"><br>
Content:<br>
<textarea name="content" rows="8" cols="30"></textarea><br>
<input type="submit" value="Add">
<input type="reset" value="Reset">
</form>

  2,服务器端检测 有人也许会问,既然有了客户端的检测,那还有多个服务器端的检测呢?原因很简单,比如仿照HTML表单提交页,自行设计一张去除了表单检测的页面。当点击提交,并且没有任何信息时,到达服务器端如没有任何防御则肯定会造成数据插入的失败。

  加强的addit.ASP


<!--#include file="conn.ASP" -->

<%
whattitle=trim(request.form("title"))
whoauthor=trim(request.form("author"))
whatcontent=trim(request.form("content"))
%>

<%if whattitle="" then%>
<script language=vbs>
alert("请输入文章标题")
history.go(-1)
</script>
<%end if%>
<%if whatcontent="" then%>
<script language=vbs>
alert("请输入文章标题")
history.go(-1)
</script>
<%end if%>

<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from cnarticle"
rs.Open sql,conn,3,2
%>

<%
rs.addnew
rs("cn_title")=whattitle
rs("cn_author")=whoauthor
rs("cn_content")=whatcontent
rs.update
%>