第一部分 网站设计说明
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"),"''","'")
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"" /> <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> [ "&DateToStr(webLog("log_PostTime"),"Y-m-d")&" | <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> [ "&DateToStr(webLog("log_PostTime"),"Y-m-d")&" | <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> | 分类:<a href=""default.asp?cateID="&webLog("log_CateID")&""">"&webLog("cate_Name")&"</a> | <a href=""blogview.asp?logID="&weblog_ID&"#comment"">评论:"&webLog("log_CommNums")&"</a> | <a href=""trackback.asp?logID="&weblog_ID&""">引用:"&webLog("log_QuoteNums")&"</a> | 查看:"&webLog("log_ViewNums")&"")
If (memStatus="Admin" AND memName=log_Author) OR memStatus="SupAdmin" Then Response.Write(" <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"" /> <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> </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> | <img src='images/download/sd_icon.GIF' width='23' height='21' align='absmiddle' border='0'><a href='download.asp?action=icon'>文档</a> | <img src='images/download/sd_wallpaper.GIF' width='23' height='21' align='absmiddle' border='0'> <a href='download.asp?action=wallpaper'>源码</a> | <img src='images/download/sd_other.GIF' align='absmiddle' border='0'> <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> </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> | <img src='images/download/sd_icon.GIF' width='23' height='21' align='absmiddle' border='0'><a href='download.asp?action=icon'>文档</a> | <img src='images/download/sd_wallpaper.GIF' width='23' height='21' align='absmiddle' border='0'> <a href='download.asp?action=wallpaper'>源码</a> | <img src='images/download/sd_other.GIF' align='absmiddle' border='0'> <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%">
<%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> | <img src="images/download/sd_icon.GIF" width="23" height="21" align="absmiddle" border="0"><a href="download.asp?action=icon">文档</a> | <img src="images/download/sd_wallpaper.GIF" width="23" height="21" align="absmiddle" border="0"> <a href="download.asp?action=wallpaper">源码</a> | <img src="images/download/sd_other.GIF" align="absmiddle" border="0"> <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%> <b><%=downl_Name%></b><span class='comment-text'>
<%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%> 次</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数据库进行设计。在制作博客网站的过程中,有很多不好做的地方,尤其是后台里数据库的链接部分。
我们学习的知识还不充分,并且经验还不足够,所以在这次课设中花费了很多时间。其中也有很多做不下去的时候,后来查阅了资料才得以解决。这让我体会到了这门课重在实践的特征。
通过这次课程设计,我真正体验了创建一个比较系统的网站的过程。以往上课学的知识在这里得到了充分的利用,更甚至于要查阅相关资料才能将该网站初步做好。在这些天里,遇到不会的则要请教同学老师,同学们的互相帮助是重要因素。课设中,不仅很好的让我对一些基本语法知识点更加熟悉之外,也锻炼了实践动手能力,为以后可能的需要奠定了一定的基础。
课程设计成果评分表
网站建设与设计期末考核网站设计说明书网站名称基于PHP与MySQL的投票系统学院班级学号姓名20xx年6月18日1基于PHP与My…
河南城建学院网页设计课程设计报告学号专业信息管理与信息系统姓名田伟涛题目军事网站指导老师张妍琰田慧吴孝利设计时间计算机科学与工程系…
成绩:《网页制作》课程期末考查设计报告题目:个人主页网站的设计与实现系部:数学与应用数学系专业:信息与计算科学姓名:学号:班级:信…
题目;Dreamweaver网页设计系(部)院:信息工程学院专业:教育技术作者姓名:完成日期:20XX年6月20日Dreamwea…
课程设计说明书题目系部专业班级组长组员设计时间网站设计吃喝玩乐网信息管理系信息管理与信息系统0901班20xx年5月1前言随着互联…
动态网站开发实训报告前言随着计算机技术和互联网技术的不断发展,人们对网络的要求越来越高。传统的静态网页技术已不能满足广大用户的需求…
开题报告填写要求1.开题报告作为毕业设计(论文)答辩委员会对学生答辩资格审查的依据材料之一。此报告应在指导教师指导下,由学生在毕业…
目录设计思想2三层结构2网站前台设计5窗体与类之间的调用关系5用户登录5用户注册6后台商品显示6后台商品管理6用户管理7商品选购商…
国家软件人才国际培训西安基地lt项目名称gt项目总结报告编写华祥约校对李丽君指导教师贺光辉项目名称项目总结报告目录一简介311目的…
网站建设与设计期末考核网站设计说明书网站名称基于PHP与MySQL的投票系统学院班级学号姓名20xx年6月18日1基于PHP与My…