当前位置:文档之家› 动易程序修改技巧

动易程序修改技巧

动易程序修改技巧大家在运用动易的后台的时候常常会觉得有些地方不近人意,很多地方不能按照自己想要的方式显示出来,我在网上找了些小技巧,做了些修改,和大家一起分享下。

1、直接显示指定频道首页【修改项目】:首页跳转【适用版本】:2005、2006【修改内容】:修改网站根目录下的首页文件In dex.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;}ps:试过删除这段代码的同学肯定发现保存后它又回来了,现在有办法解决了。

【效果截图】:无【注意事项】:无4、邮件验证后返回首页【修改项目】:页面跳转【适用版本】:2006【修改内容】:网友注册,邮件验证,网友点邮件链接跳到激活注册页面,但此时如果您点击窗口的“返回上一页”,就跳到刚才的邮箱邮件页面。

能否改一下,让网友点“返回上一页”,直接就跳到您网站首页呢?打开reg/,找到Call WriteSuccessMsg(”恭喜你正式成为本站的一员,请返回首页登录。

", ComeUrl)将其更改为:Call WriteSuccessMsg(" 恭喜你正式成为本站的一员,请返回首页登录。

享受更多权利!","http://你的网址/")【效果截图】:无注意事项】:无5、横向登录框对齐【修改项目】:登录框样式【适用版本】:2005、2006【修改内容】:发现2006 版的会员登录默认是js 调用,设置成横排后,个人认为有两个不足:1、在火狐、Opera 浏览器中显示异常;2、首页一定要加<script src="{$InstallDir}JS/prototype.js"></script> <script src="{$InstallDi r}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'>" & vbCrLfResponse.Write " <form action='" & strInstallDir & "User/' method='post' name='Us erLogin' onSubmit='return CheckLoginForm();' target='_top'>" & vbCrLfResponse.Write " <tr>" & vbCrLfResponse.Write " <td height='20' align='right'> 用户名</td><td height='20'><input name='UserName' type='text' id='UserName' size='6' maxlength='20' style='width:50px; backgr ound-color: #CCCCCC; height: 15px;'></td>" & vbCrLfIf ShowType = 1 ThenResponse.Write " </tr>" & vbCrLfEnd If<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>" & vbCrLfIf ShowType = 1 ThenResponse.Write " </tr>" & vbCrLfResponse.Write " <tr>" & vbCrLfEnd IfIf EnableCheckCodeOfLogin = True ThenResponse.Write " <td height='20' align='right'> 验证码 </td><td height='20'><inputname='CheckCode' type='text' id='CheckCode' size='6' maxlength='6' style='width:40px; bac kground-color: #CCCCCC; height: 15px;'><a href='nojavascript...refreshimg()' title=' 看不清 楚,换个图片 '> <img id='checkcode' src='inc/checkcode.asp' style='border: 1px solid #ffffff;height: 15px; width:60px; vertical-align: top;'></a></td>" & vbCrLfIf ShowType = 1 ThenResponse.Write " </tr>" & vbCrLfResponse.Write " <tr>" & vbCrLfEnd IfEnd IfResponse.Write " <td height='20' colspan='2' align='center'>" & vbCrLfResponse.Write " <input type='radio' name='CookieDate' value='3' style='backgro und-color: #b2b2b2; border-left-color: #b2b2b2; border-top-color: #B2B2B2; border-right-col or: #B2B2B2; border-bottom-color: #B2B2B2; vertical-align: top;'> 永久登录 <input type='hi dden'name='ComeUrl' value='" & ComeUrl & "'>" & vbCrLfResponse.Write " <input name='Login' type='submit' id='Login' value='登•录• style='width:57px; background-color: #cccccc; height: 16px;'>" & vbCrLfIf ShowType = 1 ThenResponse.Write " <br><br>" & vbCrLfElseResponse.Write " </td>" & vbCrLfResponse.Write "<tr>" & vbCrLfResponse.Write "Response.Write "<td height='20'>" & vbCrLfEnd IfResponse.Write "<a href='" & strInstallDir & "Reg/' target='_blank'> 注册</a> <a href ='" & strInstallDir & "User/' target='_blank'> 忘记密码</a></td>" & vbCrLfResponse.Write "</tr></form></table>" & vbCrLf【效果截图】:无【注意事项】:其实是限定每个项目的高度即可使之对齐了6、语言包应用实例问答问:我想将”您所在的位置”这一提示改为”导航”如,何操作?答:修改Gb2312.xml中<Nav>您现在的位置:</Nav>为<Nav>导航</Nav>即可。

相关主题