官方首页 | 无图版 | BBS首页
PJBlog3 2.8.5.157 新版发布 下载|升级(2008.8.26) 来给PJ3提提发展建议 2008版 PJHOME 珍藏/纪念版官方T恤 正式发布! PJ3内测团队主创人员身份,性格,特点吐血大曝光
PJBlog技术支持论坛使用问题总索引 PJ-Blog 3 斑竹日志 【独家】我使用过的三种空间,与客服的精彩故事 Z-Blog,Wordpress,Bo-Blog转换到PJBlog
 30 123
发新话题
打印

PJ-Blog"彩色闪动标题"修改方法

PJ-Blog"彩色闪动标题"修改方法

****** 幽魅领域 ******
             http://www.13yes.com
               copyright(c)2006   

日志访问地址:http://www.13yes.com/post/150.html
很多人问我这个修改的方法,可是我一直没太多的时间去打这个
工作找的很不如意,没工作经验谁也不要
上午又去找了,还是一样的情况
暂时先放下吧,虽然我现在已经没用PJBLOG了,也把这个修改的办法写出来吧,不少人想要的
首先,要在数据里blog_Content表里加上log_cstitle字段,数据类型为“是/否”
打开blogedit.asp文件修改日志修改文件,找到
   IF Request.Form("action")="post" Then
   lArticle.categoryID = request.form("log_CateID")
   lArticle.logTitle = request.form("title")
在这后面加上
   lArticle.logcstitle = request.form("log_cstitle")
在后面找到
         <div id="MsgHead">编辑日志</div>
         <div id="MsgBody">        
           <table width="100%" border="0" cellpadding="2" cellspacing="0">
             <tr>
               <td width="72" height="24" align="right" valign="top"><span style="font-weight: bold">标题:</span></td>
               <td align="left"><input name="title" type="text" class="inputBox" id="title" size="50" maxlength="50" value="<%=lArticle.logTitle%>"/>
            移动到 <select name="log_CateID" id="select2">
把这些修改为
         <div id="MsgHead">编辑日志</div>
         <div id="MsgBody">        
           <table width="100%" border="0" cellpadding="2" cellspacing="0">
             <tr>
               <td width="73" height="24" align="right" valign="top"><span style="font-weight: bold">标题:</span></td>
               <td align="left"><input name="title" type="text" class="inputBox" id="title" size="50" maxlength="50" value="<%=lArticle.logTitle%>"/>
            
     <input name="log_cstitle" type="checkbox" id="log_cstitle" value="1" <%if lArticle.logcstitle then response.write ("checked=""checked""")%>/>
          彩色闪动标题
            移动到
          <select name="log_CateID" id="select2">
打开blogpost.asp文件修改日志发布文件,找到
IF Request.Form("action")="post" Then
dim lArticle,postLog
set lArticle=new logArticle
lArticle.categoryID = request.form("log_CateID")
lArticle.logTitle = request.form("title")
在后面加上
lArticle.logCstitle = request.form("log_cstitle")
找到
   <div id="MsgContent" style="width:700px">
        <div id="MsgHead">在 【<%=Conn.ExeCute("SELECT cate_Name FROM blog_Category WHERE cate_ID="&Request.Form("log_CateID")&"")(0)%>】 发表日志</div>
        <div id="MsgBody">        
          <table width="100%" border="0" cellpadding="2" cellspacing="0">
            <tr>
              <td width="72" height="24" align="right" valign="top"><span style="font-weight: bold">标题:</span></td>
              <td align="left"><input name="title" type="text" class="inputBox" id="title" size="50" maxlength="50"/>
              </td>
把这些修改为
   <div id="MsgContent" style="width:700px">
        <div id="MsgHead">在 【<%=Conn.ExeCute("SELECT cate_Name FROM blog_Category WHERE cate_ID="&Request.Form("log_CateID")&"")(0)%>】 发表日志</div>
        <div id="MsgBody">        
          <table width="100%" border="0" cellpadding="2" cellspacing="0">
            <tr>
              <td width="72" height="24" align="right" valign="top"><span style="font-weight: bold">标题:</span></td>
              <td align="left"><input name="title" type="text" class="inputBox" id="title" size="50" maxlength="50"/> <input name="log_cstitle" type="checkbox" id="log_cstitle" value="1" />
                彩色闪动标题              </td>
打开article.asp文件,找到
SQL="SELECT top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_Content,log_PostTime,log_edittype,log_ubbFlags,log_CommNums,log_QuoteNums,log_weather,log_level,log_Modify,log_FromUrl,log_From,log_tag FROM blog_Content WHERE log_ID="&id&" and log_IsDraft=false"
修改为
SQL="SELECT top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_Content,log_PostTime,log_edittype,log_ubbFlags,log_CommNums,log_QuoteNums,log_weather,log_level,log_Modify,log_FromUrl,log_From,log_tag,log_cstitle FROM blog_Content WHERE log_ID="&id&" and log_IsDraft=false"
修改好之后把font.htc文件放到目录下,
打开class文件夹里的cls_article.asp文件,找到
'SQL="SELECT top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_Content,log_PostTime,log_edittype,log_ubbFlags,log_CommNums,log_QuoteNums,log_weather,log_level,log_Modify,log_FromUrl,log_From,log_tag FROM blog_Content WHERE log_ID="&id&" and log_IsDraft=false"
'row序号:          0     ,1         ,2         ,3        ,4           ,5         ,6           ,7             ,8          ,9           ,10          ,11          ,12           ,13         ,14         ,15       ,16        ,17         ,18       ,19
修改为
'SQL="SELECT top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_Content,log_PostTime,log_edittype,log_ubbFlags,log_CommNums,log_QuoteNums,log_weather,log_level,log_Modify,log_FromUrl,log_From,log_tag,log_cstitle FROM blog_Content WHERE log_ID="&id&" and log_IsDraft=false"
'row序号:          0     ,1         ,2         ,3        ,4           ,5         ,6           ,7             ,8          ,9           ,10          ,11          ,12           ,13         ,14         ,15       ,16        ,17         ,18       ,19   ,20

