《网络信息发布》第五次实验

《网络信息发布》第五次实验

用SQL语句对数据库查询、添加、修改和删除记录

基本概念：

SQL语句、查询、添加、修改和删除

教学目的和基本要求：

（1）熟悉建立数据连接；

（2）熟练掌握select、delete、update、insert into语句，对数据库内的记录进行查询、添加、修改和删除，以对信息进行管理；

（3）培养学生的编程思想，提高学生软件分析、设计的能力

教学内容：

（1）建立和完善上次你已建的数据库（表、字段、字段类型等，不能用中文命名），并添加5条上以记录；

（2）建立数据连接，放在单独一个网页中（conn.asp）,在其它用到数据库连接的网页中插入（）。

（3）试编写ASP程序，结合了ASP技术，应用SQL语句查询与显示数据，用ASP技术进行数据查询、写入、修改、删除等网络操作等；

（4）将你建的数据库应用到你的网站中。课程结束时，上交课程设计。

参考代码（要依据你自己的数据库名、表名、字段名等修改相应代码）

一、查询和显示记录

1．数据库连接

建一个conn.asp 网页，代码：

然后，在其它用到数据库连接的网页中，第一行插入：

2、查询和显示记录

①先依据你查询的字段编写一个查询表单网页（select1.asp），如图：

②依据查询表单，编写接收与处理程序（select2.asp）, 代码：

<%

username=request.form("username")

tel=request.form("tel")

%>

<% if username<>"" and tel<>"" then

exec="select * from guest where username='"+username+"' and tel="+tel

set rs=server.createobject("adodb.recordset")

rs.open exec,conn,1,1

%>

<% if rs.eof and rs.bof then

response.Write("对不起，你查询的记录不存在。")

else %>

<%do while not rs.eof%>

<%rs.movenext

loop%>

<%=rs("username")%>

<%=rs("tel")%>

<%=rs("message")%>

<%=rs("time")%>

<% end if %>

<%else

response.Write("对不起，你没有输入姓名或电话"&"

""返

回上页")

end if %>

二、添加记录

1、先依据你添加记录的字段编写一个添加表单网页（add1.asp），如图：

2、依据你添加表单内容，编写接收与添加处理程序（add2.asp）, 代码：

<%

name=request.form("name")

tel=request.form("tel")

message=request.form("message")

exec="insert into guest(name,tel,message) values('"+name+"',"+tel+",'"+message+"')" conn.execute exec

conn.close

set conn=nothing

response.write "记录添加成功!"

%>

到数据库看是否添加了记录，也可做一个显示记录网页，看是否添加了记录。

三、修改记录

1、先查询出要修改的记录

①查询记录ID表单网页（select_mod.asp）

②查询处理程序（modify.asp）

<%

exec="select * from guest where id="&request.form("id")

set rs=server.createobject("adodb.recordset")

rs.open exec,conn,1,1

%>

<% if rs.eof and rs.bof then %>

未发现你要修改的记录，请重新输入。返回上页

<% end if %>

<% if not rs.eof and not rs.bof then %>

ID	姓名	电话	基本信息
<%=rs("ID")%>	">	">	"> ">

<% end if %>

<% rs.close

set rs=nothing

conn.close

set conn=nothing %>

<% end if %>

2、修改记录

修改处理程序（modifysave.asp）

<%

exec="select * from guest where id="&request.form("id")

set rs=server.createobject("adodb.recordset")

rs.open exec,conn,1,3

rs("name")=request.form("name")

rs("tel")=request.form("tel")

rs("message")=request.form("message")

rs.update

rs.close

set rs=nothing

conn.close

set conn=nothing %>

<% response.write "记录修改成功!" %>

返回查询修改页面

四、删除记录

1、先查询出要删除记录表单（delete.asp）

请输入删除的ID号:

2、删除记录处理程序（delete2.asp）

<% ID= request.form("id")

exec1="delete * from guest where id="&ID

set rs1=conn.execute(exec1)

exec="select * from guest"

set rs=server.createobject("adodb.recordset")

rs.open exec,conn,1,1 %>

<% do while not rs.eof %>

<% rs.movenext

Loop %>

<%=rs("id")%>

<%=rs("name")%>

<%=rs("tel")%>

<%=rs("message")%>

<%=rs("time")%>

调试运行条件：①要建好WEB服务器（对IIS设置）；②依据自己的网站内容建好数据库；③注意数据库的路径。