您现在的位置： 雪儿网络 >> 建站资源 >> 插件下载 >> 动易插件 >> 资源信息

最新资源

· [动易插件]动易站长工具箱-数据批量替换删
· [动易模板]视觉网络07AT宽屏板动易2006
· [动易模板]动易模板专家仿中国网站美工网
· [站长工具]动易全能注册机免费下载
· [动易模板]QQ空间资源站模板 DIV+CSS动易
· [动易模板]艺雅网赚 v2.0 for动易2006整站
· [动易插件]动易下载频道增加下载验证码插
· [PSD模板]一套漂亮的荷花主题PSD网站模板
· [动易模板]重庆荣昌职中动易2006模板
· [动易模板]动易CMS 60度Eadren网络2006模

热门资源

· [动易模板]QQ空间资源站模板 DIV+CSS动易
· [动易模板]重庆荣昌职中动易2006模板
· [动易模板]动易CMS 60度Eadren网络2006模
· [动易模板]特效地带红色风格动易2006版
· [动易模板]附属中学模板2007秋季版for动易
· [动易模板]绿色清爽学校类模板for动易200
· [动易模板]动易模板NO.1第四版of动易2006
· [动易模板]雪儿仿腾讯QQ大型医学门户动易
· [动易模板]动易模板专家for动易2006模板
· [动易模板]耳巴非主流for动易2006模板

资源搜索

资源名称

动易站长工具箱-数据批量替换删除清理器

  •   添加时间： 2007-12-29 15:49:16
  •   下载次数：  月： 周： 日：
  •   文件大小： 29 K
  •   解压密码： www.xueol.com 或 
  • 不会中毒的浏览器免费下载

下载地址

超强免费图片管理软件下载
下载地址1  


如果您发现该资源不能下载，请通知管理员或点击【此处报错】，谢谢！发表评论请点击【参与评论】

相关资源

不会中毒的浏览器免费下载

动易全能注册机免费下载
动易2006梦幻企业套装模板
仿动易官方2006sp5整站免费下载
《动易内容管理系统》2006 SP6普及版
真彩色设计2006动易模板

资源简介

点击进入多特软件下载联盟

'|-----------------------------------------------------------------------|
'|-----------飞越站长工具箱v1.0 for 动易网站管理系统2005/2006 -----------|
'|-------------------------- 作者:科技创造自由 --------------------------|
'|------------------ 飞越快乐家园  http://www.fy66.net/ -----------------|
'|----- 转载请保留版权信息,手下留情,留下的是对别人的尊重,谢谢! ----------|
'|-----------------------------------------------------------------------|
一、功能说明
 1.本工具箱集合了数据库批量替换器、同名数据清理器、失效文章清理器、失效下载清理器、失效图片清理器,在线文档替换器等插件，在后台管理左栏专设“动易站长工具箱”管理模块。
 2.本插件安装简单,只需上传程序文件,并修改一下Admin_index_left.asp,添加一段代码即可

二、安装步骤
 1.将压缩包里的文件上传到空间的管理目录内（例如Admin）
 2.参照下面的Admin_index_left.asp修改方法(附1-附2)对此文件进行修改。
 3.如果你使用的是动易2006,那么请打开Admin_Fy_Config.asp,修改Const Edition=2005为Const Edition=2006

三、卸载步骤
 1.将Admin目录下的以Admin_Fy_为开头命名的文件删除。
 2.将Admin_Index_Left.asp里所添加的代码删除。

四、使用说明
 1.安装完毕后,在动易管理后台左栏“动易站长工具箱”下打开各页面进行操作。

□□□□附一、动易2005的Admin_index_left.asp手动修改说明□□□□
打开admin_index_left.asp,找到
    If AdminPurview = 1 Then
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_Admin.asp target=main>管理员管理</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_Template.asp?TemplateType=8&TempType=1 target=main>会员模板管理</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
    End If
    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:158'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=20></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
End If
在下面添加如下代码并保存即可
'飞越站长工具箱 for PE2005 代码添加开始
If AdminPurview = 1 Then
    Response.Write "<table cellpadding=0 cellspacing=0 width=158 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='Images/Admin_left_01.gif' id=menuTitle2067 onclick='showsubmenu(2067)' style='cursor:hand;'><a href='Admin_Fy_Help.asp' target='main'><span class=glow>动易站长工具箱</span></a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' id='submenu2067'><div class=sec_menu style='width:158'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Fy_DateReplace.asp target=main>数据批量替换器</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Fy_CheckRepetition.asp target=main>同名内容清理器</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Fy_CheckFailArticle.asp target=main>失效文章清理器</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Fy_CheckFailSoft.asp target=main>失效下载清理器</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Fy_CheckFailPhoto.asp target=main>失效图片清理器</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Fy_TextReplace.asp target=main>在线文档替换器</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:158'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=20></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
End If
'飞越站长工具箱 for PE2005 代码添加结束

 

□□□□附二、动易2006的Admin_index_left.asp手动修改说明□□□□
打开admin_index_left.asp,找到===================================================================
    If AdminPurview = 1 Then
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href='Admin_CompareFilesOnline.asp' target='main'>在线比较网站文件</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href='Admin_City.asp' target='main'>邮政编码管理</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
    End If
    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
End If

在下面添加如下代码并保存即可====================================================================

'飞越站长工具箱 for PE2006 代码添加开始
If AdminPurview = 1 Then
    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='Images/Admin_left_04.gif' id=menuTitle2067 onclick=""new Element.toggle('submenu2067')"" style='cursor:hand;'><a href='Admin_Fy_Help.asp' target='main'><span class=glow>动易站长工具箱</span></a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' align='right' id='submenu2067'><div class=sec_menu style='width:165'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Fy_DateReplace.asp target=main>数据批量替换器</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Fy_CheckRepetition.asp target=main>同名内容清理器</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Fy_CheckFailArticle.asp target=main>失效文章清理器</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Fy_CheckFailSoft.asp target=main>失效下载清理器</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Fy_CheckFailPhoto.asp target=main>失效图片清理器</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Fy_TextReplace.asp target=main>在线文档替换器</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:167'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=5></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
End If
'飞越站长工具箱 for PE2006 代码添加结束

雪儿网络
Copyright©2006-2008 Xueol.Com 鄂ICP备06022161号
返回网站顶部