个人博客管理系统
图4-4 网站首页
? default.asp页面代码分析
<%
Dim CurPage
If CheckStr(Request.QueryString(\ Curpage=CheckStr(Request.QueryString(\ If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1 Else
18
2010届信息管理与信息系统专业毕业设计
Curpage=1 End If
Dim webLog
Set webLog=Server.CreateObject(\
SQL=\
\If viewMode=\显示模式修改开始
SQL=\\End IF'显示模式修改结束 webLog.Open SQL,CONN,1,1
SQLQueryNums=SQLQueryNums+1
If webLog.EOF AND webLog.BOF Then Response.Write(\暂时没有日志\Else Dim
log_Author,weblog_ID,log_IsShow,log_ShowURL,log_IsTop,log_Intro,log_Weather,log_tags If viewMode=\显示模式修改：1表示倍数 webLog.PageSize=blogPerPage webLog.AbsolutePage=CurPage Log_Num=webLog.RecordCount Dim Log_Num,MultiPages,PageCount MultiPages=\
class=\ Response.Write(\cellpadding=\color=#FF0000>显示模式: | \ Response.Write(\cellpadding=\ If viewMode=\width='100%' align=center border=0 style='font-family: Verdana;font-size: 11px;color: #666666;'>
#CCCCCC;'>文章列表 排序方式: ,,,
href='\查看数\ Do Until webLog.EOF OR PageCount=blogPerPage weblog_ID=weblog(\ log_IsShow=weblog(\ log_Author=webLog(\ log_IsTop=weblog(\ log_Weather=Split(weblog(\ log_Intro=Replace(webLog(\ If viewMode=\显示模式修改开始 If log_IsShow = True OR (log_IsShow=False And (memStatus=\(memStatus=\ If log_IsTop=True Then Response.Write(\
align=\置顶]
href=\/td>\href='blogview.asp?logID=\评论
19
个人博客管理系统
'>\引用
'>\ Else Response.Write(\
href='default.asp?CateID=\color=#FF0000>\
href='blogview.asp?logID=\34))&\
href=\/td>\href='blogview.asp?logID=\评论
'>\引用'>\ End IF Else Response.Write(\align=\这是一篇隐藏日志，只有管理员才能观看隐藏****-**-** **:**隐藏\ End If Else Response.Write(\ If IsInteger(cateID)=False Then log_ShowURL=\ Else log_ShowURL=\
href=\ End If If log_IsShow = True OR (log_IsShow=False And (memStatus=\(memStatus=\ If log_IsTop=True Then Response.Write(\
onclick=\点击查看详细介绍\src=\color=\置顶]
\nbsp; [ \href=\
target=\style=\ Else Response.Write(\alt=\
\nbsp; [ \href=\
target=\ End IF if instr(log_Intro,\ if memName<>Empty then
log_Intro=replace(replace(log_Intro,\ else
log_Intro=log_ShowURL&\此日志包含会员才能看到的内容，请进入全文观看
\ end if end if Response.Write(\20
2010届信息管理与信息系统专业毕业设计
class=\og(\ Response.Write(\ '显示TAGS if ShowTag(weblog_ID,\ Response.Write (ShowTag(weblog_ID,\ end if '显示TAGS结束 Response.Write(\ If HtmlEncode(webLog(\
Response.Write(log_ShowURL&\border=\阅读全文??\ Response.Write(\作者：
href=\|
\查看：\ If (memStatus=\Then Response.Write(\src=\编辑日志\ Response.Write(\ If log_IsTop=True Then Response.Write(\ Else Response.Write(\
align=\这是一篇隐藏日志，只有管理员才能观看，请先登录\ End If End If webLog.MoveNext PageCount=PageCount+1 If viewMode=\ Else Response.Write(\ If log_IsTop=True Then Response.Write(\ Response.Write(\cellpadding=\End if Loop End If
webLog.Close
Set webLog=Nothing If viewMode=\ Response.Write(\ Response.Write(MultiPages) Else
Response.Write(MultiPages)
Response.Write(\End if %>
21
个人博客管理系统
4.2.2日志浏览
? 页面示例
文件blogview.asp为用户浏览日志信息的详细内容时所看到的页面，如图4-5所示。
图4-5 浏览日志
? blogview.asp页面代码分析