效果如图:
修改步骤如下：
1、打开SCRIPT目录中的common.js
在里面添加如下内容
复制内容到剪贴板
代码:
//*********************************************************
// 目的： 文章归档跳转
// 输入： 无
// 返回： 无
//*********************************************************
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//*********************************************************2、打开FUNCTION目录中的c_system_event.asp
找到
复制内容到剪贴板
代码:
Dim strArchives，在下面加上
复制内容到剪贴板
代码:
strArchives="<div align=""center""><select name=""menu1"" onchange=""MM_jumpMenu('parent',this,0)"">"
strArchives=strArchives &"<option>浏览文章归档</option>"3、在c_system_event.asp中找到
复制内容到剪贴板
代码:
strArchives=strArchives & "<li><a href="""& ZC_BLOG_HOST & ZC_STATIC_DIRECTORY & "/" & Year(dtmYM(i)) & "_" & Month(dtmYM(i)) & "." & ZC_STATIC_TYPE & """>" & Year(dtmYM(i)) & " " & ZVA_Month(Month(dtmYM(i))) & " (" & objRS(0) & ")" +"</a></li>"将其替换成
复制内容到剪贴板
代码:
strArchives=strArchives & "<option value="""& ZC_BLOG_HOST & ZC_STATIC_DIRECTORY & "/" & Year(dtmYM(i)) & "_" & Month(dtmYM(i)) & "." & ZC_STATIC_TYPE & """>" & Year(dtmYM(i)) & " " & ZVA_Month(Month(dtmYM(i))) & " (" & objRS(0) & ")" +"</option>"4、在c_system_event.asp中找到
复制内容到剪贴板
代码:
strArchives=strArchives & "<li><a href="""& ZC_BLOG_HOST &"catalog.asp?date=" & Year(dtmYM(i)) & "-" & Month(dtmYM(i)) & """>" & Year(dtmYM(i)) & " " & ZVA_Month(Month(dtmYM(i))) & "<span class=""article-nums""> (" & objRS(0) & ")</span>" +"</a></li>"将其替换成
复制内容到剪贴板
代码:
strArchives=strArchives & "<option value="""& ZC_BLOG_HOST &"catalog.asp?date=" & Year(dtmYM(i)) & "-" & Month(dtmYM(i)) & """>" & Year(dtmYM(i)) & " " & ZVA_Month(Month(dtmYM(i))) & "<span class=""article-nums""> (" & objRS(0) & ")</span>" +"</option>"5、在c_system_event.asp中找到
复制内容到剪贴板
代码:
strArchives=TransferHTML(strArchives,"[no-asp]")在其上面一行加上
复制内容到剪贴板
代码:
strArchives=strArchives & "</select></div>"6、重建文件，重建索引。
[
本帖最后由 decimal 于 2007-5-15 12:32 编辑 ]
