网站之家技术交流论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 2614|回复: 13

动易程序修改技巧

[复制链接]
发表于 2012-12-9 06:05:07 | 显示全部楼层 |阅读模式
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://你的网址/")
【效果截图】:无
【注意事项】:无



回复

使用道具 举报

 楼主| 发表于 2012-12-9 06:05:36 | 显示全部楼层
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

【效果截图】:无
【注意事项】:其实是限定每个项目的高度即可使之对齐了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-9 06:05:54 | 显示全部楼层
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>
即可。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-9 06:06:07 | 显示全部楼层
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
保存,刷新即可。
【效果截图】:无
【注意事项】:无
回复 支持 反对

使用道具 举报

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-9 06:06:53 | 显示全部楼层
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 & ""替换以上代码即可
【效果截图】:[url=http://bbs.powereasy.net/UploadFile/2006-6/200661910203134853.jpg][/url]
【注意事项】:无

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-9 06:07:05 | 显示全部楼层
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
%>

【效果截图】:无
【注意事项】:无
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-9 06:07:18 | 显示全部楼层
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

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

回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-9 06:08:25 | 显示全部楼层
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/ 覆盖源文件即可






回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-9 06:10:31 | 显示全部楼层
13、修改栏目名称的颜色
【修改项目】:语言包内的栏目颜色设置
【适用版本】:2005、2006
【修改内容】:在语言包中查找

改为:{$Text}]]]>
然后更新缓存。颜色可以自己换。
【效果截图】:[url=http://bbs.powereasy.net/UploadFile/2007-12/2007121011541040426.jpg][/url]
【注意事项】:无

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|网站之家技术交流论坛 ( 粤ICP备09092995号 )

GMT+8, 2024-10-18 14:25 , Processed in 0.109989 second(s), 8 queries , File On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表