网站开发设计报告


第一部分 网站设计说明

1.网站主题

本网站是一个个人博客,包括了个人的相册、日志、留言板等相关模块。

2.网站系统结构

2.1网站系统结构如下图所示:

 

2.2数据库设计

网站后台数据库采用Access2003数据库系统,所建数据库为Counter.mdb,各表名称、表说明、表结构如下:

(1)local表:用于记录本地叶面情况。

local表结构如下表所示:

(2)localsite表:用于记录本地站点。

newsclass表结构如下表所示:

(3)pagerank表:用来记录wangyefangwenquanxian

pagerank表结构如下表所示:


第二部分 源代码及页面示例

1.default.Asp

该网页是本网站的首页。主要设置了下属网页的链接,比较清楚明了得体现了整个网站的内容。

代码:

<!--#include file="commond.asp" -->

<!--#include file="include/function.asp" -->

<!--#include file="include/ubbcode.asp" -->

<!--#include file="header.asp" -->

<table width="716" border="0" align="center" cellpadding="4" cellspacing="6" background="images/blog_main.gif" class="wordbreak">

  <tr>

    <td width="160" valign="top" bgcolor="#F8F8F8" nowrap><%

       Dim log_Year,log_Month,log_Day,cateID,viewType,viewMode,sortBy,SQLFiltrate,Url_Add

       viewMode=Session("viewMode")'显示模式函数开始

    If Request.QueryString("viewMode")="list" Then

        viewMode="list"

        Session("viewMode")="list"

    ElseIf Request.QueryString("viewMode")="normal" Then

        viewMode="normal"

        Session("viewMode")=""

    End If

    viewType=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="WHERE "

       Url_Add="?"

      

       sortBy=Session("sortBy")'显示模式函数开始

        If CheckStr(Trim(Request.QueryString("sortBy")))="" Then

                sortBy="log_IsTop ASC,log_ID"

                Session("sortBy")="log_IsTop ASC,log_ID"

        ElseIf CheckStr(Trim(Request.QueryString("sortBy")))="log_PostTime" Then

                sortBy="log_PostTime"

                Session("sortBy")="log_PostTime"

        ElseIf CheckStr(Trim(Request.QueryString("sortBy")))="log_CateID" Then

                sortBy="log_CateID"

                Session("sortBy")="log_CateID"

        ElseIf CheckStr(Trim(Request.QueryString("sortBy")))="log_ViewNums" Then

                sortBy="log_ViewNums"

                Session("sortBy")="log_ViewNums"

        ElseIf CheckStr(Trim(Request.QueryString("sortBy")))="log_CommNums" Then

                sortBy="log_CommNums"

                Session("sortBy")="log_CommNums"

        End If'显示模式函数结束

      

       IF IsInteger(cateID)=True Then

              SQLFiltrate=SQLFiltrate&" log_CateID="&CateID&" AND"

              Url_Add=Url_Add&"CateID="&CateID&"&"

       End IF

       IF IsInteger(log_Year)=True Then

              SQLFiltrate=SQLFiltrate&" log_PostYear="&log_Year&" AND"

              Url_Add=Url_Add&"log_Year="&log_Year&"&"

       End IF

       IF IsInteger(log_Month)=True Then

              SQLFiltrate=SQLFiltrate&" log_PostMonth="&log_Month&" AND"

              Url_Add=Url_Add&"log_Month="&log_Month&"&"

       End IF

       IF IsInteger(log_Day)=True Then

              SQLFiltrate=SQLFiltrate&" log_PostDay="&log_Day&" AND"

              Url_Add=Url_Add&"log_Day="&log_Day&"&"

       End IF

       Call MemberCenter

       Response.Write("<br>")

       Call Calendar(log_Year,log_Month,log_Day)

       Response.Write("<br>")

       Call SiteInfo

       Response.Write("<br>")

       Call hotBlogList

       Response.Write("<br>")

       Call NewCommList

       Response.Write("<br>")

       Call blogSearch%>

       <div class="siderbar_head"><img src="images/sider_links.gif" border="0" align="absmiddle" /> 友情链接</div>

       <div class="siderbar_main"><%

              Dim blog_LinksListNums,blog_LinksListNumI,blog_LinksMainIMG,blog_LinksMainTXT

              blog_LinksListNums=Ubound(Arr_Bloglinks,2)

              For blog_LinksListNumI=0 To blog_LinksListNums

                     IF Arr_Bloglinks(2,blog_LinksListNumI)<>Empty Then

                            blog_LinksMainIMG=blog_LinksMainIMG&"<div class=""hyperlink""><a href="""&Arr_Bloglinks(1,blog_LinksListNumI)&""" target=""_blank""><img src="""&Arr_Bloglinks(2,blog_LinksListNumI)&""" border=""0"" alt="""&Arr_Bloglinks(0,blog_LinksListNumI)&"""></a></div>"

                     Else

                            blog_LinksMainTXT=blog_LinksMainTXT&"<div class=""hyperlink""><a href="""&Arr_Bloglinks(1,blog_LinksListNumI)&""" target=""_blank"">"&Arr_Bloglinks(0,blog_LinksListNumI)&"</a></div>"

                     End IF

              Next

              Response.Write(blog_LinksMainIMG)

              Response.Write(blog_LinksMainTXT)

              %><div align="right" style="margin: 4px;"><a href="bloglinks.asp">更多友情链接...</a></div></div>

              <br>

              <div class="siderbar_head"><img src="images/sider_other.gif" border="0" align="absmiddle" /> 其他信息</div>

              <div class="siderbar_main" align="center">

                <p><a href="http://www.ssjhw.cn"><img src="images/logo.gif" border="0" width="88" height="31"></a><br>

                  <br />

                  <br />

                  </a><br />

站长:少帅</p>

                <p>QQ:10111224</a><br />

            <br>

          </p>

         </div>

         <br><br />

    </td>

    <td width="100%" valign="top" bgcolor="#FFFFFF">

<%

Dim CurPage

If CheckStr(Request.QueryString("Page"))<>Empty Then

       Curpage=CheckStr(Request.QueryString("Page"))

       If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1

Else

       Curpage=1

End If

Dim webLog

Set webLog=Server.CreateObject("Adodb.Recordset")

SQL="SELECT L.*,C.cate_Name FROM blog_Content AS L,blog_Category AS C "&SQLFiltrate&" C.cate_ID=L.log_CateID ORDER BY log_IsTop ASC,log_ID DESC"

If viewMode="list" Then'显示模式修改开始

SQL="SELECT L.*,C.cate_Name FROM blog_Content AS L,blog_Category AS C "&SQLFiltrate&" C.cate_ID=L.log_CateID ORDER BY log_IsTop ASC,"&sortBy&" DESC"

End IF'显示模式修改结束

webLog.Open SQL,CONN,1,1

SQLQueryNums=SQLQueryNums+1

If webLog.EOF AND webLog.BOF Then

       Response.Write("<div class=""message"">暂时没有日志</div>")

Else

       Dim log_Author,weblog_ID,log_IsShow,log_ShowURL,log_IsTop,log_Intro,log_Weather,log_tags

       If viewMode="list" Then blogPerPage=blogPerPage*6'显示模式修改:1表示倍数

       webLog.PageSize=blogPerPage

       webLog.AbsolutePage=CurPage

       Log_Num=webLog.RecordCount

       Dim Log_Num,MultiPages,PageCount

       MultiPages="<span class=""smalltxt"">"&MultiPage(Log_Num,blogPerPage,CurPage,Url_Add)&"</span>"

       Response.Write("<table width=""100%"" height=""5"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr><td>"&MultiPages&"</td><td align=right><font color=#FF0000>显示模式: </font><a href='"&URL_Add&"viewMode=normal'>正常</a> | <a href='"&URL_Add&"viewMode=list'>文章列表</a></td></tr></table>")

       Response.Write("<table width=""100%"" height=""9"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr><td></td></tr></table>")

       If viewMode="list" Then Response.Write("<TABLE cellSpacing=1 cellPadding=6 width='100%' align=center border=0 style='font-family: Verdana;font-size: 11px;color: #666666;'><tr><td colspan='4' align=center><div style='border-bottom: 1px dashed #CCCCCC;'><B>文章列表</B>                  排序方式: <a href='"&URL_Add&"sortBy=log_PostTime'> 发表时间 </a>,<a href='"&URL_Add&"sortBy=log_CommNums'> 评论数 </a>,<a href='"&URL_Add&"sortBy=log_CateID'> 分类 </a>,<a href='"&URL_Add&"sortBy=log_ViewNums'> 查看数</a></div></td></tr>")

       Do Until webLog.EOF OR PageCount=blogPerPage

              weblog_ID=weblog("log_ID")

              log_IsShow=weblog("log_IsShow")

              log_Author=webLog("log_Author")

              log_IsTop=weblog("log_IsTop")

              log_Weather=Split(weblog("log_Weather"),"|")

              log_Intro=Replace(webLog("log_Intro"),"&#39;&#39;","&#39;")

              If viewMode="list" Then'显示模式修改开始

                If log_IsShow = True OR (log_IsShow=False And (memStatus="SupAdmin" OR (memStatus="Admin" And memName=log_Author))) Then

                     If log_IsTop=True Then

                     Response.Write("<tr><td><img src=""images/blogtop.gif"" border=""0"" align=""absmiddle"" /><font color=""#FF0000""><strong>[置顶]</strong></font></span>  <A href='blogview.asp?logID="&webLog("log_ID")&"'>"&HTMLEncode(cutStr(webLog("log_Title"),34))&"</a></td><td><a href=""member.asp?action=view&memName="&log_Author&"""><B>"&log_Author&"</B></a></td><td>"&DateToStr(webLog("log_PostTime"),"Y-m-d H:I")&"</td><td><a href='blogview.asp?logID="&webLog("log_ID")&"#comment' title='评论'>"&webLog("log_CommNums")&"</a>|<a href=""trackback.asp?logID="&weblog_ID&""" title='引用'>"&webLog("log_QuoteNums")&"</a>|"&webLog("log_ViewNums")&"</strong></td></tr>")

                     Else

                     Response.Write("<tr><td>[<A href='default.asp?CateID="&webLog("log_CateID")&"'><font color=#FF0000>"&webLog("cate_Name")&"</font></a>] - <A href='blogview.asp?logID="&webLog("log_ID")&"'>"&HTMLEncode(cutStr(webLog("log_Title"),34))&"</a></td><td><a href=""member.asp?action=view&memName="&log_Author&"""><B>"&log_Author&"</B></a></td><td>"&DateToStr(webLog("log_PostTime"),"Y-m-d H:I")&"</td><td><a href='blogview.asp?logID="&webLog("log_ID")&"#comment' title='评论'>"&webLog("log_CommNums")&"</a>|<a href=""trackback.asp?logID="&weblog_ID&""" title='引用'>"&webLog("log_QuoteNums")&"</a>|"&webLog("log_ViewNums")&"</td></tr>")

                End IF

                Else

                     Response.Write("<tr><td><img src=""images/blog_ishidden.gif"" border=""0"" align=""absmiddle"" />&nbsp;&nbsp;<strong>这是一篇隐藏日志,只有管理员才能观看</strong></td><td><B>隐藏</B></a></td><td>****-**-** **:**</td><td>隐藏</td></tr>")

                End If

              Else

                     Response.Write("<div class=""content_head"">")

              If IsInteger(cateID)=False Then

                     log_ShowURL="<a href=""blogview.asp?logID="&weblog_ID&""">"

              Else

                     log_ShowURL="<a href=""blogview.asp?logID="&weblog_ID&"&cateID="&cateID&""">"

              End If

              If log_IsShow = True OR (log_IsShow=False And (memStatus="SupAdmin" OR (memStatus="Admin" And memName=log_Author))) Then

                     If log_IsTop=True Then

                            Response.Write("<span style=""cursor:hand;"" onclick=""showIntro('log_"&weblog_ID&"');"" title=""点击查看详细介绍""><img src=""images/blogtop.gif"" border=""0"" align=""absmiddle"" /><font color=""#FF0000""><strong>[置顶]</strong></font></span>  "&log_ShowURL&"<strong>"&HTMLEncode(cutStr(webLog("log_Title"),39))&"</strong></a>&nbsp;&nbsp;&nbsp;[ "&DateToStr(webLog("log_PostTime"),"Y-m-d")&" &nbsp;|&nbsp; <a href="""&HTMLEncode(webLog("log_FromURL"))&""" target=""_blank"">"&HTMLEncode(webLog("log_From"))&"</a> ]</div><div style=""display:none;"" id=""log_"&weblog_ID&""">")

                     Else

                            Response.Write("<img src=""images/weather/"&log_Weather(0)&".gif"" alt="""&log_Weather(1)&""" align=""absmiddle""> "&log_ShowURL&"<strong>"&HTMLEncode(cutStr(webLog("log_Title"),39))&"</strong></a>&nbsp;&nbsp;&nbsp;[ "&DateToStr(webLog("log_PostTime"),"Y-m-d")&" &nbsp;|&nbsp; <a href="""&webLog("log_FromURL")&""" target=""_blank"">"&webLog("log_From")&"</a> ]</div>")

                     End IF

                     if instr(log_Intro,"[mem]")>instr(log_Intro,"[/mem]") then

    if memName<>Empty then

    log_Intro=replace(replace(log_Intro,"[mem]",""),"[/mem]","")

    else           

    log_Intro=log_ShowURL&"<BR><p align=center>此日志包含会员才能看到的内容,请进入全文观看</a></p>"

    end if

    end if

                     Response.Write("<div class=""content_main"">"&Ubbcode(log_Intro,weblog("log_DisSM"),weblog("log_DisUBB"),weblog("log_DisIMG"),weblog("log_AutoURL"),weblog("log_AutoKEY")))

                     Response.Write("<br>")

                     '显示TAGS

                             if ShowTag(weblog_ID,"Show")<>empty then

                                Response.Write (ShowTag(weblog_ID,"Show"))

                             end if

                            '显示TAGS结束

                            Response.Write("<br><br>")

                     If HtmlEncode(webLog("log_Content"))<>log_Intro Then Response.Write(log_ShowURL&"<img src=""images/icon_readmore.gif"" align=""absmiddle"" border=""0""> 阅读全文……</a>")

                     Response.Write("<div align=""right"" class=""smalltxt"" height=""32px"">作者:<a href=""member.asp?action=view&memName="&Server.URLEncode(log_Author)&""">"&log_Author&"</a>&nbsp;|&nbsp;分类:<a href=""default.asp?cateID="&webLog("log_CateID")&""">"&webLog("cate_Name")&"</a>&nbsp;|&nbsp;<a href=""blogview.asp?logID="&weblog_ID&"#comment"">评论:"&webLog("log_CommNums")&"</a>&nbsp;|&nbsp;<a href=""trackback.asp?logID="&weblog_ID&""">引用:"&webLog("log_QuoteNums")&"</a>&nbsp;|&nbsp;查看:"&webLog("log_ViewNums")&"")

                     If (memStatus="Admin" AND memName=log_Author) OR memStatus="SupAdmin" Then Response.Write("&nbsp;<a href=""blogedit.asp?logID="&weblog_ID&"""><img src=""images/icon_edit.gIf"" border=""0"" align=""absmiddle"" alt=""编辑日志""></a>")

                     Response.Write("</div></div>")

                     If log_IsTop=True Then Response.Write("</div>")

              Else

                     Response.Write("<img src=""images/blog_ishidden.gif"" border=""0"" align=""absmiddle"" />&nbsp;&nbsp;<strong>这是一篇隐藏日志,只有管理员才能观看,请先登录</strong></div>")

              End If

              End If

       webLog.MoveNext

              PageCount=PageCount+1

If viewMode="list" Then

Else

              Response.Write("</div></div>")

              If log_IsTop=True Then Response.Write("</div>")

              Response.Write("<table width=""100%"" height=""9"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr><td></td></tr></table>")

End if

       Loop

End If

webLog.Close

Set webLog=Nothing

If viewMode="list" Then

       Response.Write("</table></div>")

        Response.Write(MultiPages)

Else

        Response.Write(MultiPages)

        Response.Write("</td></tr></table>")

End if

%></td>

  </tr>

</table>

<!--#include file="footer.asp" -->

2.download.Asp

该网页是网站首页下的资源板块。网页显示了各种资源,有文档、源码、程序类资源。

代码:

<!--#include file="commond.asp" -->

<!--#include file="include/function.asp" -->

<!--#include file="include/ubbcode.asp" -->

<!--#include file="header.asp" -->

<SCRIPT language=JavaScript src="include/common.js"

type=text/javascript></SCRIPT>

<table width="716" border="0" align="center" cellpadding="4" cellspacing="6" background="images/blog_main.gif" class="wordbreak">

  <tr>

    <td width="160" valign="top" bgcolor="#F8F8F8" nowrap><%

    Call MemberCenter

    Response.Write("<br>")

       Call SiteInfo

    %></td>

<%Dim tb_show

set tb_show=Conn.ExeCute("SELECT tb_Show FROM blog_Toolbox where tb_Name='Download'")

if tb_show("tb_Show") = True Then%>

    <td class="mainbox">

      <%

              Dim CurPage,SQLFiltrate,Url_Add, CateText

       IF trim(Request.QueryString("Page"))<>Empty Then

              Curpage=CLng(CheckStr(Request.QueryString("Page")))

              IF Curpage<0 Then Curpage=1

       Else

              Curpage=1

       End IF

       Dim webLog

       Set webLog=Server.CreateObject("Adodb.Recordset")

if Request.QueryString("action")="icon" then

SQL="SELECT * FROM blog_Download where downl_Cate=1 ORDER BY downl_PostTime desc"

elseif Request.QueryString("action")="wallpaper" then

SQL="SELECT * FROM blog_Download where downl_Cate=2 ORDER BY downl_PostTime desc"

elseif Request.QueryString("action")="other" then

SQL="SELECT * FROM blog_Download where downl_Cate=3 ORDER BY downl_PostTime desc"

else

SQL="SELECT * FROM blog_Download ORDER BY downl_PostTime desc"

end if

       webLog.Open SQL,CONN,1,1

       IF webLog.EOF AND webLog.BOF Then

       Dim tbIcon2

    set tbIcon2=Conn.ExeCute("SELECT tb_Img FROM blog_Toolbox WHERE tb_Name='Download'")

       If tbIcon2("tb_Img")<>empty then

       Response.Write("<table width='99%' height='52' border='0' align='center' cellpadding='0' cellspacing='6'><tr><td>&nbsp; </td><td width='60%' align='right'><img src='images/download/sd_all.GIF' width='23' height='21' align='absmiddle' border='0'><a href='download.asp'>所有</a>&nbsp;&nbsp;|&nbsp;<img src='images/download/sd_icon.GIF' width='23' height='21' align='absmiddle' border='0'><a href='download.asp?action=icon'>文档</a>&nbsp;&nbsp;|&nbsp;<img src='images/download/sd_wallpaper.GIF' width='23' height='21' align='absmiddle' border='0'>&nbsp;<a href='download.asp?action=wallpaper'>源码</a>&nbsp;&nbsp;|&nbsp;<img src='images/download/sd_other.GIF' align='absmiddle' border='0'>&nbsp;<a href='download.asp?action=other'>软件</a></td></tr></table><table width='99%' border='0' align='center' cellpadding='4' cellspacing='1' class='textbox'><tr><td height='58' align='center'>没有记录</td></tr></table>")

    else

              Response.Write("<table width='99%' height='52' border='0' align='center' cellpadding='0' cellspacing='6'><tr><td>&nbsp; </td><td width='60%' align='right'><img src='images/download/sd_all.GIF' width='23' height='21' align='absmiddle' border='0'><a href='download.asp'>所有</a>&nbsp;&nbsp;|&nbsp;<img src='images/download/sd_icon.GIF' width='23' height='21' align='absmiddle' border='0'><a href='download.asp?action=icon'>文档</a>&nbsp;&nbsp;|&nbsp;<img src='images/download/sd_wallpaper.GIF' width='23' height='21' align='absmiddle' border='0'>&nbsp;<a href='download.asp?action=wallpaper'>源码</a>&nbsp;&nbsp;|&nbsp;<img src='images/download/sd_other.GIF' align='absmiddle' border='0'>&nbsp;<a href='download.asp?action=other'>软件</a></td></tr></table><table width='99%' border='0' align='center' cellpadding='4' cellspacing='1' class='textbox'><tr><td height='58' align='center'>没有记录</td></tr></table>")

    end if

    set tbIcon2=nothing

       Else

              Dim weblog_ID

              webLog.PageSize=4

              webLog.AbsolutePage=CurPage

              Dim Log_Num,MultiPages,PageCount

              Log_Num=webLog.RecordCount

              MultiPages=MultiPage(Log_Num,webLog.PageSize,CurPage,"?")

              if MultiPages<>"" then MultiPages="<span class='multipage'>"&MultiPages&"</span>"

              %>

      <table width='99%' height='52' border='0' align='center' cellpadding='0' cellspacing='0'>

        <tr align="right">

          <td colspan="2"> 

       <%

       If tbIcon2("tb_Img")<>empty then

    Response.Write("<img src='"&tbIcon2("tb_Img")&"' width='23' height='21' align='absmiddle'>")

    else

       Response.Write("")

    end if

    set tbIcon2=nothing

    %>

          </td>

        </tr>

        <tr>

          <td width="40%"> &nbsp;&nbsp;

            <%If CateText<>"" Then Response.write("<b>"&CateText&"</b> :: ")%> <%=MultiPages%></td>

          <td width="60%" align="right"><img src="images/download/sd_all.GIF" width="23" height="21" align="absmiddle" border="0"><a href="download.asp">所有</a>&nbsp;&nbsp;|&nbsp;<img src="images/download/sd_icon.GIF" width="23" height="21" align="absmiddle" border="0"><a href="download.asp?action=icon">文档</a>&nbsp;&nbsp;|&nbsp;<img src="images/download/sd_wallpaper.GIF" width="23" height="21" align="absmiddle" border="0">&nbsp;<a href="download.asp?action=wallpaper">源码</a>&nbsp;&nbsp;|&nbsp;<img src="images/download/sd_other.GIF" align="absmiddle" border="0">&nbsp;<a href="download.asp?action=other">软件</a></td>

        </tr>

      </table>

               <%

              Do Until webLog.EOF OR PageCount=webLog.PageSize

                     weblog_ID=weblog("downl_ID")

                            %>

                            <%Dim downl_ID,downl_Cate,downl_Name,downl_Author,downl_From,downl_FromURL,downl_ImgPath,downl_PostTime,downl_Comment,downl_Dcomm1,downl_Dcomm1URL,downl_Dcomm2,downl_Dcomm2URL,downl_Dcomm3,downl_Dcomm3URL,downl_Dcomm4,downl_Dcomm4URL,downl_Nums

              downl_ID=weblog("downl_ID")

              downl_Cate=weblog("downl_Cate")

              downl_Name=weblog("downl_Name")

              downl_Author=weblog("downl_Author")

              downl_From=weblog("downl_From")

              downl_FromURL=weblog("downl_FromURL")

              downl_ImgPath=weblog("downl_ImgPath")

              downl_PostTime=DateToStr(weblog("downl_PostTime"),"YYYY-MM-DD hh:mm:ss","")

              downl_Comment=weblog("downl_Comment")

              downl_Dcomm1=weblog("downl_Dcomm1")

              downl_Dcomm1URL=weblog("downl_Dcomm1URL")

              downl_Dcomm2=weblog("downl_Dcomm2")

              downl_Dcomm2URL=weblog("downl_Dcomm2URL")

              downl_Dcomm3=weblog("downl_Dcomm3")

              downl_Dcomm3URL=weblog("downl_Dcomm3URL")

              downl_Dcomm4=weblog("downl_Dcomm4")

              downl_Dcomm4URL=weblog("downl_Dcomm4URL")

              downl_Nums=weblog("downl_Nums")       

              %>

         <table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" class="textbox-2">

        <tr>

          <td colspan="2"  background="images/log_title_bg.jpg" class="textbox-title"><%if downl_Cate=1 then Response.Write("<img src='images/download/d_icon.GIF' width='23' height='21' align='absmiddle'>") Else IF downl_Cate=2 then Response.Write("<img src='images/download/d_wallpaper.GIF' width='23' height='21' align='absmiddle'>")  Else iF downl_Cate=3 then Response.Write("<img src='images/download/d_other.GIF' width='23' height='21' align='absmiddle'>") End if%> &nbsp;<b><%=downl_Name%></b><span class='comment-text'> &nbsp;&nbsp; 

            <%if memStatus=1 then Response.Write("<a href='downledit.asp?downlID="&weblog("downl_ID")&"' title=""编辑此下载"" target=""_self""><img src='images/icon_edit_02.gif' border='0' align='absmiddle'></a>") else Response.Write("") end if%>

            </span></td>

        </tr>

        <tr>

          <td width="15%" rowspan="2" align="center" valign="top" class="textbox-content">

            <% IF weblog("downl_ImgPath")<>Empty Then Response.Write("<img src='"&weblog("downl_ImgPath")&"' width='100' height='100' vspace='4'>") else Response.Write ("<img src='images/nonpreview.gif' width='100' height='100' vspace='4'>") end if %></td>

        </tr>

        <tr>

          <td height="32" align="right" valign="top" class="textbox-content">

            <table width="100%" height="100%" border="0" cellspacing="2" cellpadding="0">

              <tr>

                <td width="10%">程序发布:</td>

                <td width="18%"><%=downl_Author%></td>

                <td width="25%" align="right" valign="middle"><font color="#999999"><%=downl_Dcomm1%></font></td>

                <td width="1%" align="right" valign="middle"><a href="down.asp?downID=<%=weblog("downl_ID")%>&action=Url_1" target="_blank"><img src="images/downloadbm.gif" align="absmiddle" border="0"></a></td>

              </tr>

              <tr>

                <td>发布日期:</td>

                <td><%=DateToStr(webLog("downl_PostTime"),"Y-m-d H:I")%></td>

                <td align="right"><%if downl_Dcomm2<>empty then Response.Write("<font color='#999999'>"&weblog("downl_Dcomm2")&"</font>") else Response.Write("<font color='#999999'>无</font>") end if%></td>

                <td align="right"><%if downl_Dcomm2URL<>empty then Response.Write("<a href='down.asp?downID="&weblog("downl_ID")&"&action=Url_2' target='_blank'><img src='images/downloadbm.gif' align='absmiddle' border='0'></a>") else Response.Write("<img src='images/nondownload.gif' align='absmiddle' border='0'>") end if%></td>

              </tr>

              <tr>

                <td>程序大小:</td>

                <td><%=weblog("downl_size")%></td>

                <td align="right"><%if downl_Dcomm3<>empty then Response.Write("<font color='#999999'>"&weblog("downl_Dcomm3")&"</font>") else Response.Write("<font color='#999999'>无</font>") end if%></td>

                <td align="right"><%if downl_Dcomm3URL<>empty then Response.Write("<a href='down.asp?downID="&weblog("downl_ID")&"&action=Url_3' target='_blank'><img src='images/downloadbm.gif' align='absmiddle' border='0'></a>") else Response.Write("<img src='images/nondownload.gif' align='absmiddle' border='0'>") end if%></td>

              </tr>

              <tr>

                <td>下载次数:</td>

                <td><%=downl_Nums%>&nbsp;次</td>

                <td align="right"><%if downl_Dcomm4<>empty then Response.Write("<font color='#999999'>"&weblog("downl_Dcomm4")&"</font>") else Response.Write("<font color='#999999'>无</font>") end if%></td>

                <td align="right"><%if downl_Dcomm4URL<>empty then Response.Write("<a href='down.asp?downID="&weblog("downl_ID")&"&action=Url_4' target='_blank'><img src='images/downloadbm.gif' align='absmiddle' border='0'></a>") else Response.Write("<img src='images/nondownload.gif' align='absmiddle' border='0'>") end if%></td>

              </tr>

              <tr>

                <td>程序介绍:</td>

                <td colspan="2" align="left"><SPAN style="CURSOR: hand" onClick="showIntro('<%=weblog("downl_ID")%>');">点击查看详细介绍</SPAN></td>

                <td></td>

              </tr>

            </table></td>

        </tr>

      <td colspan="4" id=<%=weblog("downl_ID")%> style="DISPLAY: none"><%=HtmlEncode(webLog("downl_Comment"))%></td>

        </tr>

      </table>

      <br>

          <%

                     webLog.MoveNext

                     PageCount=PageCount+1

              Loop

                                          End If

       webLog.Close

       Set webLog=Nothing%>

         <table width='99%' height='5' border='0' align='center' cellpadding='0' cellspacing='6'>

      <tr>

      <td><%=MultiPages%></td>

      </tr>

      </table>

</table>

</td>

  </tr>

</table>

<%else%>

    <td valign="top"><br><br><table border="0"  cellpadding="4" cellspacing="1" class="textbox"><tr>

      <td align="center"><br>

        对不起,此功能被关闭。<br>

        <br></td></tr></table></td>

       </tr>

</table>

<%set tb_show=nothing

end if%><!--#include file="footer.asp" -->

3.Tags.Asp

该网页是提供搜索功能的

代码:

<!--#include file="commond.asp" -->

<!--#include file="include/function.asp" -->

<!--#include file="include/library.asp" -->

<!--#include file="header.asp" -->

<table width="716" border="0" align="center" cellpadding="4" cellspacing="6" background="images/blog_main.gif" class="wordbreak">

  <tr>

    <td width="160" valign="top" bgcolor="#F7F7F4" nowrap><%

       Call MemberCenter

       Response.Write("<br>")

       Call SiteInfo

       Response.Write("<br>")

       Call NewBlogList

    Response.Write("<br>")

       Call NewCommList

       Response.Write("<br>")

       Call blogSearch%><br>

      

       </td>

    <td width="100%" valign="top" bgcolor="#FFFFFF">

      

<table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">

          <tr>

            <td colspan="2" class="msg_head">Tags 搜索</td>

          </tr>

          <tr class="msg_content" bgcolor="#FFFFFF">

            <td><form action="bloglisttag.asp" method="get" name="SearchTag">

                 <input name="tags" type="text" size="36" maxlength="36"> <input type="submit" value=" 搜索 ">

               </form></td>

          </tr>

          <tr class="msg_content" bgcolor="#FFFFFF">

            <td colspan="2"><b><font color="#FF0000">热门 Tags</font></b><BR><BR><%Call TagsList("Hot")%></td>

          </tr>

          <tr class="msg_content" bgcolor="#FFFFFF">

            <td colspan="2"><b><font color="#FF0000">Tags 列表</font></b><BR><BR><%Call TagsList("All")%></td>

          </tr>

      </table>

        

         </td>

  </tr>

</table>

<!--#include file="footer.asp" -->

           


第三部分 课程设计总结

本次课程设计综合运用了HTML、VBScript、ASP和ADO技术,并结合Access数据库进行设计。在制作博客网站的过程中,有很多不好做的地方,尤其是后台里数据库的链接部分。

我们学习的知识还不充分,并且经验还不足够,所以在这次课设中花费了很多时间。其中也有很多做不下去的时候,后来查阅了资料才得以解决。这让我体会到了这门课重在实践的特征。

通过这次课程设计,我真正体验了创建一个比较系统的网站的过程。以往上课学的知识在这里得到了充分的利用,更甚至于要查阅相关资料才能将该网站初步做好。在这些天里,遇到不会的则要请教同学老师,同学们的互相帮助是重要因素。课设中,不仅很好的让我对一些基本语法知识点更加熟悉之外,也锻炼了实践动手能力,为以后可能的需要奠定了一定的基础。

课程设计成果评分表

相关推荐