[分享]动易程序修改技巧专用帖（080110更新）

为迎接动易开源，现广泛征集动易程序修改技巧，包括系统程序（含语言包）、风格、插件、特效等。以便让老手、高手们交流经验，让菜鸟、新手们学习技巧，做到新老兼顾，共同提高。为方便网友查阅，本主题只保留修改技巧帖，其它任何顶帖、灌水帖一律删除（提问帖除外）谢谢各位的支持！请按照以下版式进行发布、补充（需要特别标明的修改部分请用颜色字体加粗，以便区分）：

【修改项目】：
【适用版本】：
【修改内容】：
【效果截图】：
【注意事项】：


1、直接显示指定频道首页
【修改项目】：首页跳转
【适用版本】：2005、2006
【修改内容】：修改网站根目录下的首页文件Index.asp，在最底部添加下面这一行代码即可：
<%response.redirect "Article/index.html"%>   其中频道名称及首页名称可根据自己需要进行调整，如Photo/index.shtml
【效果截图】：无
【注意事项】：无

2、简繁转换
【修改项目】：程序调用
【适用版本】：2005、2006
【修改内容】：在模板相应位置插入以下代码即可实现页面的简繁转换。 <A class=Bottom href="" name=StranLink>繁體中文</A><script language="javascript" src="http://你的网站域名/Js/gb_big5.js"></script>
【效果截图】：无
【注意事项】：无

3、关闭鼠标滚动放大缩小
【修改项目】：鼠标滚动放大缩小特效
【适用版本】：2005、2006
【修改内容】：
将模板中无级缩放函数：
//无级缩放图片大小
function bbimg(o)
{
  var zoom=parseInt(o.style.zoom, 10)||100;
  zoom+=event.wheelDelta/12;
  if (zoom>0) o.style.zoom=zoom+'%';
  return false;
}

修改为：
//无级缩放图片大小
function bbimg(o)
{
  return true;
}
【效果截图】：无
【注意事项】：无

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

5、横向登录框对齐
【修改项目】：登录框样式
【适用版本】：2005、2006
【修改内容】：发现2006版的会员登录默认是js调用，设置成横排后，个人认为有两个不足：
1、在火狐、Opera浏览器中显示异常；
2、首页一定要加<script src="{$InstallDir}JS/prototype.js"></script>  <script src="{$InstallDir}JS/scriptaculous.js"></script>  <script src="{$InstallDir}JS/checklogin.js"></script>代码，使打开速度变慢。

    于是，将会员登录改回原2005版登录：<IFRAME id=UserLogin src="{$InstallDir}UserLogin.asp?ShowType=2" frameBorder=0 width=670 scrolling=no height=26></IFRAME>

    发现排列得很不整齐，特别是验证码部分，经过反复尝试，修改成功，现将我修改的代码与有需要的朋友共享:

 打开UserLogin.asp文件，以下代码：

Response.Write "<table align='center' width='100%' border='0' cellspacing='0'.....（省略）......Response.Write "</tr></form></table>" & vbCrLf

