以下内容针对L-BLoG Single Edition v1.08的修改 .
声明一下：修改后出错可别找我，自己作好备份！第一步：
重要 - 作好文件备份。(数据库,blogedit.asp,blogpost.asp,default.asp,blogview.asp)
第二步：检查数据库中表BLOG_CONTENT中是否有log_PostYear,log_PostMonth,log_PostDay这三个字段，全为数字型。(应该都有的)
第三步：打开blogpost.asp ：
找到：
| 代 码 ： |
<strong>属性：</strong></td>
<td><input name="log_IsShow" type="radio" value="0" checked> 公开日志 <input type="radio" name="log_IsShow" value="1"> 隐藏日志 | <input name="log_IsTop" type="checkbox" id="log_IsTop" value="1"> 置顶日志 <input name="log_DisComment" type="checkbox" id="log_DisComment" value="1"> 禁止评论</td>
|
|
修改为：
| 代 码 ： |
<strong>属性：</strong></td>
<td><input name="log_IsShow" type="radio" value="0" checked> 公开日志 <input type="radio" name="log_IsShow" value="1"> 隐藏日志 | <input name="log_IsTop" type="checkbox" id="log_IsTop" value="1"> 置顶日志 <input name="log_DisComment" type="checkbox" id="log_DisComment" value="1"> 禁止评论 | 日期：<input type="text" value="<%=Year(now())%>" name="log_PostYear" maxlength="4" size="4" class="bk">年 <input type="text" value="<%=month(now())%>" name="log_PostMonth" maxlength="2" size="2" class="bk">月 <input type="text" value="<%=day(now())%>" name="log_PostDay" maxlength="2" size="2" class="bk">日</td>
|
|
找到：
| 代 码 ： |
dim Log_Title,log_Content,log_From,log_FromURL,log_CateID2,log_Intro,log_Quote,log_DisSM,log_DisUBB,log_DisIMG,log_AutoURL,log_IsShow,log_AutoKEY,log_IsTop,log_DisComment,log_Weather
|
|
在其后加上：
| 代 码 ： |
,log_PostYear,log_PostMonth,log_PostDay
|
|
找到
| 代 码 ： |
log_Weather=Request.Form("log_Weather")
|
|
在其后加上：
| 代 码 ： |
log_PostYear=Request.Form("log_PostYear")
log_PostMonth=Request.Form("log_PostMonth")
log_PostDay=Request.Form("log_PostDay")
|
|
继续找到：
| 代 码 ： |
Conn.ExeCute("INSERT INTO blog_Content(log_CateID,log_Title,log_Author,log_Intro,log_Content,log_From,log_FromURL,log_Quote,log_DisSM,log_DisUBB,log_DisIMG,log_AutoURL,log_AutoKEY,log_IsShow,log_IsTop,log_DisComment,log_Weather) VALUES ("&log_CateID2&",'"&log_Title&"','"&memName&"','"&log_Intro&"','"&log_Content&"','"&log_From&"','"&log_FromURL&"','"&log_Quote&"',"&log_DisSM&","&log_DisUBB&","&log_DisIMG&","&log_AutoURL&","&log_AutoKEY&","&log_IsShow&","&log_IsTop&","&log_DisComment&",'"&log_Weather&"')")
|
|
修改为：注意比较修改的地方
| 代 码 ： |
Conn.ExeCute("INSERT INTO blog_Content(log_CateID,log_Title,log_Author,log_Intro,log_Content,log_From,log_FromURL,log_Quote,log_DisSM,log_DisUBB,log_DisIMG,log_AutoURL,log_AutoKEY,log_IsShow,log_IsTop,log_DisComment,log_PostYear,log_PostMonth,log_PostDay,log_Weather) VALUES ("&log_CateID2&",'"&log_Title&"','"&memName&"','"&log_Intro&"','"&log_Content&"','"&log_From&"','"&log_FromURL&"','"&log_Quote&"',"&log_DisSM&","&log_DisUBB&","&log_DisIMG&","&log_AutoURL&","&log_AutoKEY&","&log_IsShow&","&log_IsTop&","&log_DisComment&","&log_PostYear&","&log_PostMonth&","&log_PostDay&",'"&log_Weather&"')")
|
|
Blogpost.asp修改完毕。
效果如下：
javascript:if(this.width>=400)this.style.width=400;" onmouseover="toolTip('+ 单击看大图 +','#800000','#ffffff')" onmouseout="toolTip();" onclick="window.open(this.src);">
------------------------------------------------------------------------------------------------------------------------------------------------------------------
第四步：打开blogedit.asp
找到：
| 代 码 ： |
<td><input type="radio" name="log_IsShow" value="0" <%IF blog_Edit("log_IsShow")=True Then Response.Write("checked")%>>
公开日志
<input type="radio" name="log_IsShow" value="1" <%IF blog_Edit("log_IsShow")=False Then Response.Write("checked")%>>
隐藏日志 |
<input name="log_IsTop" type="checkbox" id="log_IsTop" value="1" <%IF blog_Edit("log_IsTop")=True Then Response.Write("checked")%>>
置顶日志 |
<input name="log_DisComment" type="checkbox" id="log_DisComment" value="1" <%IF blog_Edit("log_DisComment")=True Then Response.Write("checked")%>>
禁止评论</td>
|
|
修改为：
| 代 码 ： |
<td><input type="radio" name="log_IsShow" value="0" <%IF blog_Edit("log_IsShow")=True Then Response.Write("checked")%>>
公开日志
<input type="radio" name="log_IsShow" value="1" <%IF blog_Edit("log_IsShow")=False Then Response.Write("checked")%>>
隐藏日志 |
<input name="log_IsTop" type="checkbox" id="log_IsTop" value="1" <%IF blog_Edit("log_IsTop")=True Then Response.Write("checked")%>>
置顶日志 |
<input name="log_DisComment" type="checkbox" id="log_DisComment" value="1" <%IF blog_Edit("log_DisComment")=True Then Response.Write("checked")%>>
禁止评论 | 日期：
<input type="text" value="<%=EditDeHTML(blog_Edit("log_PostYear"))%>" name="log_PostYear" maxlength="4" size="4" class="bk">年 <input type="text" value="<%=EditDeHTML(blog_Edit("log_PostMonth"))%>" name="log_PostMonth" maxlength="2" size="2" class="bk">月 <input type="text" value="<%=EditDeHTML(blog_Edit("log_PostDay"))%>" name="log_PostDay" maxlength="2" size="2" class="bk">日</td>
|
|
找到：
| 代 码 ： |
dim Log_Title,log_Content,log_From,log_FromURL,log_ID,log_Intro,log_DisSM,log_DisUBB,log_DisIMG,log_AutoURL,log_Modify,log_IsShow,log_AutoKEY,log_IsTop,log_DisComment,log_Weather
|
|
在其后加上：
| 代 码 ： |
,log_PostYear,log_PostMonth,log_PostDay
|
|
找到：
| 代 码 ： |
log_Weather=Request.Form("log_Weather")
|
|
在其后加上：
| 代 码 ： |
log_PostYear=Request.Form("log_PostYear")
log_PostMonth=Request.Form("log_PostMonth")
log_PostDay=Request.Form("log_PostDay")
|
|
找着：
| 代 码 ： |
Conn.ExeCute("UPDATE blog_Content Set log_Title='"&log_Title&"',log_Intro='"&log_Intro&"',log_Content='"&log_Content&"',log_From='"&log_From&"',log_FromURL='"&log_FromURL&"',log_DisSM="&log_DisSM&",log_DisUBB="&log_DisUBB&",log_DisIMG="&log_DisIMG&",log_AutoURL="&log_AutoURL&",log_AutoKEY="&log_AutoKEY&",log_Modify='"&log_Modify&"',log_IsShow="&log_IsShow&",log_DisComment="&log_DisComment&",log_Weather='"&log_Weather&"',log_IsTop="&log_IsTop&log_MoveToSQL&" WHERE log_ID="&log_ID&"")
|
|
修改为：注意看哪里变了！
| 代 码 ： |
Conn.ExeCute("UPDATE blog_Content Set log_Title='"&log_Title&"',log_Intro='"&log_Intro&"',log_Content='"&log_Content&"',log_From='"&log_From&"',log_FromURL='"&log_FromURL&"',log_DisSM="&log_DisSM&",log_DisUBB="&log_DisUBB&",log_DisIMG="&log_DisIMG&",log_AutoURL="&log_AutoURL&",log_AutoKEY="&log_AutoKEY&",log_Modify='"&log_Modify&"',log_IsShow="&log_IsShow&",log_PostYear="&log_PostYear&",log_PostMonth="&log_PostMonth&",log_PostDay="&log_PostDay&",log_DisComment="&log_DisComment&",log_Weather='"&log_Weather&"',log_IsTop="&log_IsTop&log_MoveToSQL&" WHERE log_ID="&log_ID&"")
|
|
效果如下：
javascript:if(this.width>=400)this.style.width=400;" onmouseover="toolTip('+ 单击看大图 +','#800000','#ffffff')" onmouseout="toolTip();" onclick="window.open(this.src);">
------------------------------------------------------------------------------------------------------------------------------------------------------------------
第五步： 打开blogview.asp
找到：
| 代 码 ： |
dim Log_Title,log_Content,log_From,log_FromURL,log_CateID2,log_Intro,log_Quote,log_DisSM,log_DisUBB,log_DisIMG,log_AutoURL,log_IsShow,log_AutoKEY,log_IsTop,log_DisComment,log_Weather
|
|
在其后加上：
| 代 码 ： |
,log_PostYear,log_PostMonth,log_PostDay
|
|
找到
| 代 码 ： |
log_Weather=Request.Form("log_Weather")
|
|
在其后加上：
| 代 码 ： |
log_PostYear=Request.Form("log_PostYear")
log_PostMonth=Request.Form("log_PostMonth")
log_PostDay=Request.Form("log_PostDay")
|
|
找着：
| 代 码 ： |
"&DateToStr(log_PostTime,"Y-m-d")&"
|
|
变为：
| 代 码 ： |
"&log_PostYear&"-"&log_PostMonth&"-"&log_Postday&"
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------
第六步： 打开default.asp
找到：注意是两个地方要修改。
| 代 码 ： |
"&DateToStr(log_PostTime,"Y-m-d")&"
|
|
变为：
| 代 码 ： |
"&log_PostYear&"-"&log_PostMonth&"-"&log_Postday&"
|
|
如果有列表显示的可能这里还有应该是三处需要修改。
OK，累惨了！我不知道还有哪里修改的地方没有找到，如果有请大家提出来！
如果使用了此方法的请大家留言回复一下。我也才会欣慰啊！
----------------------------------------------------------------------------
注: 我是老版本...东东这个办法我没测试... 有成功的留言
查看更多与为你的BLOG加上日期修改功能相关内容
设为首页
加入收藏
联系我们
您当前的位置：
减小字体
增大字体
