动易程序修改技巧

vivafei

14、给普通管理员有备份数据库的权限
【修改项目】：后台管理
【适用版本】：2005、2006
【修改内容】：修改admin文件夹里面1177行.加上红色部分If AdminPurview = 1 or AdminPurview = 2 Then
    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='Images/Admin_left_03.gif' id=menuTitle206new Element.toggle('submenu206')"" style='cursor:hand;'><a href='Admin_Help_Database.asp' target='main'><span class=glow>数据库管理</span></a></td>" & vbCrLf

【效果截图】：无
【注意事项】：无

vivafei

15、相关文章如何去掉title
【修改项目】：系统标签
【适用版本】：2006
【修改内容】：去掉系统标签中{$CorrelativeArticle(5,50,4,1,1)}关于title的鼠标点击显示


可以在语言包Language/Gb2312.xml里面找到以下内容：
<Title><![CDATA[{$ChannelShortName}标题：{$Title}{$br}作&nbsp;&nbsp;&nbsp;&nbsp;者：{$Author}{$br}更新新新时间：{$UpdateTime}]]></Title>
改为：
<Title><![CDATA[]]></Title>
【效果截图】：无
【注意事项】：如修改的话，会把所有文章的title去掉。

vivafei

因为SiteWeaver6.5修改了注册文件，所以原来适用于动易2006的修改方法，在新版本中也要作相应的修改才可以适用于SiteWeaver6.5，具体修改如下：
限制已注册用户重复注册
【修改项目】：会员注册
【适用版本】：SiteWeaver6.5
【修改内容】：
打开Reg目录User_Reg1.asp文件，在
Dim strPath
If EnableUserReg <> True Then
    FoundErr = True
    ErrMsg = ErrMsg & "<li>对不起，本站暂停新用户注册服务！</li>"
    Call WriteErrMsg(ErrMsg, ComeUrl)
    Response.End
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)
        Response.End
    End If
保存，刷新即可。（在动易2006的修改中，蓝色字体部分是Exit Sub，而在SiteWeaver6.5中因为已没有Sub语句，直接套用动易2006的修改方法的话就会出现错误，所以应改为Response.End）
【效果截图】：

vivafei

显示详细相关产品居中对齐  只显示会员价格

【修改项目】：显示详细相关产品居中对齐  只显示会员价格
【适用版本】：Eshop6.5
【修改内容】：修改PowerEasy.Product.asp文件
<td align='left'>" & strLink & GetSubStr(rsCorrelative("ProductName"), TitleLen, ShowSuspensionPoints) & "</a><br>" & GetProductPrice(0, False, rsCorrelative("ProductType"), rsCorrelative("Price_Original"), rsCorrelative("Price"), rsCorrelative("Price_Market"), rsCorrelative("Price_Member"), rsCorrelative("BeginDate"), rsCorrelative("EndDate"), rsCorrelative("Discount")) & "</td></tr>"
改为<td align='center'>" & strLink & GetSubStr(rsCorrelative("ProductName"), TitleLen, ShowSuspensionPoints) & "</a><br>" & GetProductPrice(1, False, rsCorrelative("ProductType"), rsCorrelative("Price_Original"), rsCorrelative("Price"), rsCorrelative("Price_Market"), rsCorrelative("Price_Member"), rsCorrelative("BeginDate"), rsCorrelative("EndDate"), rsCorrelative("Discount")) & "</td></tr>"
【效果截图】：

【注意事项】：参数的选择  1  '只显示原价 2  '只显示当前价 3  '只显示市场价与原价 。。。。