将日志归档变为下拉菜单（源码修改方法）

decimal

效果如图:

修改步骤如下：
1、打开SCRIPT目录中的common.js

在里面添加如下内容

1. //*********************************************************
   
2. // 目的：    文章归档跳转
   
3. // 输入：    无
   
4. // 返回：    无
   
5. //*********************************************************
   
6. function MM_jumpMenu(targ,selObj,restore){ //v3.0
   
7.   eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
   
8.   if (restore) selObj.selectedIndex=0;
   
9. }
   
10. //*********************************************************

复制代码

2、打开FUNCTION目录中的c_system_event.asp
找到

1. Dim strArchives

复制代码

，在下面加上

1. strArchives="<div align=""center""><select name=""menu1"" onchange=""MM_jumpMenu('parent',this,0)"">"
   
2.         strArchives=strArchives &"<option>浏览文章归档</option>"

复制代码

3、在c_system_event.asp中找到

1. 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>"

复制代码

将其替换成

1. 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中找到

1. 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>"

复制代码

将其替换成

1. 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中找到

1. strArchives=TransferHTML(strArchives,"[no-asp]")

复制代码

在其上面一行加上

1. strArchives=strArchives & "</select></div>"

复制代码

6、重建文件，重建索引。

[ 本帖最后由 decimal 于 2007-5-15 12:32 编辑 ]

washun

非常好 我用了不错 很省地方

double

。學習中 。謝謝。

aibiliwu

3Qu

8280207

全部都是在c_system_event.asp这个文件里修改的吧?
为什么不发一个修改过的完整代码出来覆盖呢。
这是方便懒人的做法。

decimal

原帖由 8280207 于 2007-5-15 19:40 发表
全部都是在c_system_event.asp这个文件里修改的吧?
为什么不发一个修改过的完整代码出来覆盖呢。
这是方便懒人的做法。

晕，这么点工作量都想省略。。。。。。

8280207

OK..弄好了。.谢谢。.
LS的..我只是随便说说。

Zx.MYS

不错
发出来覆盖才碍事。

washun

以前修改过这个文件 因此如果完全覆盖的话 会受到一些损失

这样也好啊，让大家敞开来学习学习

decimal

对的，就是担心有人曾经修改过这里。直接覆盖会有问题

wolfit

不错的!

aibiliwu

用上了。谢谢。http://aibiliwu.cn