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

合集下载

相关主题

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

《网络信息发布》第五次实验
用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
%>
<html>
<head>
<title> 查询与显示</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<% if rs.eof and rs.bof then
response.Write("对不起，你查询的记录不存在。

")
else %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%do while not rs.eof%><tr>
<td><%=rs("username")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr>
<%rs.movenext
loop%>
</table>
<% end if %>
<%else
response.Write("对不起，你没有输入姓名或电话"&"</P>""<a href='select1.asp'>返
回上页</a>")
end if %>
</body>
</html>
二、添加记录
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
%>
<body>
<% if rs.eof and rs.bof then %>
<p>未发现你要修改的记录，请重新输入。

<a href="modify1.asp">返回上页</a></p> <% end if %>
<% if not rs.eof and not rs.bof then %>
<form name="form1" method="post" action="modifysave.asp">
<table width="748" border="1" cellspacing="0" cellpadding="0">
<tr>
<td>ID</td>
<td>姓名</td>
<td>电话</td>
<td>基本信息</td></tr>
<tr>
<td><%=rs("ID")%></td>
<td><input type="text" name="name" value="<%=rs("name")%>"></td>
<td><input type="text" name="tel" value="<%=rs("tel")%>"></td>
<td><input type="text" name="message" value="<%=rs("message")%>">
<input type="submit" name="Submit" value="提交">
<input type="hidden" name="id" value="<%=request.form("id")%>">
</td></tr>
</table>
</form>
<% end if %>
<% rs.close
set rs=nothing
conn.close
set conn=nothing %>
<% end if %>
</body>
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 %>
<p><% response.write "记录修改成功!" %></p>
<div align="center"><a href="select_mod.asp.asp">返回查询修改页面</a></div>
四、删除记录
1、先查询出要删除记录表单（delete.asp）
<html><head>
<title>删除记录表单</title>
</head><body>
<form name="form1" method="post" action="delete2.asp">
请输入删除的ID号: <input type="text" name="id">
<input type="submit" name="Submit" value="提交">
</form></body></html>
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 %>
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% do while not rs.eof %><tr>
<td><%=rs("id")%></td>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr>
<% rs.movenext
Loop %>
</table>
</body>
调试运行条件：①要建好WEB服务器（对IIS设置）；②依据自己的网站内容建好数据库；③注意数据库的路径。