将上面的代码替换为：

        Response.Write "<table align='center' width='100%' border='0' cellspacing='0' cellpadding='0'>" & vbCrLf
        Response.Write "    <form action='" & strInstallDir & "User/User_ChkLogin.asp' method='post' name='UserLogin' onSubmit='return CheckLoginForm();' target='_top'>" & vbCrLf
        Response.Write "    <tr>" & vbCrLf
        Response.Write "        <td height='20' align='right'>用户名</td><td height='20'><input name='UserName' type='text' id='UserName' size='6' maxlength='20' style='width:50px; background-color: #CCCCCC; height: 15px;'></td>" & vbCrLf
        If ShowType = 1 Then
            Response.Write "    </tr>" & vbCrLf
            Response.Write "    <tr>" & vbCrLf
        End If
        Response.Write "        <td height='20' align='right'>密码</td><td height='20'><input name='UserPassword' type='password' id='Password' size='6' maxlength='20' style='width:50px; background-color: #CCCCCC; height: 15px;'></td>" & vbCrLf
        If ShowType = 1 Then
            Response.Write "    </tr>" & vbCrLf
            Response.Write "    <tr>" & vbCrLf
        End If
        If EnableCheckCodeOfLogin = True Then
            Response.Write "        <td height='20' align='right'>验证码</td><td height='20'><input name='CheckCode' type='text' id='CheckCode' size='6' maxlength='6' style='width:40px; background-color: #CCCCCC; height: 15px;'><a href='javascript:refreshimg()' title='看不清楚，换个图片'>&nbsp;<img id='checkcode' src='inc/checkcode.asp' style='border: 1px solid #ffffff; height: 15px; width:60px; vertical-align: top;'></a></td>" & vbCrLf
            If ShowType = 1 Then
                Response.Write "    </tr>" & vbCrLf
                Response.Write "    <tr>" & vbCrLf
            End If
        End If
        Response.Write "        <td height='20' colspan='2' align='center'>" & vbCrLf
        Response.Write "            <input type='radio' name='CookieDate' value='3' style='background-color: #b2b2b2; border-left-color: #b2b2b2; border-top-color: #B2B2B2; border-right-color: #B2B2B2; border-bottom-color: #B2B2B2; vertical-align: top;'>永久登录 <input type='hidden' name='ComeUrl' value='" & ComeUrl & "'>" & vbCrLf
        Response.Write "            <input name='Login' type='submit' id='Login' value='·登 录·' style='width:57px; background-color: #cccccc; height: 16px;'>" & vbCrLf
        If ShowType = 1 Then
            Response.Write "        <br><br>" & vbCrLf
        Else
            Response.Write "        </td>" & vbCrLf
            Response.Write "<td height='20'>" & vbCrLf
        End If
        Response.Write "<a href='" & strInstallDir & "Reg/User_Reg.asp' target='_blank'>注册</a>&nbsp;&nbsp;<a href='" & strInstallDir & "User/User_GetPassword.asp' target='_blank'>忘记密码</a></td>" & vbCrLf
        Response.Write "</tr></form></table>" & vbCrLf
【效果截图】：无
【注意事项】：其实是限定每个项目的高度即可使之对齐了

6、语言包应用实例问答

问：我想将”您所在的位置”这一提示改为”导航”,如何操作？
答：修改Gb2312.xml中<Nav>您现在的位置：</Nav>为<Nav>导航</Nav>即可。
 
问：导航中的>>符号如何修改为其他？
答：修改<NavLink>&gt;&gt;</NavLink>为<NavLink>您需要的符号</NavLink>即可，如果想使用图片请更改为<NavLink><![CDATA[<img src='图片地址'>]]></NavLink> 。
 
问：如何修改频道与栏目列表中的分割符号“|”？
答：频道的分割符号为<ChannelLink><![CDATA[&nbsp;|&nbsp;]]></ChannelLink>
栏目的分割符号为<ClassLink>|</ClassLink>
 
问：如何修改浏览权限不够时，系统的错误提示？
答：找到语言包如下内容<PurviewCheckedErr><![CDATA[<br><li>对不起，您没有浏览此栏目内容的权限！</li>]]></PurviewCheckedErr>直接修改为您需要的语句即可。
 
问：我想修改公告弹出窗口的模式，如何实现？
答：找到语言包<CookieCheck>False</CookieCheck>为是否启用弹出检测，修改为<CookieCheck>True</CookieCheck> ，则为每一小时弹出一次。
语言包<CookieHour>1</CookieHour>中的数字为弹出间隔时间。
语言包<PopCode>与</PopCode>中间的语句即为弹出窗口的控制语句，你可以自行修改来达到个性化的目的。
 
问：滚动公告的模式不是很适合我网站的风格，如何修改？
答：找到语言包<AnnounceBody>与</AnnounceBody>标签之间的内容为滚动公告的摸板，可自行修改。
 
问：我的网站在内网，不想对友情连接进行点击统计了，如何修改。
答：找到语言包<Count_Hits>True</Count_Hits>改为<Count_Hits>False</Count_Hits> 。
 
问：我想将友情连接中的“点击申请”改为“申请连接”如何做到？
答：找到语言包<GetFriendSite>点击申请</GetFriendSite>改为<GetFriendSite>申请连接</GetFriendSite>

问：我需要更改作者的分类，具体如何去做？
答：找到语言包
<AuthorType1>大陆作者</AuthorType1>
<AuthorType2>港台作者</AuthorType2>
<AuthorType3>海外作者</AuthorType3>
<AuthorType4>本站特约</AuthorType4>
<AuthorType5>其他作者</AuthorType5>
定义了5种不同的默认分类，您可以按照自己的实际需求更改它，来源、厂商、品牌的分类也可以自行修改。
 
