动易程序修改技巧
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='看不清楚，换个图片'> <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> <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>>></NavLink>为<NavLink>您需要的符号</NavLink>即可，如果想使用图片请更改为<NavLink><!]></NavLink> 。
问：如何修改频道与栏目列表中的分割符号“|”？
答：频道的分割符号为<ChannelLink><!]></ChannelLink>
栏目的分割符号为<ClassLink>|</ClassLink>
问：如何修改浏览权限不够时，系统的错误提示？
答：找到语言包如下内容<PurviewCheckedErr><!]></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><!]]></ClassChar>改为<ClassChar><!]></ClassChar>即可。
问：需要修改文章内容页中的顶，热，荐这三个字的颜色，请问改哪里？
答：找到语言包
<OnTop><!color=blue>顶</font> ]]></OnTop>
<Hot><!color=red>热</font> ]]></Hot>
<Elite><!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文件），找到 ＜!
style="margin-top: 0; margin-bottom: 0"＞ 加上红色的那部分代码就可以了。
【效果截图】：
【注意事项】：无
9、把“待签文章”改为“会员类型”
【修改项目】：会员登录
【适用版本】：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.Write "会员类别： " & GroupName & ""替换以上代码即可
【效果截图】：
【注意事项】：无
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
【效果截图】：
【注意事项】：无
附修改好的图片上传至 /Admin/Images/ 覆盖源文件即可
13、修改栏目名称的颜色
【修改项目】：语言包内的栏目颜色设置
【适用版本】：2005、2006
【修改内容】：在语言包中查找
改为：{$Text}]]]>
然后更新缓存。颜色可以自己换。
【效果截图】：
【注意事项】：无
页:
[1]
2