西京学院经济系
《动态网站建设与开发》
实训报告
专业 及 班级：电子商务1002班
姓 名： 李 聪
学 号： 1002012058
指 导 老 师： __范 桂 龄__
报告完成时间：2012年6月14日
Asp实训报告
一、实训目的
1、通过设计ASP的一些页面，让我增多了对ASP的了解，在本次的实训中更好的掌握了ASP的应用。
2、熟练应用ASP的技巧。
3、掌握数据库的应用。
二、实训要求
1、建立完整的数据库表格，并完善使用。
2、设置正确的数据源。
3、输入正确的通讯库代码。
4、正确使用WORD和截图工具。
三、实训注意事项
1、代码的正确输入
2、建立正确的虚拟目录路径
3、数据源的设置
4、文件名输入正确
四、实训内容（写清楚先做。。。。后做。。。。）
1、建立数据库
2、设置数据源
3、ASP连接数据库
4、添加通讯录目录
5、更新通讯录
五、实训代码
1、首页代码
<HTML>
<BODY>
<h2 align="center">我的通讯录</h2>
<%
dim conn,strconn
set conn=server.createObject("ADODB.Connection")
strconn="provider=Microsoft.jet.oledb.4.0;data source=" & server.mappath("address.mdb")
conn.open strconn
dim rs,strsql
strsql="select*from tbaddress order by ID DESC"
set rs=conn.execute(strsql)
%>
<a href="6.asp">添加记录</a>
<table border="5"width="100%">
<tr bgcolor="#EOEOEO">
<th>姓名</th><th>性别</th><th>年龄</th><th>电话</th><th>E-mail</th><th>简介</th><th>添加日期</th><th>删除</th><th>更新</th>
</tr>
<%
do while not rs.eof
%>
<tr>
<td><%=rs("strname")%></td>
<td><%=rs("strsex")%></td>
<td><%=rs("intage")%></td>
<td><%=rs("strtel")%></td>
<td><a href="mailto:<%=rs("stremail")%>"><%=rs("stremail")%></a></td>
<td><%=rs("strintro")%></td>
<td><%=rs("dtmsubmit")%></td>
<td><a href="7.asp?ID=<%=rs("ID")%>">删除</a></td>
<td><a href="8.asp?ID=<%=rs("ID")%>">更新</a></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</BODY>
</HTML>
2、添加通讯录代码
<HTML>
<BODY>
<H2 align="center">添加新成员</H2>
<form name="frminsert" method="post" action="">
<p align="center">
<TABLE border="1" width="80%" align="center">
<TR>
<TD>姓名</TD><TD><input type="text" name="txtname" size="20">*</TD>
</tr><TR>
<TD>性别</TD><TD><input type="radio" name="rdosex" value="男">男
<input type="radio" name="rdosex" value="女">女</TD>
</tr><TR>
<TD>年龄</TD><TD><input type="text" name="txtage" size="4"></TD>
</tr><TR>
<TD>电话</TD><TD><input type="text" name="txtel" size="20"></TD>
</tr><TR>
<TD>e-mail</TD><TD><input type="text" name="txtemail" size="50"></TD>
</tr><TR>
<TD>个人简历</TD><TD><textarea name="txtintro" rows="4" cols="50"></textarea></TD>
</tr><TR>
<TD></TD><TD><input type="submit" name="btnsubmit" value="确定" ></TD>
</tr>
</TABLE>
</form>
<%
if Request.Form("txtname")<>"" and Request.Form("txttel")<>"" then
dim name,sex,age,tel,email,intro
name=Request.Form("txtname")
sex=Request.Form("rdosex")
if Request.Form("txtage")<>"" then
age=Request.Form("txtage")
else
age=0
end if
tel=Request.Form("txttel")
email=Request.Form("txtemail")
intro=Request.Form("txtintro")
dim conn
set conn=server.createObject("ADODB.Connection")
conn.open"provider=Microsoft.jet.oledb.4.0;data source=" & server.mappath("address.mdb")
dim strsql
strsql="insert strinto tbaddress(strname,strsex,inage,strtel,stremail,strintro,dtsubmit)values('" & strname & "', '" & strsex & "'," & inage & ", '" & strtel & "','" & stremail & "','" & strintro & "',#" & date() & "#)"
conn.execute(strsql)
Response.Redirect "5.asp"
end if
%>
</BODY>
</HTML>
3、删除通讯录代码
<%
dim conn
set conn=server.createObject("ADODB.Connection")
conn.open"provider=Microsoft.jet.oledb.4.0;data source=" & server.mappath("address.mdb")
dim strsql
strsql="delete from tbaddress where ID=" & Request.QueryString("ID")
conn.execute(strsql)
Response.Redirect "5.asp"
%>
4、更新通讯录代码
<HTML>
<BODY>
<h2 align="center">更新成员信息</h2>
<%
dim conn
set conn=server.createObject("ADODB.Connection")
conn.open"provider=Microsoft.jet.oledb.4.0;data source=" & server.mappath("address.mdb")
dim strsql,rs
strsql="select* from tbaddress where id="&Request.QueryString("ID")
set rs=conn.execute(strsql)
%>
<FORM name="frmupdate" METHOD="POST" ACTION="8.asp">
<TABLE border="1" width="80%" align="center">
<tr>
<td>姓名</td>
<td><input type="text" name="txtname" size="20" value="<%=rs("strname")%>">*</td>
</tr><tr>
<td>性别</td><td>
<input type="radio" name="rdosex" value="男"
<%if rs("strsex")="男"then response.write"checked"%>>男
<input type="radio" name="rdosex" value="女"
<%if rs("strsex")="女"then response.write"checked"%>>女
</tr><tr>
<td>年龄</td>
<td><input type="text" name="txtage" size="4" value="<%=rs("intage")%>"></td>
</tr><tr>
<td>电话</td>
<td><input type="text" name="strtel" size="20" value="<%=rs("strtel")%>">*</td>
</tr><tr>
<td>email</td>
<td><input type="text" name="stremail" size="50" value="<%=rs("stremail")%>"></td>
</tr><tr>
<td>个人简介</td>
<td><textarea name="txtintro"rows="4"cols="50"><%=rs("strintro")%>"></textarea></td>
</tr><tr>
<td><input type="hidden" name="txtID" value="<%=rs("ID")%>"></td>
<td><input type="submit" name="btnsubmit" value="确定" ></td>
</tr>
</table>
</FORM>
</BODY>
</HTML>
六、实训心得
通过此次独立完成通讯录的独立完成，使我对原来没有掌握的知识得到了进一步的理解和巩固。了解了在动态网站的更新、添加、删除等后台运行的操作技术。在实训的完成中使我懂得了在操作时需要认真和细心。