刚刚做好，大家帮忙测试下，如果在其他浏览器上出错（ie6正常）麻烦大家提醒一下。
谢谢~
测试地址：
http://www.huzf.com
****************************************************************************************************
以下为整理后放出的文件及说明
改动源代码：
1、function.asp文件：找到'分页函数，将里面的代码替换为
复制内容到剪贴板
代码:
dim FirstShortCut,ShortCut
FirstShortCut=false
Function MultiPage(Numbers,Perpage,Curpage,Url_Add,aname,Style)
CurPage=Int(Curpage)
Numbers=Int(Numbers)
Dim URL
URL=Request.ServerVariables("Script_Name")&Url_Add
MultiPage=""
Dim Page,Offset,PageI
' If Int(Numbers)>Int(PerPage) Then
Page=9
Offset=4
Dim Pages,FromPage,ToPage
If Numbers Mod Cint(Perpage)=0 Then
Pages=Int(Numbers/Perpage)
Else
Pages=Int(Numbers/Perpage)+1
End If
FromPage=Curpage-Offset
ToPage=Curpage+Page-Offset-1
If Page>Pages Then
FromPage=1
ToPage=Pages
Else
If FromPage<1 Then
Topage=Curpage+1-FromPage
FromPage=1
If (ToPage-FromPage)<Page And (ToPage-FromPage)<Pages Then ToPage=Page
ElseIF Topage>Pages Then
FromPage =Curpage-Pages +ToPage
ToPage=Pages
If (ToPage-FromPage)<Page And (ToPage-FromPage)<Pages Then FromPage=Pages-Page+1
End If
End If
MultiPage="<div class=""page"" style="""&Style&"""><ul>"
'if Curpage<>1 then MultiPage=MultiPage&"<li class=""PageL""><a href="""&Url&"page=1"" class=""PageLbutton"" title=""第一页""></a></li>"
MultiPage=MultiPage&"<div class=""pageNumber"">"
if Curpage<>1 then MultiPage=MultiPage&"<li class=""PageL""><a href="""&Url&"page=1"" title=""第一页"" class=""PageLbutton""></a></li> "
if not FirstShortCut then ShortCut=" accesskey="",""" else ShortCut=""
if Curpage<>1 then MultiPage=MultiPage&"<li><a class=""pageA"" href="""&Url&"page="&CurPage-1&""" title=""上一页"" style=""text-decoration:none;"""&ShortCut&"><</a></li>"
For PageI=FromPage TO ToPage
If PageI<>CurPage Then
MultiPage=MultiPage&"<li><a class=""pageA"" href="""&Url&"page="&PageI&aname&""">"&PageI&"</a></li>"
Else
MultiPage=MultiPage&"<li class=""nonce""><span style=""color:#99ff00;"">"&PageI&"</span></li>"
if PageI<>Pages then MultiPage=MultiPage&" "
End If
Next
if not FirstShortCut then ShortCut=" accesskey="".""" else ShortCut=""
if Curpage<>pages then MultiPage=MultiPage&"<li><a class=""pageA"" href="""&Url&"page="&CurPage+1&""" title=""下一页"" style=""text-decoration:none"""&ShortCut&">></a></li>"
if Curpage<>pages then MultiPage=MultiPage&"<li class=""PageR""><a href="""&Url&"page="&Pages&aname&""" title=""最后一页"" class=""PageRbutton""></a></li>"
MultiPage=MultiPage&"</div>"
'If Int(Pages)>Int(Page) Then
' MultiPage=MultiPage&"<li>...</li><li>[<a href="""&Url&"page="&Pages&aname&""">"&pages&"</a>]</li>"
'End If
'if Curpage<>pages then MultiPage=MultiPage&"<li class=""PageR"">[<a href="""&Url&"page="&Pages&aname&""" class=""PageRbutton"" title=""最后一页""></a>]</li>"
MultiPage=MultiPage&"</ul></div>"
' End If
FirstShortCut=true
End Function2、找到puugins.asp<争对留言本首页调用样式>，找到<%'---- ASPCode For GuestBookForPJBlog ----%>将以下代码在相应位置覆盖
复制内容到剪贴板
代码:
<%'---- ASPCode For CJFForPJBlog ----%>
<%'---- ASPCode For GuestBookForPJBlog ----%>
<%'---- ASPCode For GuestBookForPJBlogSubItem1 ----%>
<%
function NewMessage(ByVal action)
Dim blog_Message
IF Not IsArray(Application(CookieName&"_blog_Message")) or action=2 Then
Dim book_Messages,book_Message
Set book_Messages=Conn.Execute("SELECT top 5 * FROM blog_book order by book_PostTime Desc")
SQLQueryNums=SQLQueryNums+1
TempVar=""
Do While Not book_Messages.EOF
if book_Messages("book_HiddenReply") then
book_Message=book_Message&TempVar&book_Messages("book_ID")&"|,|"&book_Messages("book_Messager")&"|,|"&book_Messages("book_PostTime")&"|,|"&"[隱藏留言]"
else
book_Message=book_Message&TempVar&book_Messages("book_ID")&"|,|"&book_Messages("book_Messager")&"|,|"&book_Messages("book_PostTime")&"|,|"&book_Messages("book_Content")
end if
TempVar="|$|"
book_Messages.MoveNext
Loop
Set book_Messages=Nothing
blog_Message=Split(book_Message,"|$|")
Application.Lock
Application(CookieName&"_blog_Message")=blog_Message
Application.UnLock
Else
blog_Message=Application(CookieName&"_blog_Message")
End IF
if action<>2 then
dim Message_Items,Message_Item
For Each Message_Items IN blog_Message
Message_Item=Split(Message_Items,"|,|")
NewMessage=NewMessage&"<a class=""sideA"" href=""LoadMod.asp?plugins=GuestBookForPJBlog#book_"&Message_Item(0)&""" title="""&Message_Item(1)&" 於 "&Message_Item(2)&" 發表留言"&CHR(10)&CCEncode(CutStr(Message_Item(3),25))&"""><h6><span style=""font-size:9px;"">"&Message_Item(2)&"</span></h6><h5>"&CCEncode(CutStr(Message_Item(3),20))&" <span style=""font-size:9px;""><i>by</i> "&Message_Item(1)&"</span></h5></a>"
Next
end if
end function
'處理最新留言內容
Dim Message_code
if Session(CookieName&"_LastDo")="DelMessage" or Session(CookieName&"_LastDo")="AddMessage" then NewMessage(2)
Message_code=NewMessage(0)
side_html_default=replace(side_html_default,"<$NewMsg$>",Message_code)
side_html=replace(side_html,"<$NewMsg$>",Message_code)
%>3、找到cache.asp文件<改变首页调用评论样式>，找到“读取最新评论缓存”将下面的代码替换为（注意代码头尾）
首先将“显示最新评论预览数量”的值改为5。
复制内容到剪贴板
代码:
if action<>2 then
dim Comment_Item_Len
if ubound(blog_Comment,1)=0 then NewComment="":exit function
Comment_Item_Len=ubound(blog_Comment,2)
For i=0 to Comment_Item_Len
NewComment=NewComment&"<a class=""sideA"" href=""default.asp?id="&blog_Comment(1,i)&"#comm_"&blog_Comment(0,i)&""" title="""&blog_Comment(2,i)&" 于 "&blog_Comment(4,i)&" 发表评论"&CHR(10)&CCEncode(CutStr(DelQuote(blog_Comment(3,i)),100))&"""><h6><span style=""font-size:9px;"">"&blog_Comment(4,i)&"</span></h6><h5>"&CCEncode(CutStr(DelQuote(blog_Comment(3,i)),18))&" <span style=""font-size:9px;""><i>by</i> "&blog_Comment(2,i)&"</span></h5></a>"
Next
end if4、找到cls_article.asp<改变评论框样式>，找到
复制内容到剪贴板
代码:
<form name="frm" action="blogcomm.asp" method="post" onsubmit="return CheckPost()" style="margin:0px;">将相应位置代码用以下的代码覆盖，注意头尾代码。
复制内容到剪贴板
代码:
<form name="frm" action="blogcomm.asp" method="post" onsubmit="return CheckPost()" style="margin:0px;">
<table width="94%" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top" background="../images/ubbbg.gif"><table width="517" border="0" cellpadding="0" cellspacing="0">
<tr><td align="right" width="60">昵 称:</td>
<td width="81" align="left" style="padding:3px;"><input name="username" type="text" size="12" class="userpass" maxlength="24" <%if not memName=empty then response.write ("value="""&memName&""" readonly=""readonly""")%>/></td>
<%if memName=empty then%><td align="right" width="60">密 码:</td>
<td width="81" align="left" style="padding:3px;"><input name="password" type="password" size="12" class="userpass" maxlength="24"/></td>
<%end if%>
<%if memName=empty or blog_validate=true then%>
<td align="right" width="60">验 证:</td>
<td width="175" align="left" style="padding:3px;"><input name="validate" type="text" size="12" class="userpass" maxlength="4"/>
<%=getcode()%></td></tr></table></td>
</tr> <%end if%>
<tr><td width="100%" style="padding:0px;"><%
UBB_TextArea_Height="150px;"
UBB_Tools_Items="bold,italic,underline"
UBB_Tools_Items=UBB_Tools_Items&"||image,link,mail,quote,smiley"
UBBeditor("Message")
%></td></tr>
<tr>
<td align="center" style="padding:3px;">
<input name="logID" type="hidden" value="<%=LogID%>"/>
<input name="action" type="hidden" value="post"/>
<input name="submit2" type="submit" class="userbutton" value="发表评论" accesskey="S" onclick="copyit();"/>
<input name="button" type="reset" class="userbutton" value="重 写"/></td>
</tr>
<tr>
<td align="right" >
<%if memName=empty then%>虽然发表评论不用注册，但是为了保护您的发言权，建议您<a href="register.asp">注册帐号</a>.
<%end if%>
<label for="label5"><input name="log_DisSM" type="checkbox" id="label5" value="1" />禁止表情转换</label>
<label for="label6"><input name="log_DisURL" type="checkbox" id="label6" value="1" />禁止自动转换链接</label>
<label for="label7"><input name="log_DisKey" type="checkbox" id="label7" value="1" />禁止自动转换关键字</label>
限<b><%=blog_commLength%> 字</b>
UBB代码 <b><%if (blog_commUBB=0) then response.write ("开启") else response.write ("关闭") %></b>
[img]标签 <b><%if (blog_commIMG=0) then response.write ("开启") else response.write ("关闭") %></b> </td>
</tr>
</table>
</form>由于我的博客改动源码较多，所以不提供覆盖文件了，自己手动改下吧：）
最后将下面的文件上传就可以了
说明：1、由于各人会有不同的插件或者改动了源码的其他地方，出现问题的请自己改动或在此后跟贴报错
2、对于本站首页上某些文字改成了图片（如tags），各人喜好不同，故没有放在改动，大家可以在cls_default.asp中自己将文字改为图片。
3、由于先前做皮肤的时候改动较多导致俺现在也不确定有没有将改动方法放全，如果有人用了，感觉与本站出入较大，请跟贴说明，我将尽快给出……
4、谢谢大家……嘿嘿，吃饭咯……
下载
1、skin
2、png源图片
[
本帖最后由 左手烟 于 2007-11-4 20:32 编辑 ]
![[PJblog^3]技术支持论坛 - PJBLOG SUPPORT FORUM](images/phpwind/logo.gif){kind=logo}