问：如何关闭用户注册时的EMAIL单一性检查？
答：找到语言包<RegEmailOnce>True</RegEmailOnce>改为<RegEmailOnce>False</RegEmailOnce>
 
问：文章属性中的[组图]等如何修改？
答：找到语言包
       <ArticlePro1>[图文]</ArticlePro1>
       <ArticlePro2>[组图]</ArticlePro2>
       <ArticlePro3>[推荐]</ArticlePro3>
       <ArticlePro4>[注意]</ArticlePro4>    可视您的需求自行更改。
 
问：文章列表中，栏目名称是用[与]包含的，我想改为“|“，请问如何操作
答：找到语言包<ClassChar><![CDATA[[{$Text}]]]></ClassChar>改为<ClassChar><![CDATA[|{$Text}|]]></ClassChar>即可。
 
问：需要修改文章内容页中的顶，热，荐这三个字的颜色，请问改哪里？
答：找到语言包               
<OnTop><![CDATA[<font color=blue>顶</font>&nbsp;]]></OnTop>
       <Hot><![CDATA[<font color=red>热</font>&nbsp;]]></Hot>
       <Elite><![CDATA[<font color=green>荐</font>]]></Elite>
可直接修改color属性的颜色值，甚至可直接将文字修改为您需要的图片，以实现更加个性化的显示效果。
 
问：最新文章显示页面中每页只能显示20条记录，如何改为40条？
答：找到语言包<MaxPerPage>20</MaxPerPage> 改为<MaxPerPage>40</MaxPerPage>推荐和热点页面也可找到相应的控制语句，进行修改。

问：用户点数不足时的提示如何修改，现在的太生硬了。
答：修改语言包<UsePoint>与</UsePoint>中的内容即可。
 
问：我想修改文章显示内容页中的发表评论那一栏，在哪里？
答：修改语言包<ArticleAction>与</ArticleAction>之间的内容，可随意增加你需要的新功能。
 
问：图片显示页面中，总是带有两个滚动条，如何去掉？
答：修改语言包<iframe><![CDATA[<iframe id='PhotoViewer' width='100%'
height='100%' scrolling='yes' frameborder='1'
src='{$ChannelUrl}/ViewPhoto.asp?PhotoUrl={$Url}'></iframe>]]></iframe>
为
<iframe><![CDATA[<iframe id='PhotoViewer' width='100%'
height='100%' scrolling='no' frameborder='1'
src='{$ChannelUrl}/ViewPhoto.asp?PhotoUrl={$Url}'></iframe>]]></iframe>即可。

7、限制已注册用户重复注册
【修改项目】：会员注册
【适用版本】：2006
【修改内容】：有些用户在已登录的情况下无意中会点击到注册页面，不管是有意还是无意的，重复注册对每个网站来说都不是什么好事（马甲太多了），所以转载了动易论坛里的一个小技巧，避免已注册的用户（在已登录的情况下）限制重复注册，从而避免了“马夫”的出现

打开Reg目录User_Reg.asp文件，在
Sub Main()
    If EnableUserReg <> True Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>对不起，本站暂停新用户注册服务！</li>"
        Call WriteErrMsg(ErrMsg, ComeUrl)
        Exit Sub
    End If
下加入以下代码
    If CheckUserLogined=True then
        FoundErr = True
        ErrMsg = ErrMsg & "<li><center><font color=#ff0000>对不起，您已是本站注册用户，请勿重复注册！</font><br><br>您的用户名是  <font color=#99000><b>"&username&"</b></font><br><a href='/'><font color=#666666><< 返回首页</font></a>    <a href='/user/'><font color=#666666>用户中心>></font></a><center></li>"
        Call WriteErrMsg(ErrMsg, ComeUrl)
        Exit Sub
    End If
保存，刷新即可。
【效果截图】：无
【注意事项】：无