再找到
        <div class="Content">
        <div class="Content-top"><div class="ContentLeft"></div><div class="ContentRight"></div>
          <h1 class="ContentTitle"><strong><%=HtmlEncode(log_ViewArr(2,0))%></strong></h1>
          <h2 class="ContentAuthor">作者:<%=log_ViewArr(5,0)%> 日期:
修改为
        <div class="Content">
        <div class="Content-top"><div class="ContentLeft"></div><div class="ContentRight"></div>
        <%if log_ViewArr(20,0)=true Then%>
          <h1 class="ContentTitle"><strong><span style=behavior:url(font.htc)><%=HtmlEncode(log_ViewArr(2,0))%></span></strong></h1>
       <%Else%>
       <h1 class="ContentTitle"><strong><%=HtmlEncode(log_ViewArr(2,0))%></strong></h1>
       <%end if%>
          <h2 class="ContentAuthor">作者:<%=log_ViewArr(5,0)%> 日期:
打开cls_default.asp文件,找到
  if ViewType="list" then
    strSQL="log_ID,log_CateID,log_Author,log_Title,log_PostTime,log_IsShow,log_CommNums,log_QuoteNums,log_ViewNums,log_IsTop"
   else
    strSQL="log_ID,log_CateID,log_Author,log_Title,log_PostTime,log_IsShow,log_CommNums,log_QuoteNums,log_ViewNums,log_IsTop,log_Intro,log_Content,log_edittype,log_DisComment,log_ubbFlags,log_tag"
  end if
  
  'row序号: 0     ,1         ,2         ,3        ,4           ,5         ,6           ,7            ,8           ,9        ,10       ,11         ,12          ,13            ,14          ,15
修改为
  if ViewType="list" then
    strSQL="log_ID,log_CateID,log_Author,log_Title,log_PostTime,log_IsShow,log_CommNums,log_QuoteNums,log_ViewNums,log_IsTop,log_cstitle"
   else
    strSQL="log_ID,log_CateID,log_Author,log_Title,log_PostTime,log_IsShow,log_CommNums,log_QuoteNums,log_ViewNums,log_IsTop,log_Intro,log_Content,log_edittype,log_DisComment,log_ubbFlags,log_tag,log_cstitle"
  end if
  
  'row序号: 0     ,1         ,2         ,3        ,4           ,5         ,6           ,7            ,8           ,9        ,10       ,11         ,12          ,13            ,14          ,15
找到
  <%If CanRead Then%>
   <a class="titleA" href="article.asp?id=<%=webLogArr(0,PageCount)%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>
  <%Else%>
   <a class="titleA" href="article.asp?id=<%=webLogArr(0,PageCount)%>">[隐藏日志]</a>
改为
  <%If CanRead Then%>
  <%if webLogArr(16,PageCount)=true Then%>
   <a class="titleA" href="article.asp?id=<%=webLogArr(0,PageCount)%>"><span style=behavior:url(font.htc)><%=HtmlEncode(webLogArr(3,PageCount))%>  </span></a>
  <%Else%>
  <a class="titleA" href="article.asp?id=<%=webLogArr(0,PageCount)%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>
  <%end if
   Else%>
   <a class="titleA" href="article.asp?id=<%=webLogArr(0,PageCount)%>">[隐藏日志]</a>
然后把压缩包里面的cls_logAction.asp文件覆盖class文件夹里面的原文件,这样修改也就完成了
cls_logAction.asp文件里面的修改等有空了再写出来,暂时就写这么多吧,实在是没时间


文件下载请访问我的小站http://www.13yes.com

[ 本帖最后由 zhei87 于 2007-2-1 10:39 编辑 ]
附件: 您所在的用户组无法下载或查看附件

TOP

帮你顶

最好能截个图..
不然实在是看不到效果.


QUOTE:

TOP

作者出来了

TOP

下载

有可以下就用的,不过,用前请看里面的readme
附件: 您所在的用户组无法下载或查看附件

TOP

还是要感谢作者哦


****** 幽魅领域 ******
             http://www.13yes.com
               copyright(c)2006

TOP

修改的地方很多,希望大家不要看的头晕就好~```

TOP

这么好的东西一定要支持

TOP

感觉难度好大哦,我怕修改坏!
http://www.cqu001.com邀友情链接

TOP

花俏的东西 占用页面资源 吃速度~
敝站:http://www.haifol.com/,欢迎来踩踩!
PJ交流群(二):6448245

TOP

试下

TOP

 30 123
发新话题