动易程序修改技巧.docx
- 文档编号:27720789
- 上传时间:2023-07-04
- 格式:DOCX
- 页数:15
- 大小:39.32KB
动易程序修改技巧.docx
《动易程序修改技巧.docx》由会员分享,可在线阅读,更多相关《动易程序修改技巧.docx(15页珍藏版)》请在冰豆网上搜索。
动易程序修改技巧
动易程序修改技巧
大家在运用动易的后台的时候常常会觉得有些地方不近人意,很多地方不能按照自己想要的方式显示出来,我在网上找了些小技巧,做了些修改,和大家一起分享下。
1、直接显示指定频道首页【修改项目】:
首页跳转
【适用版本】:
2005、2006
【修改内容】:
修改网站根目录下的首页文件Index.asp,在最底部添加下面这一行代码即
可:
<%response.redirect"Article/index.html"%>其中频道名称及首页名称可根据自己需要进行调整,如Photo/index.shtml
【效果截图】:
无
【注意事项】:
无
2、简繁转换
【修改项目】:
程序调用
【适用版本】:
2005、2006
【修改内容】:
在模板相应位置插入以下代码即可实现页面的简繁转换。
href=""name=StranLink>繁體中文 //你的网站 域名/Js/gb_big5.js"> 【效果截图】: 无 【注意事项】: 无 3、关闭鼠标滚动放大缩小【修改项目】: 鼠标滚动放大缩小特效 【适用版本】: 2005、2006 【修改内容】: 将模板中无级缩放函数: //无级缩放图片大小functionbbimg(o) { varzoom=parseInt(o.style.zoom,10)||100; zoom+=event.wheelDelta/12; if(zoom>0)o.style.zoom=zoom+'%'; returnfalse; } 修改为: //无级缩放图片大小 functionbbimg(o) { returntrue; } ps: 试过删除这段代码的同学肯定发现保存后它又回来了,现在有办法解决了。 【效果截图】: 无 【注意事项】: 无 4、邮件验证后返回首页 【修改项目】: 页面跳转 【适用版本】: 2006 【修改内容】: 网友注册,邮件验证,网友点邮件链接跳到激活注册页面,但此时如果您点 击窗口的“返回上一页”,就跳到刚才的邮箱邮件页面。 能否改一下,让网友点“返回上一页”, 直接就跳到您网站首页呢? 打开reg/,找到 CallWriteSuccessMsg(”恭喜你正式成为本站的一员,请返回首页登录。 ",ComeUrl) 将其更改为: CallWriteSuccessMsg("恭喜你正式成为本站的一员,请返回首页登录。 享受更多权利! ","h ttp: //你的网址/") 【效果截图】: 无 注意事项】: 无 5、横向登录框对齐 【修改项目】: 登录框样式 【适用版本】: 2005、2006 【修改内容】: 发现2006版的会员登录默认是js调用,设置成横排后,个人认为有两个不足: 1、在火狐、Opera浏览器中显示异常; 2、首页一定要加 于是,将会员登录改回原2005版登录: ShowType=2"frameBorder=0width=670scrolling=noheight=26> 发现排列得很不整齐,特别是验证码部分,经过反复尝试,修改成功,现将我修改的代码与有需要的朋友共享: 打开UserLogin.asp文件,以下代码: Response.Write" Response.Write""&vbCrLf 将上面的代码替换为: Response.Write" Response.Write" Response.Write" Response.Write" 50px;background-color: #CCCCCC;height: 15px;'>"&vbCrLf IfShowType=1Then Response.Write" EndIf Response.Write" me='UserPassword'type='password'id='Password'size='6'maxlength='20'style='width: 50px;background-color: #CCCCCC;height: 15px;'>"&vbCrLf IfShowType=1Then Response.Write""&vbCrLf Response.Write" EndIf IfEnableCheckCodeOfLogin=TrueThen Response.Write" 40px;background-color: #CCCCCC;height: 15px;'> 1pxsolid#ffffff; height: 15px;width: 60px;vertical-align: top;'>"&vbCrLf IfShowType=1Then Response.Write" Response.Write" EndIf EndIf Response.Write" Response.Write" #b2b2b2;border-left-color: #b2b2b2;border-top-color: #B2B2B2;border-right-color: #B2B2B2;border-bottom-color: #B2B2B2;vertical-align: top;'>永久登录 Response.Write" tyle='width: 57px;background-color: #cccccc;height: 16px;'>"&vbCrLf IfShowType=1Then Response.Write" Else Response.Write""&vbCrLf Response.Write" EndIf Response.Write" Response.Write" 【效果截图】: 无 【注意事项】: 其实是限定每个项目的高度即可使之对齐了 6、语言包应用实例问答 问: 我想将”您所在的位置”这一提示改为”导航”如,何操作? 答: 修改Gb2312.xml中 为即可。 问: 导航中的>>符号如何修改为其他? 答: 修改 [CDATA[ 问: 如何修改频道与栏目列表中的分割符号“|? ” 答: 频道的分割符号为 [CDATA[|]]> 问: 如何修改浏览权限不够时,系统的错误提示? 答: 找到语言包如下内容 [CDATA[ ]]>直接修改为您需要的语句即可。 问: 我想修改公告弹出窗口的模式,如何实现? 答: 找到语言包 语言包 语言包 到个性化的目的。 问: 滚动公告的模式不是很适合我网站的风格,如何修改? 答: 找到语言包 问: 我的网站在内网,不想对友情连接进行点击统计了,如何修改。 答: 找到语言包 问: 我想将友情连接中的“点击申请”改为“申请连接”如何做到? 答: 找到语言包 问: 我需要更改作者的分类,具体如何去做? 答: 找到语言包 定义了5种不同的默认分类,您可以按照自己的实际需求更改它,来源、厂商、品牌的分类 也可以自行修改。 问: 如何关闭用户注册时的EMAIL单一性检查? 答: 找到语言包 lOnce> 问: 文章属性中的[组图]等如何修改? 答: 找到语言包 问: 文章列表中,栏目名称是用[与]包含的,我想改为“|,“请问如何操作 答: 找到语言包 [CDATA[[{$Text}]]]> [CDATA[|{$Text}|]]> 问: 需要修改文章内容页中的顶,热,荐这三个字的颜色,请问改哪里? 答: 找到语言包 [CDATA[ [CDATA[ [CDATA[ 可直接修改color属性的颜色值,甚至可直接将文字修改为您需要的图片,以实现更加个性化的显示效果。 问: 最新文章显示页面中每页只能显示20条记录,如何改为40条? 答: 找到语言包 问: 用户点数不足时的提示如何修改,现在的太生硬了。 答: 修改语言包 问: 我想修改文章显示内容页中的发表评论那一栏,在哪里? 答: 修改语言包 问: 图片显示页面中,总是带有两个滚动条,如何去掉? 答: 修改语言包]]>为 ]]>即可。 7、限制已注册用户重复注册 【修改项目】: 会员注册 【适用版本】: 2006 【修改内容】: 有些用户在已登录的情况下无意中会点击到注册页面,不管是有意还是无意的,重复注册对每个网站来说都不是什么好事(马甲太多了),所以转载了动易论坛里的一个小技巧,避免已注册的用户(在已登录的情况下)限制重复注册,从而避免了“马夫”的出 现 打开Reg目录文件,在 SubMain() IfEnableUserReg<>TrueThen FoundErr=True ErrMsg=ErrMsg&" " CallWriteErrMsg(ErrMsg,ComeUrl) ExitSub EndIf 下加入以下代码 IfCheckUserLogined=Truethen FoundErr=True ErrMsg=ErrMsg&" CallWriteErrMsg(ErrMsg,ComeUrl) ExitSub EndIf 保存,刷新即可。 【效果截图】: 无 【注意事项】: 无 8、缩小站内调查的空白间距 【修改项目】: 调查模块 【适用版本】: 2005、2006 【修改内容】: 动易默认的调查板块在投票”下面会留有很多的空余地方,不管是设定了高 度还是不设高度,都不能把这个多出来的空白减小,对于栏目板块之间十分紧凑的网站页面 来说,多了这么一个空白,显得很碍眼,所以在这里把修改方法和大家一起分享,只需修改 语言包(Language目录里的Gb2312.xml文件),找到 [CDATA[vformname="VoteForm{$lid}"method="post"action="{$strlnstallDir}vote.asp"target="_blank"style= "margin-top: 0;margin-bottom: 0">加上红色的那部分代码就可以了。 HopeSludge二严_-■- HopeStudio [s設累]限查看1 【注意事项】: 无 9、把待签文章”改为会员类型 【修改项目】: 会员登录 【适用版本】: 2005、2006 【修改内容】: 在系统根目录的Userlogin.asp里查找以下代码: Response.Write"待签文章: ”&vbCrLf IfTrim(Unsignedltems&"”)=""Then Response.Write" Else DimUnsignedltemNum,arrUserarrUser=Split(Unsignedltems,",") UnsignedltemNum=UBound(arrUser)+1 Response.Write" II EndIf 用Response.Write"会员类别: 码即可 ps: 同样的道理,要是想改其他的选项,可以采用一样的方法 槪改后 资金余银;经验积分;计费方式: 可用点数■ 0元T分押点数 0A 無容T诘: m篇 蒔闾短信: n条 【效果截图】: 上啊旳 上午好’ 资金余靈;0元疑验羯分;T分计费方式: 扣点数 「町用点議: D点r 会一亠珂;=酬总匸刖 待ivsmMwiajft 【注意事项】: 无 10、如何将留言簿的查看模式由讨论区方式改为留言板方式? 【修改项目】: 留言板 【适用版本】: 2005、2006 【修改内容】: 打开GuestBook/index.asp文件,加上以下红色部分的代码即可: --#includefile="CommonCode.asp"--> <% dimShowGStyle ShowGStyle=Request.Cookies("ShowGStyle") IfShowGStyle=""orNotIsNumeric(ShowGStyle)Then Response.Cookies("ShowGStyle")=2 EndIf CallPE_GuestBook.Showlndex SetPE_GuestBook=Nothing%> 效果截图】: 无【注意事项】: 无 11、注册时的默认省市及城市 【修改项目】: 地址 【适用版本】: 2006 【修改内容】: 打开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 【效果截图】: 无 【注意事项】: 市级城市必须是上面填的省里所包括城市,不然会出现错乱。 12、把后台顶部没用的两个快捷图标发送邮件和帮助中心改成修改风格和修改模板 方便修改风格和模板时的点击制作新模板里,边制作边调试,后台操作特别烦,特想此法来,减少操作,不知对大家有没 有用! 修改项目】: 后台 【适用版本】: 2006 【修改内容】: 打开admin/文件, 修改紫色和红色为你当前风格及模板的地址即可, Response.Write" ages/top_an_1.gifborder='0'x"&vbCrLf "&vbCrLf"&vbCrLf "&vbCrLf"&vbCrLf "&vbCrLf
"&vbCrLf
您的用户名是
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序 修改 技巧
![提示](https://static.bdocx.com/images/bang_tan.gif)