动易程序修改技巧Word格式.docx
《动易程序修改技巧Word格式.docx》由会员分享，可在线阅读，更多相关《动易程序修改技巧Word格式.docx（12页珍藏版）》请在冰豆网上搜索。
;
returnfalse;
}
修改为：
returntrue;
ps:
试过删除这段代码的同学肯定发现保存后它又回来了，现在有办法解决了。
4、邮件验证后返回首页
页面跳转
2006
网友注册，邮件验证，网友点邮件链接跳到激活注册页面，但此时如果您点击窗口的“返回上一页”，就跳到刚才的邮箱邮件页面。
能否改一下，让网友点“返回上一页”，直接就跳到您网站首页呢？
打开reg/,找到
CallWriteSuccessMsg（"
恭喜你正式成为本站的一员，请返回首页登录。
ComeUrl）
将其更改为：
享受更多权利！
"
//你的网址/"
）
5、横向登录框对齐
登录框样式
发现2006版的会员登录默认是js调用，设置成横排后，个人认为有两个不足：
1、在火狐、Opera浏览器中显示异常；
2、首页一定要加<
scriptsrc="
{$InstallDir}JS/prototype.js"
{$InstallDir}JS/scriptaculous.js"
{$InstallDir}JS/checklogin.js"
代码，使打开速度变慢。
于是，将会员登录改回原2005版登录：
IFRAMEid=UserLoginsrc="
{$InstallDir}UserLogin.asp?
ShowType=2"
frameBorder=0width=670scrolling=noheight=26>
/IFRAME>
发现排列得很不整齐，特别是验证码部分，经过反复尝试，修改成功，现将我修改的代码与有需要的朋友共享:
打开UserLogin.asp文件，以下代码：
Response.Write"
tablealign='
center'
width='
100%'
border='
0'
cellspacing='
.....（省略）......Response.Write"
/tr>
/form>
/table>
&
vbCrLf
将上面的代码替换为：
Response.Write"
cellpadding='
formaction='
strInstallDir&
"
User/'
method='
post'
name='
UserLogin'
onSubmit='
returnCheckLoginForm（）;
'
target='
_top'
tr>
tdheight='
20'
align='
right'
用户名<
/td>
inputname='
UserName'
type='
text'
id='
size='
6'
maxlength='
style='
width:
50px;
background-color:
#CCCCCC;
height:
15px;
IfShowType=1Then
EndIf
密码<
UserPassword'
password'
Password'
IfEnableCheckCodeOfLogin=TrueThen
验证码<
CheckCode'
40px;
ahref='
nojavascript...refreshimg（）'
title='
看不清楚，换个图片'
imgid='
checkcode'
src='
inc/checkcode.asp'
border:
1pxsolid#ffffff;
width:
60px;
vertical-align:
top;
/a>
colspan='
2'
inputtype='
radio'
CookieDate'
value='
3'
background-color:
#b2b2b2;
border-left-color:
border-top-color:
#B2B2B2;
border-right-color:
border-bottom-color:
永久登录<
hidden'
ComeUrl'
ComeUrl&
Login'
submit'
·
登录·
57px;
#cccccc;
16px;
br>
Else
Reg/'
_blank'
注册<
忘记密码<
其实是限定每个项目的高度即可使之对齐了
6、语言包应用实例问答
问：
我想将”您所在的位置”这一提示改为”导航”,如何操作？
答：
修改Gb2312.xml中<
Nav>
您现在的位置：
/Nav>
为<
导航<
即可。
导航中的>
符号如何修改为其他？
修改<
NavLink>
/NavLink>
您需要的符号<
即可，如果想使用图片请更改为<
!
[CDATA[<
imgsrc='
图片地址'
]]>
。
如何修改频道与栏目列表中的分割符号“|”？
频道的分割符号为<
ChannelLink>
[CDATA[|]]>
/ChannelLink>
栏目的分割符号为<
ClassLink>
|<
/ClassLink>
如何修改浏览权限不够时，系统的错误提示？
找到语言包如下内容<
PurviewCheckedErr>
li>
对不起，您没有浏览此栏目内容的权限！
/li>
/PurviewCheckedErr>
直接修改为您需要的语句即可。
我想修改公告弹出窗口的模式，如何实现？
找到语言包<
CookieCheck>
False<
/CookieCheck>
为是否启用弹出检测，修改为<
True<
，则为每一小时弹出一次。
语言包<
CookieHour>
1<
/CookieHour>
中的数字为弹出间隔时间。
PopCode>
与<
/PopCode>
中间的语句即为弹出窗口的控制语句，你可以自行修改来达到个性化的目的。
滚动公告的模式不是很适合我网站的风格，如何修改？
AnnounceBody>
/AnnounceBody>
标签之间的内容为滚动公告的摸板，可自行修改。
我的网站在内网，不想对友情连接进行点击统计了，如何修改。
Count_Hits>
/Count_Hits>
改为<
我想将友情连接中的“点击申请”改为“申请连接”如何做到？
GetFriendSite>
点击申请<
/GetFriendSite>
申请连接<
我需要更改作者的分类，具体如何去做？
找到语言包
AuthorType1>
大陆作者<
/AuthorType1>
AuthorType2>
港台作者<
/AuthorType2>
AuthorType3>
海外作者<
/AuthorType3>
AuthorType4>
本站特约<
/AuthorType4>
AuthorType5>
其他作者<
/AuthorType5>
定义了5种不同的默认分类，您可以按照自己的实际需求更改它，来源、厂商、品牌的分类也可以自行修改。
如何关闭用户注册时的EMAIL单一性检查？
RegEmailOnce>
/RegEmailOnce>
文章属性中的[组图]等如何修改？
ArticlePro1>
[图文]<
/ArticlePro1>
ArticlePro2>
[组图]<
/ArticlePro2>
ArticlePro3>
[推荐]<
/ArticlePro3>
ArticlePro4>
[注意]<
/ArticlePro4>
可视您的需求自行更改。
文章列表中，栏目名称是用[与]包含的，我想改为“|“，请问如何操作
ClassChar>
[CDATA[[{$Text}]]]>
/ClassChar>
[CDATA[|{$Text}|]]>
需要修改文章内容页中的顶，热，荐这三个字的颜色，请问改哪里？
找到语言包
OnTop>
fontcolor=blue>
顶<
/font>
]]>
/OnTop>
Hot>
fontcolor=red>
热<
/Hot>
Elite>
fontcolor=green>
荐<
/Elite>
可直接修改color属性的颜色值，甚至可直接将文字修改为您需要的图片，以实现更加个性化的显示效果。
最新文章显示页面中每页只能显示20条记录，如何改为40条？
MaxPerPage>
20<
/MaxPerPage>
改为<
40<
推荐和热点页面也可找到相应的控制语句，进行修改。
用户点数不足时的提示如何修改，现在的太生硬了。
修改语言包<
UsePoint>
/UsePoint>
中的内容即可。
我想修改文章显示内容页中的发表评论那一栏，在哪里？
ArticleAction>
/ArticleAction>
之间的内容，可随意增加你需要的新功能。
图片显示页面中，总是带有两个滚动条，如何去掉？
iframe>
iframeid='
PhotoViewer'
height='
scrolling='
yes'
frameborder='
1'
src='
{$ChannelUrl}/ViewPhoto.asp?
PhotoUrl={$Url}'
/iframe>
为
no'
7、限制已注册用户重复注册
会员注册
有些用户在已登录的情况下无意中会点击到注册页面，不管是有意还是无意的，重复注册对每个网站来说都不是什么好事（马甲太多了），所以转载了动易论坛里的一个小技巧，避免已注册的用户（在已登录的情况下）限制重复注册，从而避免了“马夫”的出现
打开Reg目录文件，在
SubMain（）
IfEnableUserReg<
TrueThen
FoundErr=True
ErrMsg=ErrMsg&
对不起，本站暂停新用户注册服务！
CallWriteErrMsg（ErrMsg,ComeUrl）
ExitSub
下加入以下代码
IfCheckUserLogined=Truethen
center>
fontcolor=#ff0000>
对不起，您已是本站注册用户，请勿重复注册！
您的用户名是
fontcolor=#99000>
b>
&
username&
/b>
/'
fontcolor=#666666>
返回首页<
/user/'
用户中心>
保存，刷新即可。
8、缩小站内调查的空白间距
调查模块
动易默认的调查板块在“投票”下面会留有很多的空余地方，不管是设定了高度还是不设高度，都不能把这个多出来的空白减小，对于栏目板块之间十分紧凑的网站页面来说，多了这么一个空白，显得很碍眼，所以在这里把修改方法和大家一起分享，只需修改语言包（Language目录里的Gb2312.xml文件），找到<
VoteBody>
＜!
[CDATA[＜formname="
VoteForm{$lid}"
method="
post"
action="
{$strInstallDir}vote.asp"
target="
_blank"
style="
margin-top:
0;
margin-bottom:
0"
＞加上红色的那部分代码就可以了。
9、把“待签文章”改为“会员类型”
会员登录
在系统根目录的Userlogin.asp里查找以下代码：
待签文章：
IfTrim（UnsignedItems&
）="
Then
fontcolor=gray>
0<
篇"
DimUnsignedItemNum,arrUser
arrUser=Split（UnsignedItems,"
UnsignedItemNum=UBound（arrUser）+1
UnsignedItemNum&
用Response.Write"
会员类别：
GroupName&
替换以上代码即可
同样的道理，要是想改其他的选项，可以采用一样的方法
10、如何将留言簿的查看模式由讨论区方式改为留言板方式？
留言板
打开GuestBook/index.asp文件，加上以下红色部分的代码即可：
--#includefile="
CommonCode.asp"
-->
%
dimShowGStyle
ShowGStyle=Request.Cookies（"
ShowGStyle"
IfShowGStyle="
orNotIsNumeric（ShowGStyle）Then
Response.Cookies（"
）=2
EndIf
CallPE_GuestBook.ShowIndex
SetPE_GuestBook=Nothing
11、注册时的默认省市及城市
地址
打开Region.asp文件，修改以下红色部分的代码即可：
Country=ReplaceBadChar（Trim（Request（"
Country"
）））
Province=ReplaceBadChar（Trim（Request（"
Province"
City=ReplaceBadChar（Trim（Request（"
City"
IfCountry="
ThenCountry="
中华人民共和国"
IfProvince="
ThenProvince="
浙江省"
IfCity="
ThenCity="
台州市"
OnErrorResumeNext
CallOpenConn
升级会员 