el"))
%>'如果"del"按键有动作,这样它就不为空,就删除汽车信息中的该条记录
四、记录的搜索
以汽车信息管理中的搜索为例,先在页面上做一个搜索的表单,然后把该表单的动作一栏中写上驱动该表单的文件的文件名,提交方法选择get的方法,最后用DreamweaverMX建立一个驱动该表单的ASP文件,具体代码如下:
<%
dimconn
dimconnstr
dimdb
db="database/data.mdb"
Setconn=Server.CreateObject("ADODB.Connection")
connstr="driver={MicrosoftAccessDriver(*.mdb)};dbq="&Server.MapPath(""&db&"")
conn.Openconnstr
subendConnection()
conn.close
setconn=nothing
endsub
%>'建立数据库连接
<%
select1=request("select1")
textfield1=request("textfield1")
%>
<%
ifselect1=""then
response.Redirect("err29.htm")
endif
iftextfield1=""then
response.Redirect("err30.htm")
endif
%>'接收各个表单控键的变量,如变量为空,跳转到错误页面提示
<%
Ifselect1="汽车牌号"orselect1="汽车类型"orselect1="购买时间"orselect1="车况"Then'控键变量满足汽车牌号、汽车类型、购买时间
Setconn=Server.CreateObject("ADODB.Connection")
param="driver={MicrosoftAccessDriver(*.mdb)}"
conn.Openparam&";dbq="&Server.MapPath("database\data.mdb;")
Setrs=Server.CreateObject("ADODB.Recordset")
sqlstr="select*from汽车信息where"&select1&"like'%"&(textfield1)&"%'"'按条件检索数据库
rs.Opensqlstr,conn,3,2
n=rs.recordcount
%>
<%
c=0
dowhilenotrs.eof
%>
<%=rs("汽车牌号")%>
<%=rs("汽车类型")%>
<%=rs("汽车颜色")%>
<%=rs("购买时间")%>
<%=rs("车况")%>
<%=rs("维修记录")%>
<%=rs("备注")%>
'显示数据库中的各项记录
<%
response.Write""
rs.movenext
c=c+1
loop'循环显示
endif
%>
第四章数据库的建立
系统涉及到很多重要数据,这些数据包括派车登记表信息、司机信息、车辆信息等内容,他们对于系统的建设和发展有着非常重要的作用,对这些数据要完成保存、查询和加密的工作,使用数据库是最好的解决办法。本站采用MicrosoftAccess2000作为web数据库。
一、分析数据库需求
所有的系统软件无一例外的都要有数据库的支持,车辆信息管理系统系统也必须有强大的数据库支持。MicrosoftAccess2000数据库具有小巧易用、功能强大的特点,并且它与ASP技术的结合非常好,因此使用它来提供数据库支持。作为系统需要建立派车登记信息表、司机信息表、车辆信息表等数据库表单。
二、数据库的建立
根据前面所进行的网上购物系统的需求分析,可以明确要建立多少张数据表。下面就开始建立我们所需要的表格。
打开MicrosoftAssecc后,进行对"使用向导创建表",创建表格,输入所要的内容,具体如下:
(1)打开Access2000,便会看到图1
图1
(2)在MicrosoftAccess对话框中,选择"空数据库",然后单击[确定]按钮,打开"文件新建数据库"如图2所示,单击"新建文件夹"会出现图2
图2
(3)在图3的对话框中填写"zxdg"单击[确定],将返回"文件新建数据库"
但路径已改变,如图4所示
图3
图4改变路径后"文件新建数据库"窗口
(4)在"文件新建数据库"窗口的"文件名"框中输入新建的数据库名"data"
然后单击[确定]即可打开数据库窗口,如图5所示
图5"数据库"窗口
(5)选择"通过输入数据创建",将打开表。我用Access建立一个数据库Data。
建立好后点击后可以建立成功一个数据库表格。实图如下:
第五章系统的调试
一、Web服务器的安装和配置
在WindowsXPProfessional操作系统中采用Web服务器IIS6.0+ASP+MicrosoftAccesXP数据库的组合作为本站设计开发及发布的环境。正确安装和配置服务器是进行网站开发尤其是包含数据库的网络应用程序的前提。
IIS是InternetInformationServer的缩写,它是微软公司主推的Web服务器,最新的版本是WindowsXP里面包含的IIS6.0,IIS与WindowNTServer完全集成在一起,因而用户能够利用WindowsNTServer和NTFS(NTFileSystem,NT的文件系统)内置的安全特性,建立强大、灵活而安全的Internet和Intranet站点。IIS的一个重要特性是支持ASP。IIS3.0版本以后引入了ASP,可以很容易的张贴动态内容和开发基于Web的应用程序。IIS的安装,管理和配置都相当简单。
二、IIS的安装
步骤:
1.点击:【开始】->【设置】->【控制面板】->【添加/删除程序】,打开"添加/删除程序"对话框。
2.点击左边菜单栏中"添加/删除Windows组件"项,打开"Windows组件向导"对话框(这个过程可能要花几十秒钟),在对话框"组件"列表中,选中"Internet信息服务(IIS)"项,如图5-1。
图5-1
3将"WindowsXP"安装盘放入光驱中,然后点击"下一步"。这个步骤可能会花几分钟。
4点击"完成"按钮,完成IIS的安装,如图5-2。
图5-2
三、IIS的配置
步骤1.点击:【开始】->【设置】->【控制面板】->【管理工具】,进入"管理工具"窗口,如图5-3。
图5-3
2.双击"Internet信息服务"图标,启动IIS管理程序。
3.双击左边一栏中的"Internet信息服务"打开该接点,依次打开:【*本机名】->【默认的Web站点】,如图5-4。
图5-4
4.右击"默认的Web站点"项,在弹出的菜单中选择【新建】->【虚拟目录】,打开"虚拟目录创建向导"对话框。
5.单击"下一步"进入"虚拟目录别名"设置对话框,在"别名"框中输入虚拟目录名,如,如图5-5。
图5-5
6.单击"下一步"进入"目录路径"设置对话框,在"目录"框中输入物理目录名(或者点击右边的"浏览..."按钮,在弹出的"浏览文件夹"对话框中选择)。该目录要设置为本软件安装目录下的"Asp"子文件夹。例如,如果您在安装时接受默认的目录名"C:\Inetpub\wwwroot",那么在这里就您输入输入"C:\Inetpub\wwwroot\bysj"如图5-6。
图5-6
7.单击"下一步"进入"访问权限"设置对话框,接受默认设置,点击"下一步",进入"完成"对话框,点击"完成"按钮,完成设置。
第六章总结与提高
时间飞逝流驶,转眼间大学的最后一道难关----毕业设计接近尾声了。回顾这一段不算短的时间,从开始导师的确定课题到最后的完成课题,其间经历了不少的困难,但总的来说还是收益非浅。
一:准备工作
在动手做毕业设计之前,先做一些必要的准备。首先是到图书馆找关于用ASP做网页的参考书,图书馆关于做网站,网页的很多,我挑了一本最适合自己的一本作为主要工具,其余的为辅助工具。我所做的是汽车调度管理系统,管理派车登记、司机信息管理、车辆信息管理、里程信息检索,所以对必须对管理系统有充分的了解。另外,我也翻阅了有关汽车的方面的书,还到网上浏览了一下发布在网上的信息管理方面网站。
二:中期的设计工作
中期的设计工作是一个需要不段上机的过程,理论与实践的相结合也可以得到充分的体现。在设计过程中,也遇到不少的困难,比如什么数据库连接和参数问题等等。总之,通过这次毕业设计,让我对ASP有了更加充分的了解。
三:后期的总结工作
在最后的这个阶段中,我把前两个阶段进行了总结,看看还有那些地方不懂,以及不太理解的地方,让自己更充分的准备毕业答辩。
最后,对在这次毕业设计中给过我多次指导的老师以及各位评委老师表示衷心的感谢。
参考文献
《网页数据库》
薛元昀顾佳英主编清华大学出版社2001年出版
《网页设计手册》
李世杰主编清华大学出版社2003年5月出版
《ASP.NET编程百例通》
林少景编著清华大学出版社2004年6月出版
附件
毕业设计
<%
textfield1=Request("textfield1")
textfield2=Request("textfield2")
textfield3=Request("textfield3")
textfield4=Request("textfield4")
select1=Request("select1")
select2=Request("select2")
textfield5=Request("textfield5")
select3=Request("select3")
select4=Request("select4")
select5=Request("select5")
textfield6=Request("textfield6")
select6=Request("select6")
textfield7=Request("textfield7")
textfield8=Request("textfield8")
textfield9=Request("textfield9")
textfield10=Request("textfield10")
textfield11=Request("textfield11")
1=Request("1")
%>
<%
iftextfield1=""then
response.Redirect("err1.htm")
response.End()
endif
iftextfield2=""then
response.Redirect("err2.htm")
response.End()
endif
iftextfield3=""then
response.Redirect("err3.htm")
response.End()
endif
iftextfield4=""then
response.Redirect("err4.htm")
response.End()
endif
iftextfield5=""then
response.Redirect("err5.htm")
response.End()
endif
iftextfield6=""then
response.Redirect("err6.htm")
response.End()
endif
iftextfield7=""then
response.Redirect("err6=7.htm")
response.End()
endif
iftextfield8=""then
response.Redirect("err8.htm")
response.End()
endif
iftextfield9=""then
response.Redirect("err9.htm")
response.End()
endif
iftextfield10=""then
response.Redirect("err10.htm")
response.End()
endif
iftextfield11=""then
response.Redirect("err11.htm")
response.End()
endif
%>
<%
setrs=server.createobject("adodb.recordset")
sql="select*from派车单"
rs.opensql,conn,1,3
rs.addnew
rs("司机姓名")=textfield1
rs("驾驶证号")=textfield2
rs("出车车辆牌号")=textfield3
rs("出发日期")=textfield4+select1+select2
rs("到达日期")=textfield5+select3+select4
rs("出发时间")=select5+textfield6
rs("到达时间")=select6+textfield7
rs("出发地点")=textfield8
rs("目的地地点")=textfield9
rs("行程距离")=textfield10
rs("消耗费用")=textfield11
if1=""then
rs("备注")=null
else
rs("备注")=1
endif
rs.update
rs.close
setrs=nothing
%>
司机姓名:<%=textfield1%>
驾驶证号:<%=textfield2%>
出车车牌号:<%=textfield3%>
出发日期:<%=textfield4+select1+select2%>
到达日期:<%=textfield5+select3+select4%>
出发时间:<%=select5+textfield6%>
到达时间:<%=select6+textfield7%>
出发地点:<%=textfield8%>
目的地地点:<%=textfield9%>
行程距离:<%=textfield10%>
消耗费用:<%=textfield11%>
备注:<%=1%>
提交成功!
毕业设计
司机姓名
驾驶证号
出车车辆牌号
出发日期
到达日期
出发时间
到达时间
出发地点
目的地地点
行程距离
消耗费用
备注
操作
<%setrs=server.createobject("adodb.recordset")
ifrequest("del")<>""thenconn.Execute("delete*from派车单whereid="&request("del"))
%>
<%
setrs=server.createobject("adodb.recordset")
sql="select*from派车单"
rs.opensql,conn,1,3
i=0
%>
<%
dowhilenotrs.eof
%>
<%=rs("司机姓名")%>
<%=rs("驾驶证号")%>
<%=rs("出车车辆牌号")%>
<%=rs("出发日期")%>
<%=rs("到达日期")%>
<%=rs("出发时间")%>
<%=rs("到达日期")%>
<%=rs("出发地点")%>
<%=rs("目的地地点")%>
<%=rs("行程距离")%>
<%=rs("消耗费用")%>
<%=rs("备注")%>
">
<%
response.Write""
rs.movenext
i=i+1
loop
%>
一共<%=i%>条记录
搜索项目:
出发日期
到达日期
内容:
选择搜索项目填写内容按开始搜索
日期格式:2000-01-01
按删除键删除记录
<%
select1=request("select1")
textfield1=request("textfield1")
%>
<%
ifselect1=""then
response.Redirect("err25.htm")
endif
iftextfield1=""then
response.Redirect("err26.htm")
endif
%>
毕业设计
查询记录表
司机姓名
上一篇:ASP车辆管理系统(论文和程序)
下一篇:试析影响公路路面平整度的因素及应采取的施工措施