《网站建设》课程实验报告.doc
桂林电子科技大学信息科技学院网站建设课程实验报告姓名宋亚学学号实验日期2013-4-17实验名称基于WEB的个人理财系统的设计实验目的及要求（给出本次实验所涉及并要求掌握的知识点）1. 数据库下新增数据表单2. 数据库的设计和添加过程的熟悉；3. 数据库与网页链接的规范性代码的编写与匹配。4. 开发工具编制个人理财系统表单。5. 将网页表单数据插入到对应的数据表中。6. 实现超链接功能。在原有未完成的的个人理财系统上，进一步完成记支出功能。路径设置，代码编写，网页调试，数据库表单与网页之间的链接。网页注册后的数据库的存储。实验环境 二软件操作系统 1.可操作平台。 2.编码平台 Dreamweaver系列 3.数据存储器软件程序Access系列。本机是D5.6和Access2000版本（使用保存时需使用mdb格式）l 操作系统：Windows win7 +IIS+Access 或者 windows 7+IIS+Access。l 脚本语言：Asp。l 数据库：Microsoft Office Access数据库（注意数据库后缀为mdb）。l 编译工具：Dreamweaver实验内容本次ASP动态网页开发试验是未完成一个基于WEB的个人理财系统的设计，基础之上主要实现记支出和收入功能的操作：建立支出统计和收入统计通过超链接连接到数据库中实现页面录入数据，数据库能有效准确的进行计算。2.在所打开的网页中，录入相关数据提交统计，统计信息是否在网页上显示，同时查看是否调用在数据库中。本次实验最终实现的，一个 人理财财务系统的“记支出、记收入喝的统计”功能的设计。3.超链接后看是否跳转到相关网页。实验步骤第一步：在新建站点的目录文件夹Financial下保存要求的数据表。第二步调用Db.mdb数据表的数据。第三步：使用Dreamweaver编制链接接ACCESS数据库的文件。文件命名为为F-Count.asp保存在Financial下。第四步：建立Login.asp并将该表连接在首页，使其首页的页表相组合构成一个完美的用户注册第五步：为实现登陆内容隐藏又在Login基础之上建Logincheck.asp来判断用户登录信息正确性，如登录如数据库内容相符，则显示“欢迎你并显示用户注册真是姓名”第六步：再建立Logount.asp,输入内容正确跳入主菜单栏。错误返回首页，始终显示重新登录界面。在浏览器中运行http:/localhost/Financial/F-count.asp，如果没有任何信息显示，表明连接数据库成功了。如果出现问题，系统会提示错误，并指出错误所在位置。把要统计的数据填入网页表单中,进行统计.统计结果会自动在数据库中进行运算结果会再次出现在页面.调试过程及实验结果1. 虚拟路径设定问题2. 浏览器网页调试过程中容易出现：输入浏览器网址错误、编码出错、乱码：1.本机调试，修改本机相关使用权限可以通过电脑自报问题出现位置；2.通过编码软件和浏览器的调试，软件自报出错位置。解决方法，老师帮忙修改，同学相会交流，对不出错位置;二是老师通过网络百度等方式求解相关错误例题,这也是老师叫我们独立解决问的一个很好地途径。3. 数据库录入显示成功,弹回录入页面,代码做了修改.4. 界面显示乱码:修改显示的属性设置为中文.接下来就是表单值与网页值不符，经过反复修改后没有问题。最后就是网页表单录入信息，数据库不保存，经过耐心的调试，终于宣告大捷.实验最终结果与过程：总结（对实验结果进行分析，问题回答，实验心得体会及改进意见） 本次试验结果是实现网页录入内容，能准确的回收到数据库并且要根据存储路径相应设定调用值，当我们在网页表格中注册输入不同的注册信息时，相应的就会在数据库中保存相应的注册数据，方便快捷，易于操作，使我了解到网页程序虽然很简短，但是却可以实现重复利用，而数据库的有效录入，方便了人们对信息的有效查询，记录详细，易于查找、方便调用、利于保存减少破坏与损失。 通过本次试验，不仅检验了我们开学初这段时间所学的内容，而且锻炼了我们完成实验的独立性和发现问题及时解决问的自主性。通过这次试验结果分析，我所学习的知识并没有完全掌握，在诸多细节问题上没有仔细落到实处，在调试过程中往往由于找不到出现问题的关键所在，看见大串英文代码一时间会产生不耐烦的心理。但是，通过老师和同学的耐心指导我也恢复了完成作页的信心。附录（核心源程序清单，并加注释）conn.asp：http:/localhost/Financial/conn.asp'功能：连接Access数据库'作者：宋亚学'创建时间：2013-3-14'最后编辑时间：2013-3-14Dim Db,ConnstrDb="Db.mdb" '数据库路径Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(Db)On Error resume nextSet Conn = Server.CreateObject("ADODB.Connection")Conn.open ConnstrIf Err then err.clear set Conn=nothing response.Write("connect database error") response.End()End If %>index.asp</head><table width="200" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="3"><p align="center">基于web的个人理财系</p> <p align="center"><!-#include file="login.asp"-></p></td> </tr> <tr> <td><div align="center"><a href="F-Income.asp">记收入</a></div></td> <td><div align="center"><a href="F-Spending.asp">记支出</a></div></td> <td><div align="center"><a href="F-Count.asp">统计</a></div></td> </tr></table>F-Spenging<<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%'是否登陆成功的标识if session ("loginstate")<>"ok" then reponse.write("<script>aleert('请登录');window.locaion.href('index.asp');</script>")end if%><!DOCTYPE html PUBLIC "-/W3C/DTD XHTML 1.0 Transitional/EN" "http:/www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http:/www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>无标题文档</title><style type="text/css">body,td,th font-size: 16px;color: #F36;body background-color: #0F6;</style></head><body><form id="form2" name="form2" method="post" action="savefz.asp"> <table width="489" height="326" border="1" align="center"> <tr> <td height="37" colspan="2">记支出</td> </tr> <tr> <td width="97" height="40">名称</td> <td width="376"><input name="name1" type="text" id="name1" /></td> </tr> <tr> <td height="40">金额</td> <td><input name="amount" type="text" id="amount" /></td> </tr> <tr> <td height="44">日期</td> <td><input name="createtime" type="text" id="createtime" /></td> </tr> <tr> <td height="40">所属分类</td> <td><select name="class1" id="class1"> <option value="yule">娱乐</option> </select> </td> </tr> <tr> <td height="51">备注</td> <td><textarea name="memo" id="memo"></textarea></td> </tr> <tr> <td height="56"> </td> <td><input type="submit" name="Submit" value="记支出" /></td> </tr> </table></form><p> </p></body></html>Login.asp<%if session ("loginState")<>"ok" then'没有登录%><form id="form1" name="form1" method="post" action="loginCheck.asp "> <table width="224" height="132" border="0"> <tr> <td colspan="2">用户管理登陆</td> </tr> <tr> <td width="69">用户名：</td> <td width="140"><input name="txtUsername" type="text" id="txtUsername" size="20" /></td> </tr> <tr> <td>密码：</td> <td><input name="txtPassword" type="text" id="txtPassword" size="20" /></td> </tr> <tr> <td colspan="2"><input type="submit" name="button" id="button" value="提交" /> <input type="submit" name="button2" id="button2" value="重置" /></td> </tr> </table></form><%else%>欢迎您：<%=session("realname")%> , <a href="logout.asp">退出</a><%end if%>Logincheck.asp<!-#include file="conn.asp"-><%'第一步，获取登录 的用户名与密码username = request.Form("txtUsername") '获得用户名password = request.Form("txtPassword") '获得密码'第二步，查询sql = "select * from user where username='"&username&"' and password='"&password&"'"set rs = server.CreateObject("adodb.recordset")rs.open sql,conn,1,1if not rs.eof then '判断有没有数据'有'通过对象 session 来记录登录 状态session("loginState")="ok"session("realname")=rs("realname") '从数据表中把realname字段的值赋值给session变量response.Redirect("index.asp") '跳转回index.aspelse'没有response.Write("<script>alert('用户名密码不正确');window.location.href('index.asp');</script>")end if%>F-incom<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%'是否登陆成功的标识if session ("loginstate")<>"ok" then reponse.write("<script>aleert('请登录');window.locaion.href('index.asp');</script>")end if%><!DOCTYPE html PUBLIC "-/W3C/DTD XHTML 1.0 Transitional/EN" "http:/www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http:/www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>无标题文档</title><style type="text/css">body,td,th font-size: 16px;color: #F09;font-weight: bold;body background-color: #3FF;</style></head><body><form id="form2" name="form2" method="post" action="savef.asp"> <table width="489" height="285" border="1" align="center"> <tr> <td height="29" colspan="2">记收入</td> </tr> <tr> <td width="97" height="37">名称</td> <td width="376"><input type="text" name="textfield" id="textfield" /></td> </tr> <tr> <td height="34">金额</td> <td><input name="amount" type="text" id="amount" /></td> </tr> <tr> <td height="35">日期</td> <td><input name="createtime" type="text" id="createtime" /></td> </tr> <tr> <td height="40">所属分类</td> <td><select name="class1" id="class1"> <option value="yule">娱乐</option> </select> </td> </tr> <tr> <td height="45">备注</td> <td><textarea name="memo" id="memo"></textarea></td> </tr> <tr> <td height="47"> </td> <td><input type="submit" name="Submit" value="记收入" /></td> </tr> </table></form><p> </p></body></html>F-Count<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%'是否登陆成功的标识if session ("loginstate")<>"ok" then response.Write("<script>alert('请登录');window.location.href('index.asp');</script>")end if%><!DOCTYPE html PUBLIC "-/W3C/DTD XHTML 1.0 Transitional/EN" "http:/www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http:/www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>无标题文档</title><!-#include file="connf.asp"->元</div><style type="text/css">body,td,th font-size: 16px;color: #F00;body background-color: #6FF;</style><body><form id="form1" name="form1" method="post" action=""> <table width="973" height="137" border="1"> <tr> <td width="963" height="81"><div align="center"> <p>基于web的个人理财系统</p> <p>欢迎您：XXX,<a href="connf.asp">退出</a></p> </div></td> </tr> <tr> <td height="48"><div align="center"><a href="F-Income.asp">记收入 </a> <a href="F-Spending.asp">记支出 </a> <a href="connf.asp">统计 </a></div></td> </tr> </table> <div align="justify"> <table width="973" height="164" border="1"> <tr> <td height="42" colspan="6"><div align="center">支出统计</div></td> </tr> <tr> <td width="81" height="38"><div align="center">序号</div></td> <td width="162"><div align="center">支出的名称</div></td> <td width="171"><div align="center">金额</div></td> <td width="215"><div align="center">此支出记录的时间</div></td> <td width="198"><div align="center">此支出所属分类</div></td> <td width="106"><div align="center">说明</div></td> </tr> <%dim ii=1 sql="select * from spending order by id asc"set rs = server.CreateObject("adodb.recordset")rs.open sql,connf,1,1 while not rs.eof%> <tr> <td height="34"><div align="center"><%=rs("ID")%></div></td> <td><%=rs("name1")%></td> <td><%=rs("amount")%></td> <td><%=rs("createtime")%></td> <td><%=rs("memo")%></td> <td><%=rs("class1")%></td> </tr> <%i=i+1rs.movenextwend%> <tr> <td height="38" colspan="6"><div align="center">支出小计：<!-#include file="spending.asp"->元</div></td> </tr> </table> </div> <table width="976" height="136" border="1"> <tr> <td height="29" colspan="6"><div align="center">收入统计</div></td> </tr> <tr> <td width="78" height="29"><div align="center">序号</div></td> <td width="161"><div align="center">收入的名称</div></td> <td width="171"><div align="center">金额</div></td> <td width="220"><div align="center">此收入记录的时间</div></td> <td width="194"><div align="center">此收入所属分类</div></td> <td width="112"><div align="center">说明</div></td> </tr><%i=1 sql="select * from income order by id asc"set rs = server.CreateObject("adodb.recordset")rs.open sql,connf,1,1 while not rs.eof%> <tr> <td height="30"><div align="center"><%=rs("ID")%></div></td> <td><%=rs("name1")%></td> <td><%=rs("amount")%></td> <td><%=rs("createtime")%></td> <td><%=rs("memo")%></td> <td><%=rs("class1")%></td> </tr><%i=i+1rs.movenextwend%> <tr> <td height="36" colspan="6"><div align="center">收入小计：<!-#include file="income.asp"->元</div></td> </tr> </table> <p> </p></form></body></html>Logout.asp<%session.Abandon() '清空sessionresponse.Redirect("index.asp") '跳转回首页%>
