【導(dǎo)讀】doc文檔可能在WAP端瀏覽體驗(yàn)不佳。建議您優(yōu)先選擇TXT，或下載源文件到本機(jī)查。博客的全名應(yīng)該是Weblog，中文意思是“網(wǎng)絡(luò)日志”，后來縮寫為Blog，而博客就是寫B(tài)log的人。從理解上講，博客是“一種表達(dá)個(gè)人思想、網(wǎng)絡(luò)鏈接、內(nèi)容，按照時(shí)間順序排列，并且不斷更新的出版方式”。簡單的說博客是一類人，這類人。習(xí)慣于在網(wǎng)上寫日記。博客是繼Email、BBS、IM之后出現(xiàn)的第四種網(wǎng)絡(luò)交流。具體說來，博客這個(gè)概念解。短且經(jīng)常更新的帖子所構(gòu)成，這些張貼的文章一般都是按照年份和日期倒序排列。的發(fā)表，個(gè)別Blogs則是一群人基于某個(gè)特定主題或共同利益領(lǐng)域的集體創(chuàng)作。目前網(wǎng)絡(luò)上數(shù)以千計(jì)的Bloggers. 發(fā)表和張貼Blog的目的有很大的差異。司、部門和團(tuán)隊(duì)之間越來越盛行的溝通工具。思為撰寫網(wǎng)志這種行為，只是在不同的場(chǎng)合分別表示不同的意思罷了。份名單發(fā)給了CameronBarrett，這代表著博客被正式命名。丟掉了烏紗帽；2021年，圍繞新聞報(bào)道的傳統(tǒng)媒體和互聯(lián)網(wǎng)上的伊拉克戰(zhàn)爭也同時(shí)開打，

　　

