将友情链接的JS调用改成文件调用

在上述修改的基础上，为了能更好的适应搜索引擎提高网站 PR 值，将原来的 JS 调用改成文件调用，修改方法如下：

1、打开 admin/ms_link.asp 文件，73行左右，将

Code:
    tmpfile=cls.dirs("style")&"data_link_"&ary_data(ci,1)&".js"

改成

Code:
    tmpfile=cls.dirs("style")&"data_link_"&ary_data(ci,1)&".inc"

使生成的文件为 inc 后缀名的文件。

2、往下找到 function mp_links_fso 过程（286行左右）,将整个过程替换为：

Code:
function mp_links_fso(byval strtype,byval strnsort,byval strnum)
  dim tmpstr,tmppic,tmpmark,ci
  tmpstr="<table border=0 width='100%' cellspacing=2 cellpadding=2>"
  sql="select * from "&cls.web(15)&" where l_sort='"&strnsort&"' and l_hidden=1 order by l_order"
  set rs=cls.exec(sql,1)
  do while not rs.eof
    tmpstr=tmpstr&vbcrlf&"<tr align=center>"
    for ci=1 to strnum
      if rs.eof then exit for
      tmppic=rs("l_pic")
      tmpmark=rs("l_remark")
      tmpstr=tmpstr&vbcrlf&"<td><a href='"&rs("l_url")&"' target=_blank title='"&tmpmark&"'>"
      select case strtype
      case 1
        if instr(1,tmppic,"://")=0 and instr(1,tmppic,"../")=0 then tmppic=cls.dirs&tmppic
        if tmpmark<>"" then tmpmark="："&cls.code_html(tmpmark,1,0)
        tmpstr=tmpstr&"<img src='"&tmppic&"' border=0 width=88 height=31 alt='"&cls.code_html(rs("l_name"),1,0)&tmpmark&"'>"
      case else
        tmpstr=tmpstr&replace(cls.code_html(rs("l_name"),1,0),"""","'")
      end select
      tmpstr=tmpstr&"</a></td>"
      rs.movenext
    next
    tmpstr=tmpstr&vbcrlf&"</tr>"
  loop
  rs.close
  tmpstr=tmpstr&vbcrlf&"</table>"
  mp_links_fso=tmpstr
end function


特别注意：上述红色标注部分是根据我先前发布的修改而增加的。

3、修改首页调用，进入后台模板管理中的首页面管理模板，将原先 js 调用的语句

Code:
<script language=javascript src="{$=dirs("style")$}data_link_fir_index.js"></script>

替换为：

Code:
<!-- #include file="common/style/data_link_fir_index.inc" -->

也许有人会问路经为什么不用 {$=dirs("style")$} 表示 ，原因是 include file 不支持 “/”开头的路经。

4、修改前台“友情链接”和“论坛首页”页面，将JS调用换成文件调用：
举例说明，替换的模式为

Code:
<script language=javascript src="<%=cls.dirs("style")%>data_link_fir.js"></script>

替换成

Code:
<!-- #include file="../common/style/data_link_fir.inc" -->



http://www.joekoe.com/forum/view_72588_2.vhtml

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: