动易程序修改技巧

1、动易程序修改技巧 大家在运用动易的后台的时候常常会觉得有些地方不近人意，很多地方不能按照自己想 要的方式显示出来，我在网上找了些小技巧，做了些修改，和大家一起分享下。 1、直接显示指定频道首页 修改项目】： 首页跳转 适用版本】： 2005、2006 修改内容】： 修改网站根目录下的首页文件 Index.asp，在最底部添加下面这一行代码即 可： 其中频道名称及首页名称可根据自己需要进行 调整，如 Photo/index.shtml 效果截图】： 注意事项】： 2、简繁转换 修改项目】： 程序调用 适用版本】： 2005、2006 繁體中文 效果截图】：无 注意事项】：无 3、关闭鼠标滚动放大

2、缩小 修改项目】：鼠标滚动放大缩小特效 适用版本】： 2005、2006 修改内容】： 将模板中无级缩放函数： /无级缩放图片大小 function bbimg(o) var zoom=parseInt(o.style.zoom, 10)|100; zoom+=event.wheelDelta/12; if (zoom0) o.style.zoom=zoom+%; return false; 修改为： /无级缩放图片大小 function bbimg(o) return true; ps:试过删除这段代码的同学肯定发现保存后它又回来了，现在有办法解决了。 效果截图】：无 注意事项】：无 4、邮

3、件验证后返回首页 修改项目】：页面跳转 适用版本】： 2006 修改内容】：网友注册，邮件验证，网友点邮件链接跳到激活注册页面， 但此时如果您点 击窗口的 “返回上一页 ”，就跳到刚才的邮箱邮件页面。 能否改一下， 让网友点 “返回上一页 ”， 直接就跳到您网站首页呢？打开 reg/,找到 Call WriteSuccessMsg( 恭喜你正式成为本站的一员，请返回首页登录。 , ComeUrl) 将其更改为： Call WriteSuccessMsg( 恭喜你正式成为本站的一员，请返回首页登录。 享受更多权利！ ,h ttp:/ 你的网址 /) 效果截图】：无 注意事项】：无 5、横向登录框

4、对齐 修改项目】： 登录框样式 适用版本】： 2005、2006 修改内容】： 发现 2006 版的会员登录默认是 js 调用，设置成横排后，个人认为有两个不 足： 1、在火狐、 Opera 浏览器中显示异常； 2、首页一定要加 代码，使 打开速度变慢。 于是，将会员登录改回原 2005 版登录： 发现排列得很不整齐，特别是验证码部分，经过反复尝试，修改成功，现将我修改的代 码与有需要的朋友共享 打开 UserLogin.asp 文件，以下代码： Response.Write table align=center width=100% border=0 cellspacing=0 省略） Re

5、sponse.Write & vbCrLf 将上面的代码替换为： Response.Write & vbCrLf Response.Write & vbCrLf Response.Write & vbCrLf Response.Write 用户名 & vbCrLf If ShowType = 1 Then Response.Write & vbCrLf Response.Write & vbCrLf End If Response.Write 密码 & vbCrLf If ShowType = 1 Then Response.Write & vbCrLf Response.Write & vb

6、CrLf End If If EnableCheckCodeOfLogin = True Then Response.Write 验证码 & vbCrLf If ShowType = 1 Then Response.Write & vbCrLf Response.Write & vbCrLf End If End If Response.Write & vbCrLf Response.Write 永久登录 & vbCrLf Response.Write & vbCrLf If ShowType = 1 Then Response.Write & vbCrLf Else Response.Wri

7、te & vbCrLf Response.Write & vbCrLf End If Response.Write 注册 忘记密码 & vbCrLf Response.Write & vbCrLf 效果截图】：无 注意事项】：其实是限定每个项目的高度即可使之对齐了 6、语言包应用实例问答 问： 答： 我想将 ”您所在的位置 ”这一提示改为 ”导航 ”如,何操作？ 修改 Gb2312.xml 中 您现在的位置： 为导航 即可。 问： 导航中的 符号如何修改为其他？ 答： 问：如何修改频道与栏目列表中的分割符号 |？” 修改 为 您需要的符号 即可，如果想使用 图片请更改为 !CDATA 。 答：

8、频道的分割符号为 栏目的分割符号为 | 问：如何修改浏览权限不够时，系统的错误提示？ 答：找到语言包如下内容 !CDATA 对不起， 您没有浏览此栏 目内容的权限！ 直接修改为您需要的语句即可。 问：我想修改公告弹出窗口的模式，如何实现？ 答：找到语言包 False 为是否启用弹出检测，修改为 True ，则为每一小时弹出一次。语言包 1 中的数字为弹出间隔时间。 语言包 与 中间的语句即为弹出窗口的控制语句， 你可以自行修改来达 到个性化的目的。 问：滚动公告的模式不是很适合我网站的风格，如何修改？ 答：找到语言包 与 标签之间的内容为滚动公告的摸板， 可自行修改。 问：我的网站在内网，不想