【正文】 og_Author FROM blog_Content WHERE log_IDamp。logIDamp。amp。cateQueryamp。 ORDER BY log_ID DESC) SQLQueryNums=SQLQueryNums+1 If AND Then log_PrevLogStr= Else If log_PrevLog(2) = True OR (log_PrevLog(2)=False And (memStatus=SupAdmin OR (memStatus=Admin And memName=log_PrevLog(3)))) Then log_PrevLogTitle=log_PrevLog(0) Else log_PrevLogTitle=隱藏日志，無權(quán)瀏覽 End If log_PrevLogStr= End IF Set log_PrevLog=Nothing Set log_NextLog=(SELECT TOP 1 log_Title,log_ID,log_IsShow,log_Author FROM blog_Content WHERE log_IDamp。logIDamp。amp。cateQueryamp。 ORDER BY log_ID ASC) SQLQueryNums=SQLQueryNums+1 If AND Then log_NextLogStr= Else If log_NextLog(2) = True OR (log_NextLog(2)=False And (memStatus=SupAdmin OR (memStatus=Admin And memName=log_NextLog(3)))) Then log_NextLogTitle=log_NextLog(0) Else log_NextLogTitle=隱藏日志，無權(quán)瀏覽 End If log_NextLogStr=amp。log_NextLogTitleamp。 End If Set log_PrevLog=Nothing% %=log_PrevLogStr% %=log_NextLogStr% % If log_IsShow = True OR (log_IsShow=False And (memStatus=SupAdmin OR (memStatus=Admin And memName=log_Author))) Then ( amp。log_Titleamp。 [ 日 期 ： amp。DateToStr(log_PostTime,Ymd)amp。 ] [ 來 自 ：amp。HTMLEncode(log_From)amp。 ]) If (memStatus=Admin AND memName=log_Author) OR memStatus=SupAdmin Then 24 2021 屆信息管理與信息系統(tǒng)專業(yè)畢業(yè)設(shè)計(jì) ( ) End If% % (empty then (ShowTag(logID,Show)) end if 39。顯示TAGS結(jié)束 IF log_ModifyEmpty Then ( amp。log_Modifyamp。) End If ( [ 閱讀字 體大小：本站聲明：此文章來源于網(wǎng)絡(luò)，如果未屬名，可能因 為此文被轉(zhuǎn)摘多次，原作者不詳，如果您認(rèn)為侵權(quán)，請(qǐng)聯(lián)系我。我將在第一時(shí)間按要求做出處 理，并消除影響。 ) end if ( 引用通告地址 (amp。log_QuoteNumsamp。)： amp。siteURLamp。/ amp。siteURLamp。) Else ( 對(duì)不起，你沒有權(quán)限查看此日志，請(qǐng)點(diǎn)擊返回首頁 ) End If % 反 向 鏈 接 列 表 % If log_IsShow=True OR (log_IsShow=False And (memStatus=SupAdmin OR (memStatus=Admin And memName=log_Author))) Then Dim CurPage If CheckStr((Page))Empty Then Curpage=CheckStr((Page)) If IsInteger(Curpage)=False OR Curpage0 Then Curpage=1 Else Curpage=1 End If Dim blog_Comment Set blog_Comment=() SQL=SELECT m_ID,m_Content,m_Author,m_PostTime,m_DisSM,m_DisUBB,m_D isIMG,m_AutoURL,m_PostIP,m_AutoKEY FROM blog_Comment WHERE 25 徐 豪 ：個(gè) 人 博 客 管 理 系統(tǒng) blog_ID=amp。logIDamp。 UNION ALL SELECT 0,tb_Intro,tb_Title,tb_PostTime,tb_URL,tb_Site,tb_ID,0,39。39。,0 FROM blog_Trackback WHERE blog_ID=amp。logIDamp。 ORDER BY m_PostTime DESC SQL,Conn,1,1 SQLQueryNums=SQLQueryNums+1 If And Then ( 暫 時(shí) 沒 有 評(píng) 論 ) Else Dim Comm_Nums,MultiPages,PageCount =blogPerPage =CurPage Comm_Nums= MultiPages=amp。MultiPage(Comm_Nums,blogPerPage,CurPage,Url_Add)amp。 (MultiPages) ( ) Do Until OR PageCount=blogPerPage Dim blog_CommID,blog_CommAuthor,blog_CommContent blog_CommID=blog_Comment(m_ID) blog_CommAuthor=blog_Comment(m_Author) blog_CommContent=blog_Comment(m_Content) ( ) IF blog_CommID=0 Then ( 引 用 通 告 ：amp。blog_Comment(m_DisUBB)amp。 于 amp。DateToStr(blog_Comment(m_PostTime),Ymd H:I A)amp。) Else () ( amp。 blog_CommAuthoramp。 于 amp。DateToStr(blog_Comment(m_PostTime),Ymd H:I A)amp。 發(fā)表評(píng)論： ) End IF If (memStatus=Admin AND memName=log_Author) OR memStatus=SupAdmin Then If blog_CommID=0 Then ( | IP) End If 26 2021 屆信息管理與信息系統(tǒng)專業(yè)畢業(yè)設(shè)計(jì) End If If blog_CommID=0 Then ( 標(biāo)題： amp。blog_CommAuthoramp。 鏈接： amp。blog_Comment(m_DisSM)amp。 摘要： amp。blog_CommContentamp。 ) Else ( amp。cutStr(DelQuote(Replace(HTMLEncode(blog_CommConten t), ,)),60)amp。amp。UbbCode(HTMLEncode(blog_CommContent),blog_Comment(m _DisSM),blog_Comment(m_DisUBB),blog_Comment(m_DisIMG),blog_Comment(c omm_AutoURL),blog_Comment(m_AutoKEY))amp。 ) End If PageCount=PageCount+1 Loop End If Set blog_Comment=Nothing (MultiPages) ( ) If log_DisComment=False Or (log_DisComment=True And (memStatus=SupAdmin Or (memStatus=Admin And memName=log_Author))) Then% 發(fā)表評(píng)論 不 要忘了輸入驗(yàn)證碼哦！ 作 者 ： 用戶： %If memNameEmpty Then () Else ( 密碼： 注冊(cè)？ ) End IF% 驗(yàn)證： 評(píng)論： 禁止表情 禁止 UBB 禁止圖片 識(shí)別鏈接 識(shí)別關(guān)鍵字 表 情 %Dim log_SmiliesListNums,log_SmiliesListNumI log_SmiliesListNums=Ubound(Arr_Smilies,2) TempVar= For log_SmiliesListNumI=0 To log_SmiliesListNums (TempVaramp。) TempVar= Next % / %End If End If End If% 28 2021 屆信息管理與信息系統(tǒng)專業(yè)畢業(yè)設(shè)計(jì) 新用戶注冊(cè) 頁面示例 文件 為新用戶注冊(cè)時(shí)所看到的頁面，如圖 46 所示。 圖 46 新用戶注冊(cè)界面 頁面代碼分析 用戶注冊(cè) %IF (action)=agree Then% 用戶注冊(cè) 用戶名： * 用戶名不能超過 24個(gè)字符， 12個(gè) 漢字 密碼： 29 徐豪：個(gè)人博客管理系統(tǒng) * 密碼必須是 616位 td align=rightbgcolor=FFFFFF確認(rèn)密碼： * 請(qǐng)輸入確認(rèn)密碼 電子信箱： * 請(qǐng)輸入有效的電子信箱地址 驗(yàn)證碼： * 為了防止惡意注冊(cè)，請(qǐng)輸入驗(yàn)證 碼 %ElseIF (action)=register Then Dim Reg_Title,Reg_Message IF CheckStr((UserName))=Empty OR CheckStr((Password))=Empty OR CheckStr((PasswordR))=Empty OR CheckStr((Email))=Empty Then Reg_Title=錯(cuò)誤信息 Reg_Message=請(qǐng)將信息輸入完整 CheckStr((PasswordR)) Then Reg_Title=錯(cuò)誤信息 Reg_Message=密碼與確認(rèn)密碼不符 16 Then Reg_Title=錯(cuò)誤信息 Reg_Message=密碼長度不符合 24 Then Reg_Title=錯(cuò)誤信息 Reg_Message=用戶名長度超過 24 個(gè)字符， 12個(gè)漢字 請(qǐng)返回重新輸入 30 2021 屆信息管理與信息系統(tǒng)專業(yè)畢業(yè)設(shè)計(jì) ElseIF IsValidEmail(CheckStr((Email)))=False Then Reg_Title= 錯(cuò) 誤 信 息 Reg_Message=電子信箱輸入錯(cuò)誤 請(qǐng)返 回 重 新 輸 入 ElseIf Trim(Session(LBlog_ValidateCode))Trim((validatecode)) Then Reg_Title=錯(cuò)誤信息 Reg_Message=驗(yàn)證碼輸入錯(cuò)誤！ 請(qǐng)返回 重新輸入 Else Dim memAlready Set memAlready=(SELECT mem_Name FROM blog_Member WHERE mem_Name=39。amp。CheckStr((Username))amp。39。) SQLQueryNums=SQLQueryNums+1 IF NOT( AND ) Then Reg_Title=錯(cuò)誤信息 Reg_Message=對(duì)不起，你所使用的用戶名已經(jīng)注冊(cè) %=Reg_Title% %=Reg_Message% %Else% 用戶注冊(cè)協(xié)議 網(wǎng)站測(cè)試：暫無內(nèi)容 31 徐豪：個(gè)人博客管理系統(tǒng) %End IF% 發(fā)表評(píng)論 頁面示例 為用戶發(fā)表評(píng)論時(shí)所看到的頁面，如圖 47 所示。 32 2021 屆信息管理與信息系統(tǒng)專業(yè)畢業(yè)設(shè)計(jì) 圖 47 發(fā)表評(píng)論界面 頁面代碼分析 %Dim log_Year,log_Month,log_Day,log