8、缩小站内调查的空白间距
【修改项目】：调查模块
【适用版本】：2005、2006
【修改内容】：动易默认的调查板块在“投票”下面会留有很多的空余地方，不管是设定了高度还是不设高度，都不能把这个多出来的空白减小，对于栏目板块之间十分紧凑的网站页面来说，多了这么一个空白，显得很碍眼，所以在这里把修改方法和大家一起分享，只需修改语言包（Language目录里的Gb2312.xml文件），找到<VoteBody> ＜![CDATA[＜form name="VoteForm{$lid}" method="post" action="{$strInstallDir}vote.asp" target="_blank"
    style="margin-top: 0; margin-bottom: 0"＞ 加上红色的那部分代码就可以了。
【效果截图】：
【注意事项】：无

9、把“待签文章”改为“会员类型”
【修改项目】：会员登录
【适用版本】：2005、2006
【修改内容】：在系统根目录的Userlogin.asp里查找以下代码：
Response.Write "待签文章：" & vbCrLf
            If Trim(UnsignedItems & "") = "" Then
                Response.Write " <b><font color=gray>0</font></b> 篇"
            Else
                Dim UnsignedItemNum, arrUser
                arrUser = Split(UnsignedItems, ",")
                UnsignedItemNum = UBound(arrUser) + 1
                Response.Write " <b><font color=red>" & UnsignedItemNum & "</font></b> 篇"
            End If

用Response.Write "会员类别： <font color=blue>" & GroupName & "</font>"替换以上代码即可
【效果截图】：
【注意事项】：无

10、如何将留言簿的查看模式由讨论区方式改为留言板方式？
【修改项目】：留言板
【适用版本】：2005、2006
【修改内容】：打开GuestBook/index.asp文件，加上以下红色部分的代码即可：
<!--#include file="CommonCode.asp"-->
<%
dim ShowGStyle
ShowGStyle = Request.Cookies("ShowGStyle")
If ShowGStyle="" or Not IsNumeric(ShowGStyle) Then
Response.Cookies("ShowGStyle")=2
End If
Call PE_GuestBook.ShowIndex
Set PE_GuestBook = Nothing
%>
【效果截图】：无
【注意事项】：无

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 = "" Then Province = "浙江省"
If City = "" Then City = "台州市"

'On Error Resume Next
Call OpenConn

【效果截图】：无
【注意事项】：市级城市必须是上面填的省里所包括城市，不然会出现错乱。

12、把后台顶部没用的两个快捷图标 发送邮件和帮助中心   改成 修改风格和修改模板

方便修改风格和模板时的点击

制作新模板里，边制作边调试，后台操作特别烦，特想此法来，减少操作，不知对大家有没有用！

【修改项目】：后台

【适用版本】：2006
【修改内容】：打开admin/Admin_Index_Top.asp文件，

修改紫色和红色为你当前风格及模板的地址即可，

Response.Write "    <td width=60><img onclick='switchBar(this)' src='Images/admin_top_close.gif' title='关闭左边管理导航菜单' style='cursor:hand'></td>" & vbCrLf
If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "ModifyPwd") = True Then
    Response.Write "    <td width=92><a href='Admin_ModifyPwd.asp'><img src='Images/top_an_1.gif' border='0'></a></td>" & vbCrLf
End If
If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "MailList") = True Then
    Response.Write "    <td width=92><a href='Admin_Skin.asp?Action=Modify&ProjectName=xymj&SkinID=1'><img src='Images/top_an_7.gif' border='0'></a></td>" & vbCrLf
End If
Response.Write "    <td width=104><a href='../User/User_Message.asp' target='_blank'><img src='Images/top_an_4.gif' border='0'></a></td>" & vbCrLf
If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Cache") = True Then
    Response.Write "    <td width=92><a href='Admin_Cache.asp'><img src='Images/top_an_5.gif' border='0'></a></td>" & vbCrLf
End If
Response.Write "    <td width=92><a href='Admin_CreateIndex.asp'><img src='Images/top_an_8.gif' border='0'></a></td>" & vbCrLf
Response.Write "    <td align='right' class='spa'>" & vbCrLf
If CMS_Edition = 0 And eShop_Edition = -1 Then

【效果截图】：
20071281716295224.jpg (大小:84.7 K 下载次数:509)

【注意事项】：无

附修改好的图片  上传至 /Admin/Images/ 覆盖源文件即可

20071210154661866.gif (大小:2.6 K 下载次数:515)
 

200712101542154626.gif (大小:2.6 K 下载次数:513)

13、修改栏目名称的颜色
【修改项目】：语言包内的栏目颜色设置
【适用版本】：2005、2006
【修改内容】：在语言包中查找
<ClassChar><![CDATA[[{$Text}]]]></ClassChar>
改为：

<ClassChar><![CDATA[[<font color="red">{$Text}</font>]]]></ClassChar>
然后更新缓存。颜色可以自己换。
【效果截图】：
【注意事项】：无