9、对友情连接进行点击统计了，如何修改。 答：找到语言包 True 改为 False 。 问：我想将友情连接中的 “点击申请 ”改为 “申请连接 ”如何做到？ 答：找到语言包 点击申请 改为 申请连接 问：我需要更改作者的分类，具体如何去做？ 答：找到语言包 大陆作者 港台作者 海外作者 本站特约 来源、厂商、品牌的分类 其他作者 定义了 5 种不同的默认分类，您可以按照自己的实际需求更改它， 也可以自行修改。 问：如何关闭用户注册时的 EMAIL 单一性检查？ 答：找到语言包 True 改为 False 问：文章属性中的 组图 等如何修改？ 答：找到语言包 图文 组图 推荐 注意 可视您的需求自

10、行更改。 问：文章列表中，栏目名称是用 与 包含的，我想改为 “|，“请问如何操作 答：找到语言包 改为 即可。 问：需要修改文章内容页中的顶，热，荐这三个字的颜色，请问改哪里？ 答：找到语言包 !CDATA 顶 !CDATA 热 !CDATA 荐 可直接修改 color 属性的颜色值，甚至可直接将文字修改为您需要的图片，以实现更加个性 化的显示效果。 问：最新文章显示页面中每页只能显示 20 条记录，如何改为 40 条？ 答：找到语言包 20 改为 40 推荐和 热点页面也可找到相应的控制语句，进行修改。 问：用户点数不足时的提示如何修改，现在的太生硬了。 答：修改语言包 与中的内容即可。

11、问：我想修改文章显示内容页中的发表评论那一栏，在哪里？ 答：修改语言包 与 之间的内容， 可随意增加你需要的新功能。 问：图片显示页面中，总是带有两个滚动条，如何去掉？ 答：修改语言包 !CDATA !CDATA 即可。 7、限制已注册用户重复注册 修改项目】：会员注册 不管是有意还是无意 适用版本】： 2006 修改内容】 ：有些用户在已登录的情况下无意中会点击到注册页面， 的，重复注册对每个网站来说都不是什么好事 马甲太多了） ，所以转载了动易论坛里的一 马夫”的出 个小技巧，避免已注册的用户（在已登录的情况下）限制重复注册，从而避免了 打开 Reg 目录文件，在 Sub Main() I

12、f EnableUserReg True Then FoundErr = True ErrMsg = ErrMsg & 对不起，本站暂停新用户注册服务！ Call WriteErrMsg(ErrMsg, ComeUrl) Exit Sub End If 下加入以下代码 If CheckUserLogined=True then FoundErr = True ErrMsg = ErrMsg & 对不起， 您已是本站注册用户， 请勿重复注册！ 您的用户名是 &username& 返回首页 用户中心 Call WriteErrMsg(ErrMsg, ComeUrl) Exit Sub End If

13、 保存，刷新即可。 效果截图】：无 注意事项】：无 8、缩小站内调查的空白间距 修改项目】：调查模块 适用版本】： 2005、2006 修改内容】： 动易默认的调查板块在 “投票 ”下面会留有很多的空余地方， 不管是设定了高 只需修改 度还是不设高度， 都不能把这个多出来的空白减小， 对于栏目板块之间十分紧凑的网站页面 来说， 多了这么一个空白，显得很碍眼， 所以在这里把修改方法和大家一起分享， 语言包( Language 目录里的 Gb2312.xml 文件)，找到 !CDATA 加上红色的那部分代码就可以了。 效果截图】： 注意事项】：无 9、把“待签文章 ”改为“会员类型 ” 修改项目】

14、：会员登录 适用版本】： 2005、2006 修改内容】：在系统根目录的 Userlogin.asp 里查找以下代码： Response.Write 待签文章： vbCrLf If Trim(UnsignedItems & ) = Then Response.Write 0 篇 Else Dim UnsignedItemNum, arrUser arrUser = Split(UnsignedItems, ,) UnsignedItemNum = UBound(arrUser) + 1 Response.Write & UnsignedItemNum & 篇 End If 用 Response

15、.Write 会员类别： & GroupName & 替换以上代 码即可 ps: 同样的道理，要是想改其他的选项， 可以采用一样的方法 效果截图】： 注意事项】：无 10、如何将留言簿的查看模式由讨论区方式改为留言板方式？ 修改项目】： 适用版本】： 2005、2006 修改内容】： 打开 GuestBook/index.asp 文件，加上以下红色部分的代码即可： 效果截图】：无 注意事项】：无 11、注册时的默认省市及城市 修改项目】：地址 适用版本】： 2006 修改内容】：打开 Region.asp 文件，修改以下红色部分的代码即可： Country = ReplaceBadChar(T

16、rim(Request(Country) Province = ReplaceBadChar(Trim(Request(Province) City = ReplaceBadChar(Trim(Request(City) If Country = Then Country = 中华人民共和国 If Province = Then Province = 浙江省 If City = Then City = 台州市 On Error Resume Next Call OpenConn 效果截图】：无 注意事项】：市级城市必须是上面填的省里所包括城市，不然会出现错乱。 12、把后台顶部没用的两个快捷图

17、标发送邮件和帮助中心 改成 修改风格和修改模板 方便修改风格和模板时的点击 制作新模板里，边制作边调试，后台操作特别烦，特想此法来，减少操作，不知对大家有没 有用！ 修改项目】：后台 适用版本】： 2006 修改内容】：打开 admin/ 文件， 修改紫色和红色为你当前风格及模板的地址即可， Response.Write & vbCrLf End If If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, MailList) = True Then Response.Write & vbCrLf End If Response.Write & vbCrLf If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, Cache) = True Th en Response.Write & vbCrLf