热门文章

动易3.6首页随机FLASH修改

一、首页增加随机画面+FLASH的修改(2004/7/12)

1、将xpic、xswf两个目录拷贝到动易根目下。

2、在inc/function.asp里的第一个<%后增加

dim xpic,xswf
randomize
xpic="xpic/"&(1+int(rnd*16))&".jpg"
randomize
xswf="xswf/"&(1+int(rnd*11))&".swf"

3、inc/function.asp
  '取当前路径
  if PageTitle<>"" then
   strPath=strPath & "&nbsp;&gt;&gt;&nbsp;" & PageTitle
  end if
  strtmp = Replace(strtmp,"{$width}",mainsetting(0))
  strtmp = Replace(strtmp,"{$PicUrl}",Site_PicUrl)
  strtmp = Replace(strtmp,"{$xpic}",xpic)  '增加部分
  strtmp = Replace(strtmp,"{$xswf}",xswf)  '增加部分
  strtmp = Replace(strtmp,"{$ShowAnnounce}",Announcestr(2,5))
  ......

4、后台：网站模板管理->当前模板主模块(Main_Style)->界面风格->nt2003.mainhtml(2) 替换为下面内容：

<!-- Top顶部表格 -->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td class="nav_top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="90"><img src="Skin/51dsn03/top_word.gif" width="180" height="20"></td>
        <td align="right"><font color="#FFFFFF">{$channel}</font></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td height="28" class="nav_menu">{$ClassMenu}</td>
  </tr>
  <tr>
  <td background={$xpic} >
  <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="760"  height="110" align="middle">
  <param name="movie" value={$xswf}>
  <param name="quality" value="high">
  <param name="wmode" value="transparent"> <!--这里代码可使Flash背景透明 -->
  <embed src={$xswf} width="760" height="110" align="middle" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer"; type="application/x-shockwave-flash"></embed></object></td>

  </tr>
  <tr>
    <td class="nav_ann"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="20"><img src="Skin/51dsn03/h_an1.gif" width="20" height="20"></td>
        <td width="10">&nbsp;</td>
        <td width="70"><font color="#0560A6">最新公告</font>：</td>
        <td><MARQUEE scrollAmount=1 scrollDelay=4 width=500
            align="left" onmouseover="this.stop()" onmouseout="this.start()">{$ShowAnnounce} </MARQUEE></td>
        <td width="120" align="right"><a href="#" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('{$SiteUrl}')">设为首页</a> | <a href="javascript:window.external.addFavorite('{$SiteUrl}','{$SiteName}')">加入收藏</a></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td class="txt_css"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="20"><img src="Skin/51dsn03/h_ar1.gif" width="20" height="20"></td>
        <td width="10">&nbsp;</td>
        <td><font color="#FFFFFF">{$path}</font></td>
        <td width="200" align="right"><div id="jnkc"></div>
          <script>setInterval("jnkc.innerHTML=new Date().toLocaleString()+' 星期'+'日一二三四五六'.charAt (new Date().getDay());",1000);</script></td>
      </tr>
    </table></td>
  </tr>
</table>

二、修正留言内容里表情图片显示不正确

查找inc/ubbcode.asp里：

strContent=re.Replace(strContent,"<img src="&ImagePath&"em$1.gif border=0 align=middle>")

替换成

strContent=re.Replace(strContent,"<img src="&ImagePath&"emot/em$1.gif border=0 align=middle>")