ASP程序设计(1)

随chu风liu

一、Asp程序的调试和IIS运行环境搭建
详见文章： 如何配置你的ASP运行环境?
二、Asp读写Access数据库程序的设计流程
(1)按策划书的要求建立Access数据库
(2)用设计好的模板另存成一个网页，扩展名选为asp
前台数据库内容显示部分：
(1)在页面上端加入连接数据库的代码，指定记录集的名称
(2)编写sql语句，指定要打开的数据库的表名和数据提取原则
(3)运行sql语句，建立记录集
(4)用循环语句输出纪录集的内容（可以用分页语句输出）
表单提交来的数据添加到数据库部分
(1)建立数据录入界面和数据录入表单，指定表单的数据发送方法和数据接收程序
(2)建立表单数据接收程序， 在页面上端加入连接数据库的代码，指定记录集的名称
(3)用request.form(" ")获取表单传递过来的数据
(4)编写sql语句，指定要打开的数据库的表名和数据要添加到哪个字段中
(5)然后运行sql语句，将数据添加到数据库
(6)提示数据添加成功
根据表单提交来的数据修改数据内容部分
(1)建立数据录入界面和数据录入表单，指定表单的数据发送方法和数据接收程序
(2)建立表单数据接收程序， 在页面上端加入连接数据库的代码，指定记录集的名称
(3)用request.form(" ")获取表单传递过来的数据
(4)编写sql语句，指定要打开的数据库的表名和要修改哪个数据记录
(5)然后运行sql语句，将数据更新到数据库
(6)提示数据更新成功
根据表单提交来的数据删除数据记录内容部分
(1)建立数据录入界面和数据录入表单，指定表单的数据发送方法和数据接收程序
(2)建立表单数据接收程序， 在页面上端加入连接数据库的代码，指定记录集的名称
(3)用request.form(" ")获取表单传递过来的数据
(4)编写sql语句，指定要打开的数据库的表名和要删除哪个数据记录
(5)然后运行sql语句，将数据删除
(6)提示数据删除成功

三、样本程序设计全程演示
附录:几段常用到的代码

    （2）建立指定名称记录集对象
    <%set rs=server.createobject("adodb.recordset")%>

    （3）编写SQL语句，指定打开的数据表和数据筛选条件
    <%
    sql="select * from company" '选中company表中所有的记录数据
    sql1="select * from company where id=28 " '选中company表中id为28的记录
    sql2="select top 10 * from company order by id " '选中company表中前10条记录
    sql3="delete * from biao where id=28" '删除company表中id为28的记录
    %>
   
   （4）运行sql语句，纪录集rs中就包括了表中所有的纪录了，你在下面的网页中就可以输出了
<%rs.open sql,conn,1,3%>
<%response.write rs(" ")%>
   （6）循环输出数据记录
   <%
   rs.open sql2,conn,1,3  
   do while not rs.eof
   response.write rs(" ")
    .........
   rs.movenext
   loop
   %>
  
   (7)向数据库中添加数据记录源码
ado方式
   <%
   sql="select * from biao"
   rs.open sql conn,1,3
   rs.addnew
   rs(" ") =request.form(" ")
   rs.update
   %>
sql语句方式
<%
sql="insert into biao (customerID,productname) values('"&Request.Form("custid")&"','"&Request.Form("productname")&"') "
conn.Execute sql,recaffected
%>
<%response.write rs(" ")%>
   （5）在你想要输出数据的地方，用下面的代码输出数据库中的数据   （1）连接数据库代码（一般单独建一个conn.asp，然后再其他叶面里面包含这个文件）
<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    conn = "DBQ=" + server.mappath("#mdb.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
    %>

斌仔

美丽让男人停下，智慧让男人留下。