本帖采集于原
www.xiaoerkai.cn，应该是他收集的。本人只是重发。前面的网址现在似乎已经失效了，好像凯哥的博客空间出了问题，现在转到了
http://arsenics.blogcn.com/index.shtml
版权仍属于Xiaoerkai;
修改适应版本为2.6版，PJ2.7还没测试，其实应该也还差不多，大家
小心修改，修改前请
注意备份!
暂不转向教材区，先测试，大家有问题跟帖反映！
01.将 “查看更多…” 更改为你想要的方式
修改Class/cls_logAction.asp
查找[有两处]
程序代码
Temp2=Replace(Temp2,"<$log_readMore$>","<p><a href=""article.asp?id="&LogID&""" class=""more"">查看更多...</a></p>")
将 “查看更多…” 更改就可以了,记住有两处.
更改完之后去后台更新缓存就可以了.
PS:如果你是想用图片替代,就用
<img src=""images/more.gif"" alt="""" border=""0"" style=""margin:0px 0px 0px 0px""/>
替代 “查看更多…” 就可以了.
02.实现隐藏预览模式选项
静态
修改Class/cls_logAction.asp
查找
程序代码
<%=MultiPage(ubound(aList)+1-hiddenC,pageSize,CurPage,Url_Add,"","float:Left")%> 预览模式: <a href="<%=Url_Add%>distype=normal" accesskey="1">普通</a> | <a href="<%=Url_Add%>distype=list" accesskey="2">列表</a></div>
删除
程序代码
预览模式: <a href="<%=Url_Add%>distype=normal" accesskey="1">普通</a> | <a href="<%=Url_Add%>distype=list" accesskey="2">列表</a>
就可以了.
更改完之后去后台更新缓存就可以了.
03.实现将全部日志作者、日期栏调整以及更改
修改Template/ ArticleList.asp
查找[有四处]
程序代码
作者:<$log_Author$> 日期:<$log_PostTime$>
作者、日期随便自己怎么改,改完之后一定要到后台去更新缓存.
PS:你如果想用图片替代文字,就用以下代码替代作者、日期
<img src="images/图片名 " alt="" border="0" style="margin:0px 5px -4px 0px"/>
04.实现分类、评论、链接等调整及更改(本站式样)
修改Template/ ArticleList.asp
查找到(有两处)
程序代码
分类:<a href="default.asp?cateID=<$log_CateID$>" title=""><$Cate_Title$></a> | <a href="?id=<$LogID$>">固定链接</a> | <a href="article.asp?id=<$LogID$>#comm_top">评论: <$log_CommNums$></a> | <a href="trackback.asp?tbID=<$LogID$>" target="_blank">引用: <$log_QuoteNums$></a> | 查看次数: <$log_viewC$>
替换为
程序代码
<a href="default.asp?cateID=<$log_CateID$>" title=""><img src="images/图片名" alt="" border="0" style="margin:0px 2px -2px 0px"/><$Cate_Title$></a> | <a href="article.asp?id=<$LogID$>#comm_top"><img src="images/图片名" alt="" border="0" style="margin:0px 1px -3px 0px"/>点评它 (<$log_CommNums$>条点评)</a>
最后更新后台缓存.
05.实现编辑、删除图标的更改
修改Class/cls_logAction.asp
查找
程序代码
if stat_EditAll or (stat_Edit and memName=author) then
TempStr=TempStr&" | <a href=""blogedit.asp?id="&id&""" title=""编辑该日志"" accesskey=""E""><img src=""images/icon_edit.gif"" alt="""" border=""0"" style=""margin-bottom:-2px""/></a> "
end if
if stat_DelAll or (stat_Del and memName=author) then
TempStr=TempStr&" | <a href=""blogedit.asp?action=del&id="&id&""" onclick=""if (!window.confirm('是否要删除该日志')) return false"" title=""删除该日志"" accesskey=""K""><img src=""images/icon_del.gif"" alt="""" border=""0"" style=""margin-bottom:-2px""/></a>"
end if
替换为
程序代码
if stat_EditAll or (stat_Edit and memName=author) then
TempStr=TempStr&" | <a href=""blogedit.asp?id="&id&""" title=""编辑该日志"" accesskey=""E"">编辑日志</a> "
end if
if stat_DelAll or (stat_Del and memName=author) then
TempStr=TempStr&" | <a href=""blogedit.asp?action=del&id="&id&""" onclick=""if (!window.confirm('是否要删除该日志')) return false"" title=""删除该日志"" accesskey=""K"">删除日志</a>"
end if
保存之后到后台更新缓存.
06.实现首页标签显示项更改
修改Class/cls_logAction.asp
查找
程序代码
Temp2=Replace(Temp2,"<$log_tag$>","<p>Tags: "&getTags.filterHTML(log_View("log_tag"))&"</p>")
Else
修改” Tags:”成为自己想要的即可
若想改为图片显示请参阅01代码.
保存后记住更新缓存.
07.实现单个日志的一些相关修改(本站式样)
修改Template/ Article.asp
查找
程序代码
<img src="<$Cate_icon$>" style="margin:0px 2px -4px 0px" alt=""/> <strong><a href="default.asp?cateID=<$log_CateID$>" title="查看所有<$Cate_Title$>的日志"><$Cate_Title$></a></strong><a href="feed.asp?cateID=<$log_CateID$>" target="_blank" title="订阅所有<$Cate_Title$>的日志" accesskey="O"><img border="0" src="images/rss.png" alt="订阅所有<$Cate_Title$>的日志" style="margin-bottom:-1px"/></a>
将此段删除.
查找
程序代码
<div style="float:right;width:180px !important;width:auto"><$log_Navigation$></div>
将180px 改为200px
查找
程序代码
作者:<$log_Author$> 日期:<$log_PostTime$>
修改为
程序代码
At <$log_PostTime$> By <$log_Author$>
查找
程序代码
<img src="images/weather/hn2_<$log_weather$>.gif" style="margin:0px 2px -6px 0px" alt=""/><img src="images/weather/hn2_t_<$log_weather$>.gif" alt=""/> <img src="images/<$log_level$>.gif" style="margin:0px 2px -1px 0px" alt=""/>
将此段删除.
查找
程序代码
字体大小: <a href="javascript:SetFont('12px')" accesskey="1">小</a> <a href="javascript:SetFont('14px')" accesskey="2">中</a> <a href="javascript:SetFont('16px')" accesskey="3">大</a>
替换为
程序代码
<$EditAndDel$> Font size: <a href="javascript:SetFont('12px')" accesskey="1">S</a> <a href="javascript:SetFont('14px')" accesskey="2">M</a> <a href="javascript:SetFont('16px')" accesskey="3">L</a>
查找
程序代码
<$EditAndDel$>
将其删除
查找
程序代码
评论: <$log_CommNums$> | <a href="trackback.asp?tbID=<$LogID$>&action=view" target="_blank">引用: <$log_QuoteNums$></a> | 查看次数: <$log_ViewNums$>
替换为
程序代码
<img src="images/pl.gif" alt="" border="0" style="margin:0px 1px -3px 0px"/>总计<$log_CommNums$>条点评
保存,更新后台缓存.
PS：如果要改此处的编辑删除按钮需修改Class/cls_article.asp
查找
程序代码
<img src=""images/icon_edit.gif"" alt="""" border=""0"" style=""margin-bottom:-2px""/>
替换为你想要的
查找
程序代码
<img src=""images/icon_del.gif"" alt="""" border=""0"" style=""margin-bottom:-2px""/>
替换为你想要的
保存,更新后台缓存.
08.实现标签云集的美化
在tag.asp中找到以下代码：
程序代码
<a href="default.asp?tag=<%=Server.URLEncode(log_Tag(1))%>" title="共包含 <%=log_Tag(2)%> 篇日志"><span style="font-size:<%=getTagSize(log_Tag(2))%>px"><%=log_Tag(1)%></span></a>
将其改为：
程序代码
<a href="default.asp?tag=<%=Server.URLEncode(log_Tag(1))%>" style="font-size:12px;line-height:250%" title="共包含 <%=log_Tag(2)%> 篇日志"><%=log_Tag(1)%><span style="font-size:11px;color:#ccc">[<%=log_Tag(2)%>]</span></a>
在common文件夹下找到cache.asp，在“写入标签Tag缓存”中找到
程序代码
Select tag_id,tag_name,tag_count FROM blog_tag
将其改为
程序代码
Select tag_id,tag_name,tag_count FROM blog_tag orDER BY tag_count DESC,tag_id ASC
重建数据缓存.
09.关于博客上传图片自动适应大小的修改
common/common.js
中改
程序代码
//查找网页内宽度太大的图片进行缩放以及PNG纠正
function ReImgSize(){
for (i=0;i<document.images.length;i++)
{
if (document.all){
if (document.images.width>900)
{
document.images.width="900"
document.images.outerHTML='<a href="'+document.images.src+'" target="_blank" title="在新窗口打开图片">'+document.images.outerHTML+'</a>'
}
}
else{
if (document.images.width>800) {
document.images.title="在新窗口打开图片"
document.images.style.cursor="pointer"
document.images.onclick=function(e){window.open(this.src)}
}
}
}
}
里面的数字改大
10.设置日志中图片的边框
(1)、如果你想日志中所有图片都有边框，可以在global.css中添加以下内容：
.Content-body img{padding:4px;border:1px solid #ccc;margin:2px;background-color: #fff;}
(2)、如果你只希望日志中的部分图片有边框，请用以下方法：
①、使用FCKeditor发表新日志，选择“插入\编辑图像”，在弹出的窗口中选择“高级”选项卡，在“行内样式”中添加以下内容：padding:4px;border:1px solid #ccc;margin:2px;background-color: #fff;
②、使用UBB代码实现部分图片边框：在ubbcode.asp中的：re.Pattern="(\[img\])(.[^\]]*)\[\/img\]" 之前添加如下代码：
re.Pattern="(\[img=border\])(.[^\]]*)\[\/img\]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(1))
strContent=replace(strContent,strMatch.Value,"<img src="""&tmpStr1&""" border=""0"" style=""padding:4px;border:1px solid #ccc;margin:2px;background-color: #fff;"" alt=""""/>",1,-1,1)
Next
发表时使用[img=border]就可以了。
11.垃圾引用防御补丁
文件trackback.asp
查找
程序代码
tbID = CheckStr(Request.QueryString("tbID"))
替换成
程序代码
tbID = Decrypt(CheckStr(Request.QueryString("tbID")))
查找
程序代码
If Not (IsInteger(Request.QueryString("tbID")) AND IsInteger(Request.QueryString("logID"))) Then
替换成
程序代码
If Not IsInteger(Decrypt(Request.QueryString("tbID"))) AND IsInteger(Request.QueryString("logID")) Then
查找
程序代码
Where blog_ID="&logID&" AND tb_ID="&CheckStr(Request.QueryString("tbID"))
替换成
程序代码
Where blog_ID="&logID&" AND tb_ID="&Decrypt(CheckStr(Request.QueryString("tbID")))
**有2处
查找
'==================================
' 引用通告处理页面
' 更新时间: 2006-6-1
'==================================
在下面加入
程序代码
dim keys,keys1
keys=Request.QueryString("key")
keys1=Encrypt((year(now))&(Month(now))&(day(now))&hour(now()))
if keys<>keys1 then
Response.c
Response.write "<?xml version=""1.0"" encoding=""UTF-8""?><?xml-stylesheet type=""text/xsl"" href=""tb.xsl""?>"
%>
<response><error>1</error><message>您递交的信息已过期.请检查...</message></response>
<%
else
dim strget
strget=trim(Request.QueryString("tbID"))
if len(strget) > 8 then
Response.c
Response.write "<?xml version=""1.0"" encoding=""UTF-8""?><?xml-stylesheet type=""text/xsl"" href=""tb.xsl""?>"
%>
<response><error>1</error><message>您递交的信息有错误.请检查...</message></response>
<%
else
dim tbIDs
tbIDs = Decrypt(CheckStr(Request.QueryString("tbID")))
if tbIDs < 1 then
Response.c
Response.write "<?xml version=""1.0"" encoding=""UTF-8""?><?xml-stylesheet type=""text/xsl"" href=""tb.xsl""?>"
%>
<response><error>1</error><message>您递交的信息有错误.请检查...</message></response>
<%
else
查找
程序代码
'Trackback response function
上面加入
程序代码
end if
end if
end if
********可以不换***********
查找
程序代码
Response.Redirect("search.asp?searchType=trackback")
替换成
程序代码
Response.c
Response.write "<?xml version=""1.0"" encoding=""UTF-8""?><?xml-stylesheet type=""text/xsl"" href=""tb.xsl""?>"
%>
<response><error>1</error><message>日志ID错误.请检查......</message></response>
<%
查找
程序代码
<response><error>1</error><message>日志没有被引用.</message></response>
替换成
程序代码
<response><error>1</error><message>日志（ID=<% Response.write tbID %>）没有被引用.</message></response>
********可以不换***********
===========================================================
文件class\cls_article.asp
查找
程序代码
引用通告地址:<a href="<%=(SiteURL&"trackback.asp?tbID="&id)%>" target="_blank"><%=(SiteURL&"trackback.asp?tbID="&id)%></a>
替换成
程序代码
引用通告地址:<a href="<%=(SiteURL&"trackback.asp?tbID="&Encrypt(id)&"&key="&Encrypt((year(now))&(Month(now))&(day(now))&hour(now())))%>" target="_blank"><%=(SiteURL&"trackback.asp?tbID="&Encrypt(id)&"&key="&Encrypt((year(now))&(Month(now))&(day(now))&hour(now())))%></a>
查找
程序代码
Sub ShowComm(LogID,comDesc,DisComment)
在下面添加
程序代码
dim k1
k1=Encrypt((year(now))&(Month(now))&(day(now))&hour(now()))
查找
程序代码
href=""trackback.asp?action=deltb&tbID="&commArr(6,Pcount)&"&logID="&LogID&"""
替换成
程序代码
href=""trackback.asp?action=deltb&tbID="&Encrypt(commArr(6,Pcount))&"&logID="&LogID&"&key="&k1&"""
查找
程序代码
TempArticle=Replace(TempArticle,"<"&"%ST(A)%"&">","")
替换成
程序代码
dim k1
k1=Encrypt((year(now))&(Month(now))&(day(now))&hour(now()))
TempArticle=Replace(TempArticle,"<"&"%ST(A)%"&">","")
TempArticle=Replace(TempArticle,"<"&"%ST(KEY)%"&">",k1)
===========================================================
文件class\cls_logAction.asp
查找
程序代码
Temp1=Replace(Temp1,"<$trackback$>",SiteURL&"trackback.asp?tbID="&LogID)
替换成
程序代码
Temp1=Replace(Temp1,"<$trackback$>",SiteURL&"trackback.asp?tbID="&Encrypt(LogID)&"&key="&"<"&"%ST(KEY)%"&">")
===========================================================
文件common\function.asp
在文件最后，%>的上面添加
程序代码
Function Encrypt(theNumber)
On Error Resume Next
Dim n, szEnc, t, HiN, LoN, i
n = CDbl((theNumber + 1570) ^ 2 - 7 * (theNumber + 1570) - 450)
If n < 0 Then szEnc = "R" Else szEnc = "J"
n = CStr(abs(n))
For i = 1 To Len(n) step 2
t = Mid(n, i, 2)
If Len(t) = 1 Then
szEnc = szEnc & t
Exit For
End If
HiN = (CInt(t) And 240) / 16
LoN = CInt(t) And 15
szEnc = szEnc & Chr(Asc("M") + HiN) & Chr(Asc("C") + LoN)
Next
Encrypt = szEnc
End Function
Function Decrypt(theNumber)
On Error Resume Next
Dim e, n, sign, t, HiN, LoN, NewN, i
e = theNumber
If Left(e, 1) = "R" Then sign = -1 Else sign = 1
e = Mid(e, 2)
NewN = ""
For i = 1 To Len(e) step 2
t = Mid(e, i, 2)
If Asc(t) >= Asc("0") And Asc(t) <= Asc("9") Then
NewN = NewN & t
Exit For
End If
HiN = Mid(t, 1, 1)
LoN = Mid(t, 2, 1)
HiN = (Asc(HiN) - Asc("M")) * 16
LoN = Asc(LoN) - Asc("C")
t = CStr(HiN or LoN)
If Len(t) = 1 Then t = "0" & t
NewN = NewN & t
Next
e = CDbl(NewN) * sign
Decrypt = CLng((7 + sqr(49 - 4 * (-450 - e))) / 2 - 1570)
End Function
使用静态页的需要到后台重新建立所有日记。
[
本帖最后由 tangzhehao 于 2008-8-3 08:37 编辑 ]
![[PJblog^3]技术支持论坛 - PJBLOG SUPPORT FORUM](images/phpwind/logo.gif){kind=logo}
