网站开发设计报告

第一部分网站设计说明1．网站主题本网站是一个个人博客，包括了个人的相册、日志、留言板等相关模块。2．网站系统结构2.1网站系统结构如下图所示：2.2数据库设计网站后台数据库采用Access2003数据库系统，所建数据库为Counter.mdb，各表名称、表说明、表结构如下：（1）local表：用于记录本地叶面情况。local表结构如下表所示：字段名称数据类型说明Id（朱剑）自动编号网页编号siteIDShuzi站点编号sitePagewenben地址pageCountShuzi网页数量pageTimeRiqi/shijian网页生成时间pagerankShuzi权限prTimeshuzi浏览次数首页Default.asp生活default.asp?cateID=1技术default.asp?cateID=2资源download.asp相册photo.asp论坛forumview.asptagstags.asp留言guestbook.asp发表留言guestbook.asp?action=postgb发表帖子forumpost.asp?action=thread其他偏偏photo.asp?cateID=2我的相册photo.asp?cateID=1（2）localsite表：用于记录本地站点。newsclass表结构如下表所示：字段名称数据类型说明Id自动编号站点编号siteDomain文本站点域名sietName文本站点名称siteCount数字站点数量siteTime日期/时间站点时间（3）pagerank表：用来记录wangyefangwenquanxianpagerank表结构如下表所示：字段名称数据类型说明Id自动编号权限编号url文本网址Pagerank数字权限类别Lasttime日期/时间访问时间第二部分源代码及页面示例1.default.Asp该网页是本网站的首页。主要设置了下属网页的链接，比较清楚明了得体现了整个网站的内容。代码：!--#includefile=commond.asp--!--#includefile=include/function.asp--!--#includefile=include/ubbcode.asp--!--#includefile=header.asp--tablewidth=716border=0align=centercellpadding=4cellspacing=6background=images/blog_main.gifclass=wordbreaktrtdwidth=160valign=topbgcolor=#F8F8F8nowrap%Dimlog_Year,log_Month,log_Day,cateID,viewType,viewMode,sortBy,SQLFiltrate,Url_AddviewMode=Session(viewMode)'显示模式函数开始IfRequest.QueryString(viewMode)=listThenviewMode=listSession(viewMode)=listElseIfRequest.QueryString(viewMode)=normalThenviewMode=normalSession(viewMode)=EndIfviewType=CheckStr(Trim(Request.QueryString(viewType)))'显示模式函数结束log_Year=CheckStr(Trim(Request.QueryString(log_Year)))log_Month=CheckStr(Trim(Request.QueryString(log_Month)))log_Day=CheckStr(Trim(Request.QueryString(log_Day)))cateID=CheckStr(Trim(Request.QueryString(cateID)))SQLFiltrate=WHEREUrl_Add=?sortBy=Session(sortBy)'显示模式函数开始IfCheckStr(Trim(Request.QueryString(sortBy)))=ThensortBy=log_IsTopASC,log_IDSession(sortBy)=log_IsTopASC,log_IDElseIfCheckStr(Trim(Request.QueryString(sortBy)))=log_PostTimeThensortBy=log_PostTimeSession(sortBy)=log_PostTimeElseIfCheckStr(Trim(Request.QueryString(sortBy)))=log_CateIDThensortBy=log_CateIDSession(sortBy)=log_CateIDElseIfCheckStr(Trim(Request.QueryString(sortBy)))=log_ViewNumsThensortBy=log_ViewNumsSession(sortBy)=log_ViewNumsElseIfCheckStr(Trim(Request.QueryString(sortBy)))=log_CommNumsThensortBy=log_CommNumsSession(sortBy)=log_CommNumsEndIf'显示模式函数结束IFIsInteger(cateID)=TrueThenSQLFiltrate=SQLFiltrate&log_CateID=&CateID&ANDUrl_Add=Url_Add&CateID=&CateID&&EndIFIFIsInteger(log_Year)=TrueThenSQLFiltrate=SQLFiltrate&log_PostYear=&log_Year&ANDUrl_Add=Url_Add&log_Year=&log_Year&&EndIFIFIsInteger(log_Month)=TrueThenSQLFiltrate=SQLFiltrate&log_PostMonth=&log_Month&ANDUrl_Add=Url_Add&log_Month=&log_Month&&EndIFIFIsInteger(log_Day)=TrueThenSQLFiltrate=SQLFiltrate&log_PostDay=&log_Day&ANDUrl_Add=Url_Add&log_Day=&log_Day&&EndIFCallMemberCenterResponse.Write(br)CallCalendar(log_Year,log_Month,log_Day)Response.Write(br)CallSiteInfoResponse.Write(br)CallhotBlogListResponse.Write(br)CallNewCommListResponse.Write(br)CallblogSearch%divclass=siderbar_headimgsrc=images/sider_links.gifborder=0align=absmiddle/友情链接/divdivclass=siderbar_main%Dimblog_LinksListNums,blog_LinksListNumI,blog_LinksMainIMG,blog_LinksMainTXTblog_LinksListNums=Ubound(Arr_Bloglinks,2)Forblog_LinksListNumI=0Toblog_LinksListNumsIFArr_Bloglinks(2,blog_LinksListNumI)EmptyThenblog_LinksMainIMG=blog_LinksMainIMG&divclass=hyperlinkahref=&Arr_Bloglinks(1,blog_LinksListNumI)&target=_blankimgsrc=&Arr_Bloglinks(2,blog_LinksListNumI)&border=0alt=&Arr_Bloglinks(0,blog_LinksListNumI)&/a/divElseblog_LinksMainTXT=blog_LinksMainTXT&divclass=hyperlinkahref=&Arr_Bloglinks(1,blog_LinksListNumI)&target=_blank&Arr_Bloglinks(0,blog_LinksListNumI)&/a/divEndIFNextResponse.Write(blog_LinksMainIMG)Response.Write(blog_LinksMainTXT)%divalign=rightstyle=margin:4px;ahref=bloglinks.asp更多友情链接.../a/div/divbrdivclass=siderbar_headimgsrc=images/sider_other.gifborder=0align=absmiddle/其他信息/divdivclass=siderbar_mainalign=centerpahref==images/logo.gifborder=0width=88height=31/abrbr/br//abr/站长:少帅/ppQQ:10111224/abr/br/p/divbrbr//tdtdwidth=100%valign=topbgcolor=#FFFFFF%DimCurPageIfCheckStr(Request.QueryString(Page))EmptyThenCurpage=CheckStr(Request.QueryString(Page))IfIsInteger(Curpage)=FalseORCurpage0ThenCurpage=1ElseCurpage=1EndIfDimwebLogSetwebLog=Server.CreateObject(Adodb.Recordset)SQL=SELECTL.*,C.cate_NameFROMblog_ContentASL,blog_CategoryASC&SQLFiltrate&C.cate_ID=L.log_CateIDORDERBYlog_IsTopASC,log_IDDESCIfviewMode=listThen'显示模式修改开始SQL=SELECTL.*,C.cate_NameFROMblog_ContentASL,blog_CategoryASC&SQLFiltrate&C.cate_ID=L.log_CateIDORDERBYlog_IsTopASC,&sortBy&DESCEndIF'显示模式修改结束webLog.OpenSQL,CONN,1,1SQLQueryNums=SQLQueryNums+1IfwebLog.EOFANDwebLog.BOFThenResponse.Write(divclass=message暂时没有日志/div)ElseDimlog_Author,weblog_ID,log_IsShow,log_ShowURL,log_IsTop,log_Intro,log_Weather,log_tagsIfviewMode=listThenblogPerPage=blogPerPage*6'显示模式修改：1表示倍数webLog