第六章 总结
通过本次毕业设计，让我更加深刻的了解通过asp来制作网站，同时也理解了做程序的基本流程，要做好一个程序，首先要做好需求分析，这样使得自己在后面的开发中知道要实现那些功能，通过流程图的我可以更好的知道程序设计的流程。总体来说这次设计让我对asp技术有了更深刻的了解，同时也知道了怎么使得网站更加安全。这次设计让我受益匪浅，也对我今后进展工作有很大的帮助。
致谢
这次毕业论文项目能顺利完成，首先要感谢我的工作单位开元科技提供我一个学习研究的环境，使我我在设计中学到很多东西，让我的技术有很大的帮助。通过这次毕业论文项目的顺利完成让我学到很多有关于ASP的知识。在论文的设计过程中，感谢学校老师对我的指导。最后还要感谢公司对我工作上的支持、指导和帮助。
参考文献
神龙工作室 ASP网络编程从入门到精通 人民邮电 2006
汪晓平 .ASP网络开发技术[M] 人民邮电出版社.2001.
李文才、田中雨、刘跃军等 ASP动态网站开发基础教程与实验指导（从基础到应用） 清华大学出版社
王兴玲、于海波、胡晓辉、李刚生 ASP案例汇编 清华大学出版社
附录
附件1 对数据库进行连接
<%
dim conn
dim connstr
dim db
db="../Databases/asp99cms.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
function jincheng (p)
jincheng=p-100000000000000
end function
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
附件2 后台功能代码
<%
if session("AdminName") = "" then
response.Redirect "Login.asp"
end if
%>
<%
select case Request("menu")
case ""
main
case "top"
top
end select
%>
<script>
if(self!=top){top.location=self.location;}
function switchSysBar(){
if (switchPoint.innerText==3){
switchPoint.innerText=4
document.all("frmTitle").style.display="none"
}else{
switchPoint.innerText=3
document.all("frmTitle").style.display=""
}}
</script>
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
