03.1.修改驗證碼,使它永遠只出現四個“0” =================================================== 在個人Blog中使用驗證碼沒什么意義,PJBlog后臺又沒有關閉驗證碼的選項,所以最好的辦法就是讓它只顯示最簡單的符號,本站把驗證碼全部改為4個“0”: 找到common\GetCode.asp,修改“Dim i, ii, iii”下面這段為:
程序代碼 div style="float:left;font-weight:bold;color:#FF0000;"> 公告:/div>div style="text-align:left;float:left;"> div id="icefable1" style="width:500;font-size:12px;line-height:18px"> !--以下為滾動內容-->
li>建議使用瀏覽器IE6.0 或Firefox1.5,分辨率1024*768瀏覽本站。 a href="bloglink.asp">li>申請友情鏈接請點這里看說明后提交!/a> a >li>如未特別說明,本站所有內容都遵循創作共用協議。 /a> a href="register.asp">li>雖然發表評論不用注冊,但是為了保護您的發言權,建議您注冊帳號。/a> a href="LoadMod.asp?plugins=GuestBookForPJBlog">li>如果您對本站有任何建議或意見,或者想發牢騷,請點這里留言!/a>
程序代碼 %else dim lArticle,EditLog,DeleteLog set lArticle=new logArticle lArticle.getLog(logid) if stat_EditAll or (stat_Edit and lArticle.logAuthor = memName) Then%> !--內容--> %IF Request.Form("action")="post" Then lArticle.categoryID = request.form("log_CateID") lArticle.logTitle = request.form("title")
程序代碼 if action>2 then Dim archive_item_Len,Month_array,TempYear,MonthCounter if ubound(blog_archive,1)=0 then archive="":exit function Month_array=Array("01月","02月","03月","04月","05月","06月","07月","08月","09月","10月","11月","12月") archive_item_Len=ubound(blog_archive,2) TempYear=blog_archive(1,0) MonthCounter=0 For i=0 to archive_item_Len IF i=0 Then archive="a class=""sideA"" style=""margin:0px 0px 0px -2px;"" href=""default.asp?log_Year="blog_archive(1,i)""" title=""查看"blog_archive(1,i)"年的日志"">"blog_archive(1,i)"/a>" IF blog_archive(1,i)=TempYear Then archive=archive"a style=""margin-right:5px;"" href=""default.asp?log_Year="blog_archive(1,i)"log_Month="blog_archive(2,i)""" title="""blog_archive(1,i)"年"blog_archive(2,i)"月有"blog_archive(0,i)"篇日志"">"Month_array(blog_archive(2,i)-1)"/a>" MonthCounter=MonthCounter+1 IF MonthCounter=6 Then MonthCounter=0:archive=archive"br/>" Else MonthCounter=1 archive=archive"a class=""sideA"" style=""margin:6px 0px 0px -2px;"" href=""default.asp?log_Year="blog_archive(1,i)""" title=""查看"blog_archive(1,i)"年的日志"">"blog_archive(1,i)"/a>" archive=archive"a style=""margin-right:5px;"" href=""default.asp?log_Year="blog_archive(1,i)"log_Month="blog_archive(2,i)""" title="""blog_archive(1,i)"年"blog_archive(2,i)"月有"blog_archive(0,i)"篇日志"">"Month_array(blog_archive(2,i)-1)"/a>" TempYear=blog_archive(1,i) End IF Next end if
程序代碼 tr>td align="right" width="85">strong>電子郵件:/strong>/td>td align="left" style="padding:3px;">%if (blog_Mem("mem_HideEmail") and (not stat_Admin)) or len(blog_Mem("mem_Email"))1 or isnull(blog_Mem("mem_Email")) then response.write "該用戶沒有或不公開電子郵件" else response.write blog_Mem("mem_Email") end if%>/td>/tr>