动易程序修改技巧

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

2、中文 【效果截图】：无【注意事项】：无3、关闭鼠标滚动放大缩小 【修改项目】：鼠标滚动放大缩小特效【适用版本】：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:试过删除这段代码的同学肯定发现保存后它又回来了，现在有办法解决了。

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

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

5、Response.Write & vbCrLf将上面的代码替换为：Response.Write & vbCrLfResponse.Write & vbCrLfResponse.Write & vbCrLfResponse.Write 用户名 & vbCrLfIf ShowType = 1 ThenResponse.Write & vbCrLfResponse.Write & vbCrLfEnd IfResponse.Write 密码 & vbCrLfIf ShowType = 1 ThenResponse.Write & vbCrLfResponse.Write & vbCrLfEnd IfI

6、f EnableCheckCodeOfLogin = True ThenResponse.Write 验证码 & vbCrLfIf ShowType = 1 ThenResponse.Write & vbCrLfResponse.Write & vbCrLfEnd IfEnd IfResponse.Write & vbCrLfResponse.Write 永久登录 & vbCrLfResponse.Write & vbCrLfIf ShowType = 1 ThenResponse.Write & vbCrLfElseResponse.Write & vbCrLfResponse.Write

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

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

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

10、荐这三个字的颜色，请问改哪里？ 答：找到语言包!CDATA 顶 !CDATA 热 !CDATA 荐 可直接修改 color 属性的颜色值，甚至可直接将文字修改为您需要的图片，以实现更加个性 化的显示效果。问：最新文章显示页面中每页只能显示 20 条记录，如何改为 40 条？答：找到语言包 20 改为 40 推荐和 热点页面也可找到相应的控制语句，进行修改。问：用户点数不足时的提示如何修改，现在的太生硬了。答：修改语言包 与 中的内容即可。问：我想修改文章显示内容页中的发表评论那一栏，在哪里？答：修改语言包 与 之间的内容， 可随意增加你需要的新功能。问：图片显示页面中，总是带有两个滚动条，如何

11、去掉？答：修改语言包 !CDATA 为!CDATA 即可。7、限制已注册用户重复注册【修改项目】：会员注册【适用版本】： 2006【修改内容】 ：有些用户在已登录的情况下无意中会点击到注册页面， 不管是有意还是无意 的，重复注册对每个网站来说都不是什么好事 (马甲太多了) ，所以转载了动易论坛里的一 个小技巧，避免已注册的用户(在已登录的情况下)限制重复注册，从而避免了“马夫 ”的出现打开 Reg 目录文件，在Sub Main()If EnableUserReg True ThenFoundErr = TrueErrMsg = ErrMsg & 对不起，本站暂停新用户注册服务！ Call Wr

12、iteErrMsg(ErrMsg, ComeUrl)Exit SubEnd If下加入以下代码If CheckUserLogined=True thenFoundErr = TrueErrMsg = ErrMsg & 对不起， 您已是本站注册用户， 请勿重复注册！ 您的用户名是 &username& 返回首页 用户中心 Call WriteErrMsg(ErrMsg, ComeUrl)Exit SubEnd If保存，刷新即可。【效果截图】：无【注意事项】：无8、缩小站内调查的空白间距【修改项目】：调查模块【适用版本】：2005、2006【修改内容】：动易默认的调查板块在投票”下面会留有很多的

13、空余地方，不管是设定了高度还是不设高度，都不能把这个多出来的空白减小，对于栏目板块之间十分紧凑的网站页面来说，多了这么一个空白，显得很碍眼，所以在这里把修改方法和大家一起分享，只需修改语言包（Language 目录里的 Gb2312.xml 文件），找到 v !CDATA vform na me=VoteForm$lid method=post action=$strlnstallDirvote.asptarget=_blank style=margin-top: 0; margin-bottom: 0 加上红色的那部分代码就可以了。Hope Sl udge 二严_- -Hope Studio

14、s設累限查看1【注意事项】：无9、把待签文章”改为会员类型【修改项目】：会员登录【适用版本】：2005、2006【修改内容】：在系统根目录的Userlogin.asp里查找以下代码：Response.Write 待签文章：” & vbCrLfIf Trim(Unsignedltems & ”)= ThenResponse.Write 0 篇ElseDim Un sig nedltemNum, arrUser arrUser = Split( Un sig nedltems, ,)Un sig nedltemNum = UBo un d(arrUser) + 1Respo nse.Write &

15、 Un sig nedltemNum & 篇IIEnd If用 Response.Write 会员类别： & GroupName & 替换以上代码即可ps:同样的道理，要是想改其他的选项，可以采用一样的方法槪改后资金余银; 经验积分； 计费方式: 可用点数0元 T分 押点数0 A無容T诘：m篇蒔闾短信：n条【效果截图】：上啊旳上午好资金余靈；0元 疑验羯分；T分 计费方式：扣点数町用点議：D点 r会一亠珂;=酬总匸刖待 ivsmMwiajft【注意事项】：无10、如何将留言簿的查看模式由讨论区方式改为留言板方式？【修改项目】：留言板【适用版本】：2005、2006【修改内容】：打开 Guest

16、Book/index.asp文件，加上以下红色部分的代码即可:效果截图】：无 【注意事项】：无11、注册时的默认省市及城市【修改项目】：地址【适用版本】：2006【修改内容】：打开 Region.asp 文件，修改以下红色部分的代码即可：Country = ReplaceBadChar(Trim(Request(Country)Province = ReplaceBadChar(Trim(Request(Province)City = ReplaceBadChar(Trim(Request(City)If Country = Then Country = 中华人民共和国 If Province

17、 = Then Province = 浙江省 If City = Then City = 台州市 On Error Resume NextCall OpenConn【效果截图】：无【注意事项】：市级城市必须是上面填的省里所包括城市，不然会出现错乱。12、把后台顶部没用的两个快捷图标发送邮件和帮助中心 改成 修改风格和修改模板方便修改风格和模板时的点击 制作新模板里，边制作边调试，后台操作特别烦，特想此法来，减少操作，不知对大家有没有用！修改项目】：后台【适用版本】：2006【修改内容】：打开 admi n/文件，修改紫色和红色为你当前风格及模板的地址即可,Response.Write & vbCrLfEnd IfIf AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others,MailList) = TrueThe nResponse.Write & vbCrLfEnd IfResponse.Write & vbCrLfIf AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others,C