ASP网站设计课程设计报告.doc

课程设计说明书 NO 19EimsCMS企业网站管理系统08级计算机应用1班 06号 东昊1课程设计的目的本次课程设计的目的是利用ASP动态网站开发课上所学相关理论知识，进行上机实际操作，巩固理论知识，增强动手能力培养，使学生对ASP动态网站开发有更进一步的了解，让学生感受动态网站的功能的强大和设计过程中的各个环节，从而提高学生的自我学习能力和开发软件的实际动手能力。2总体设计2.1 设计方案提出 EimsCMS企业网站管理系统 (ASP+ACCESS)高速企业建站程序EimsCMS企业网站管理系统基于微软ASP和ACCESS数据库开发完成，访问模式采用动态模式，基本上实现了系统的自定义功能，代码简洁高效，易于修改维护，可扩展性强。2.2 设计环境 硬件环境：IntelP4、1G或更高微处理器；内存256MB以上，硬盘1GB以上。 软件环境：IIS信息服务器 ASP + ACCESS，使用Dreamweaver、Firework、Flash、Photoshop、AAAlogo等软件开发完成。3功能需求分析系统管理：网站设置、导航设置、多选管理、网站公告、空间使用、登录日志、文件管理、文件上传。 单页管理:自由无限制添加个性页面，如：公司简介、组织结构、联系我们等。新闻管理：新闻可一级分类，分类排序、修改分类、发布新闻、管理新闻。产品管理：产品一级分类、分类排序、发布产品、上传图片、产品管理等。人才管理：发布职位、管理职位。首页幻灯广告管理：自由添加上传广告图片，管理广告，可以在新闻图片调用。留言管理：管理前台网友留言。订单管理：前台提交订单后台处理。订单管理：前台提交订单后台处理。友情链接管理：增加友情链接，管理链接等。会员管理：增加前台用户，管理注册用户，添加后台管理员等。EimsCMS企业网站管理系统，更多功能优化期待你的发现,如果您在使用中遇到问题,可以前往EimsCMS 讨论区发帖询问，工作日官方技术人员提供解答! EimsCMS企业网站管理系统下载地址: 3.1 数据库详细设计数据库表3.2 函数设计eims：类型，如：News,Product,Down,Ads,AboutSortID：具体文章分类ItemID：具体文章IDItemN：具体字段内容（1 N 9）Num：输出数量TrimStr：截取字符串数量名称：Read(eims,ItemID,ItemN)参数：通用作用：具体字段内容输出名称：eimsList(eims,SortID,Num,TrimStr)参数：通用作用：通用列表输出名称：HotList(eims,SortID,Num,TrimStr)参数：通用作用：通用热门输出名称：ComdList(eims,SortID,Num,TrimStr)参数：通用作用：通用推荐输出名称：eimsListProduct(eims,SortID,Num)参数：通用作用：图片输出名称：ListSort(eims,SortID)参数：通用作用：通用分类输出名称：Pre()参数：无作用：上一页名称：Nex()参数：无作用：下一页需要说明的是，大部分函数在Config.asp页面中，也有个别函数在指定页面中具体页面函数有：页面：Flink.asp名称：Flink(fType)参数：Img为图片，Txt为文字作用：友情链接输出页面：Index.asp名称：FlinkIndex(Num)参数：通用作用：首页友情链接3.3 程序设计（1）、建立文件夹 Admin、Data、Images、 Include、 Upload（2）、基本参数设置：Config.asp文件代码（3）、链接数据库代码：%=以下代码请不要自行修改=Dim Conn,ConnStrOn error resume nextSet Conn=Server.CreateObject(Adodb.Connection)-If DbType = 1 Then-ConnStr=Provider=Sqloledb;User ID=&DBUser&;Password=&DBPsw&;Initial Catalog=&DBName&;Data Source=&DBServer&;-ElseIf DbType = 0 Then-ConnStr=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&Server.MapPath(DBPath)-End If-Conn.open ConnStrif err then err.clear Set Conn = Nothing Response.Write 系统错误：数据库连接出错，请检查连接字符串! Response.Endend ifSub CloseConn() On Error Resume NextRs.Close:Set Rs=nothingConn.close:Set Conn=nothingEnd sub=ACCESS与SQL SERVER的SQL语句区别判断=Dim ItemRecT,ItemRecFIf DbType = 1 Then-ItemRecT = ItemRec = 1ItemRecF = ItemRec = 0-ElseIf DbType = 0 Then-ItemRecT = ItemRec = TrueItemRecF = ItemRec = False-End If=函名：CheckSql作用：防止SQl注入=Function CheckSql(Str) If Str = Then CheckSql = Exit Function End If Str = Replace(Str,Chr(0), 1, -1, 1) Str = Replace(Str, , ", 1, -1, 1) Str = Replace(Str,>, 1, -1, 1) Str = Replace(Str, script, script, 1, -1, 0) Str = Replace(Str, SCRIPT, SCRIPT, 1, -1, 0) Str = Replace(Str, Script, Script, 1, -1, 0) Str = Replace(Str, script, Script, 1, -1, 1) Str = Replace(Str, object, object, 1, -1, 0) Str = Replace(Str, OBJECT, OBJECT, 1, -1, 0) Str = Replace(Str, Object, Object, 1, -1, 0) Str = Replace(Str, object, Object, 1, -1, 1) Str = Replace(Str, applet, applet, 1, -1, 0) Str = Replace(Str, APPLET, APPLET, 1, -1, 0) Str = Replace(Str, Applet, Applet, 1, -1, 0) Str = Replace(Str, applet, Applet, 1, -1, 1) Str = Replace(Str, , [) Str = Replace(Str, , ]) Str = Replace(Str, , , 1, -1, 1) Str = Replace(Str, =, =, 1, -1, 1) Str = Replace(Str, , , 1, -1, 1) Str = Replace(Str, select, select, 1, -1, 1) Str = Replace(Str, execute, execute, 1, -1, 1) Str = Replace(Str, exec, exec, 1, -1, 1) Str = Replace(Str, join, join, 1, -1, 1) Str = Replace(Str, union, union, 1, -1, 1) Str = Replace(Str, where, where, 1, -1, 1) Str = Replace(Str, insert, insert, 1, -1, 1) Str = Replace(Str, delete, delete, 1, -1, 1) Str = Replace(Str, update, update, 1, -1, 1) Str = Replace(Str, like, like, 1, -1, 1) Str = Replace(Str, drop, drop, 1, -1, 1) Str = Replace(Str, create, create, 1, -1, 1) Str = Replace(Str, rename, rename, 1, -1, 1) Str = Replace(Str, count, count, 1, -1, 1) Str = Replace(Str, chr, chr, 1, -1, 1) Str = Replace(Str, mid, mid, 1, -1, 1) Str = Replace(Str, truncate, truncate, 1, -1, 1) Str = Replace(Str, nchar, nchar, 1, -1, 1) Str = Replace(Str, char, char, 1, -1, 1) Str = Replace(Str, alter, alter, 1, -1, 1) Str = Replace(Str, cast, cast, 1, -1, 1) Str = Replace(Str, exists, exists, 1, -1, 1) Str = Replace(Str,Chr(13), 1, -1, 1) CheckSql = Replace(Str, 1, -1, 1) End Function%（4）、数据来源数据调用： 0 Then ItemID = Int(fItemID)=单页信息函数=Function Read(eims,ItemID,fItem)Set Rs=Server.CreateObject(Adodb.RecordSet)Rs.Open Select &fItem& From eims_&eims& Where &ItemRecT& and ItemID=&Int(ItemID),Conn,1,1If Not (Rs.Eof And Rs.Bof) ThenSelect Case fItemCase Item1 Read = Trim(Rs(Item1)Case Item2 Read = Trim(Rs(Item2)Case Item3 Read = Trim(Rs(Item3)Case Item4 Read = Trim(Rs(Item4)Case Item5 Read = Trim(Rs(Item5)Case Item6 Read = Trim(Rs(Item6)Case Item7 Read = Trim(Rs(Item7)Case Item8 Read = Trim(Rs(Item8)Case Item9 Read = Trim(Rs(Item9)Case ItemHit Read = Trim(Rs(ItemHit)Case ItemAddDate Read = Trim(Rs(ItemAddDate)Case ItemEditDate Read = Trim(Rs(ItemEditDate)Case Else Read = Trim(Rs(ItemNote) End SelectEnd IfRs.Close:Set Rs=NothingEnd Function=列表调用=Function eimsList(eims,SortID,Num,TrimStr,fImg,fImgWidth)Dim Sql,fUrl,TempStr : TempStr = If SortID Then fSortID = and SortID = &SortIDSet Rs=server.CreateObject(adodb.recordset)Sql=Select top &Num& ItemID,Item1,ItemHit,SortID,ItemAddDate From eims_&eims& where &ItemRecT& &fSortID& order by ItemID descRs.Open Sql,Conn,1,1While Not Rs.Eof-fYear = Year(Trim(Rs(ItemAddDate)fMonth = Month(Trim(Rs(ItemAddDate) : If fMonth 10 Then fMonth = 0&fMonthfDay = Day(Trim(Rs(ItemAddDate) : If fDay 10 Then fDay = 0&fDayfItemAddDate = fYear&-&fMonth&-&fDay-fUrl = eims&.asp?SortID=&Int(Rs(SortID)&ItemID=&Int(Rs(ItemID)TempStr = TempStr& & VBCrlfTempStr = TempStr&fImg& & VBCrlfTempStr = TempStr&Left(Trim(Rs(Item1),Int(TrimStr)& & VBCrlfTempStr = TempStr&fItemAddDate& & VBCrlfTempStr = TempStr& & VBCrlfRs.MoveNextWendRs.Close:Set Rs=NothingeimsList = &TempStr&End Function=点击排行=Function HotList(eims,SortID,Num,TrimStr,fImg,fImgWidth)Dim Sql,fUrl,TempStr : TempStr = If SortID Then fSortID = and SortID = &SortIDSet Rs=server.CreateObject(adodb.recordset)Sql=Select top &HotNum& ItemID,Item1,ItemHit,SortID,ItemAddDate From eims_&eims& where &ItemRecT& &fSortID& order by ItemHit descRs.Open Sql,Conn,1,1While Not Rs.Eof-fYear = Year(Trim(Rs(ItemAddDate)fMonth = Month(Trim(Rs(ItemAddDate) : If fMonth 10 Then fMonth = 0&fMonthfDay = Day(Trim(Rs(ItemAddDate) : If fDay 10 Then fDay = 0&fDayfItemAddDate = fYear&-&fMonth&-&fDay-fUrl = eims&.asp?SortID=&Int(Rs(SortID)&ItemID=&Int(Rs(ItemID)TempStr = TempStr& & VBCrlfTempStr = TempStr&fImg& & VBCrlfTempStr = TempStr&Left(Trim(Rs(Item1),Int(TrimStr)& & VBCrlfTempStr = TempStr&fItemAddDate& & VBCrlfTempStr = TempStr& & VBCrlfRs.MoveNextWendRs.Close:Set Rs=NothingHotList = &TempStr&End Function=推荐列表=Function ComdList(eims,SortID,Num,TrimStr,fImg,fImgWidth)Dim Sql,fUrl,TempStr : TempStr = If SortID Then fSortID = and SortID = &SortIDSet Rs=server.CreateObject(adodb.recordset)Sql=Select top &CommandNum& ItemID,Item1,ItemHit,SortID,ItemAddDate,Item9 From eims_&eims& where &ItemRecT& &fSortID& and Item9 = 推荐 order by ItemID descRs.Open Sql,Conn,1,1While Not Rs.Eof-fYear = Year(Trim(Rs(ItemAddDate)fMonth = Month(Trim(Rs(ItemAddDate) : If fMonth 10 Then fMonth = 0&fMonthfDay = Day(Trim(Rs(ItemAddDate) : If fDay 10 Then fDay = 0&fDayfItemAddDate = fYear&-&fMonth&-&fDay-fUrl = eims&.asp?SortID=&Int(Rs(SortID)&ItemID=&Int(Rs(ItemID)TempStr = TempStr& & VBCrlfTempStr = TempStr&fImg& & VBCrlfTempStr = TempStr&Left(Trim(Rs(Item1),Int(TrimStr)& & VBCrlfTempStr = TempStr&fItemAddDate& & VBCrlfTempStr = TempStr& & VBCrlfRs.MoveNextWendRs.Close:Set Rs=NothingComdList = &TempStr&End Function=产品调用=Function eimsListProduct(eims,SortID,Num,TrimStr,ImgWidth,ImgHeight)Dim Sql,fUrl,TempStr : TempStr = -TempStr = & VBCrlf-If SortID Then fSortID = and SortID = &SortIDSet Rs=server.CreateObject(adodb.recordset)Sql=Select top &Num& ItemID,Item1,Item3,ItemHit,SortID,ItemAddDate From eims_&eims& where &ItemRecT& &fSortID& order by ItemID descRs.Open Sql,Conn,1,1Dim i : i = 1While Not Rs.EoffUrl = eims&.asp?SortID=&Int(Rs(SortID)&ItemID=&Int(Rs(ItemID)ImgPath = Replace(Trim(Rs(Item3),./,)TempStr = TempStr& & VBCrlfTempStr = TempStr& & VBCrlfIf i Mod 20 = 0 Then TempStr = TempStr&i = i + 1Rs.MoveNextWendRs.Close:Set Rs=NothingeimsListProduct = TempStr&End Function=分类导航=Function ListSort(eims,SortID)fSortID = Int(SortID) : TempStr = Set RsLs=server.CreateObject(adodb.recordset)Sql=Select * From eims_&eims&Sort where ParentID=&fSortID& order by SortSeqRsLs.Open Sql,Conn,1,1-For n = 1 to i*2TempStr = TempStr Next-While Not RsLs.EofIf fSortID = 0 ThenResponse.Write &Trim(RsLs(SortName)& & VBCrlfElseResponse.Write &TempStr&Trim(RsLs(SortName)& & VBCrlfEnd Ifi = i + 1ListSort eims,Int(RsLs(SortID)i = i - 1RsLs.MoveNextWendRsLs.Close:Set RsLs=NothingEnd Function=文章上下页=Function Pre()Sql = select top 1 SortID,ItemID,Item1,ItemAddDate from &eimsTable& where SortID=&SortID& and &ItemRecT& and ItemID&ItemID& order by ItemIDSet Rs=Conn.Execute(Sql) If Rs.Eof ThenPre = 上一篇：没有上一篇了ElsefUrl = eims&.asp?SortID=&Int(Rs(SortID)&ItemID=&Int(Rs(ItemID)Pre = 上一篇：&Trim(Rs(Item1)&End IfRs.Close:Set Rs=NothingEnd Function-Function Nex()Sql = select top 1 SortID,ItemID,Item1,ItemAddDate from &eimsTable& where SortID=&SortID& and &ItemRecT& and ItemID&ItemID& order by ItemID DescSet Rs=Conn.Execute(Sql) If Rs.Eof ThenNex = 下一篇：没有下一篇了ElsefUrl = eims&.asp?SortID=&Int(Rs(SortID)&ItemID=&Int(Rs(ItemID)Nex = 下一篇：&Trim(Rs(Item1)&End IfRs.Close:Set Rs=NothingEnd Function-Dim pages,pagenc,myself,datafrom,pagenmax,pagenmin,datawhere,sqlid,taxispage = Int(Request(page)=判断会员是否登录=Dim MemberID : MemberID = Int(Session(MemberID)Dim mItem1,mItem2,mItem3,mItem4,mItem5,mItem6,mItem7,mItem8,mItem9If MemberID 0 ThenSet mRs=Server.CreateObject(Adodb.RecordSet)mRs.Open Select * From eims_User where ItemID=&MemberID,Conn,1,1If Not mRs.Eof ThenmItem1 = Trim(mRs(Item1)mItem2 = Trim(mRs(Item2)mItem3 = Trim(mRs(Item3)mItem4 = Trim(mRs(Item4)mItem5 = Trim(mRs(Item5)mItem6 = Trim(mRs(Item6)mItem7 = Trim(mRs(Item7)mItem8 = Trim(mRs(Item8)mItem9 = Trim(mRs(Item9)End IfmRs.CloseSet mRs=NothingEnd If-Function Member()If Int(Session(MemberID) 0 ThenResponse.Write &VBcrlfResponse.Write 会员控制面板&VBcrlfResponse.Write &VBcrlfResponse.Write 个人资料   |   注销登录&VBcrlfResponse.Write 我的订单   |   我的留言&VBcrlfResponse.Write &VBcrlfResponse.Writ