网站升级的注意事项和需要修改的文件

    1.取消默认的终审通过时站内短信和Email通知功能

    改法：修改Admin目录下Admin_CommonCode_Content.asp文件的

Sub ShowTabs_Status_Modify(rsInfo)－－（在第460行）修改这里就不显示提示了

把第505行

Response.Write " onClick=""tabMsg.style.display='';document.myform.MsgTitle.value='稿件录用通知';document.myform.MsgContent.value='" & EmailOfPassed & "';"""

改为

 Response.Write " onClick=""tabMsg.style.display='none';"""

    或者直接再修改下面的把checked去掉，他可以提示然后您自己选择，很好。

Response.Write "            <td width='120' align='right' class='tdbg5'>通知录入者：</td><td><input type='checkbox' name='SendMessageToInputer' value='Yes' checked>发送站内短信通知录入者    <input type='checkbox' name='SendEmailToInputer' value='Yes' checked>发送Email通知录入者</td> "

    2.让会员的身份资料（如身份证）不能再次更改

    加入readonly属性即可，例如修改会员身份证为不可更改，则修改user文件夹里面的User_Info_Code.asp文件，把

Response.Write " <td width='38%'><input name='IDCard' type='text' size='35' maxlength='20' value='" & IDCard & "'></td>" & vbCrLf

改成

Response.Write " <td width='38%'><input name='IDCard'  type='text' readonly='readonly' size='35' maxlength='20' value='" & IDCard & "'></td>" & vbCrLf　

    3.取消用户登录提示自动返回

    查找User目录User_Chklogin.asp文件内的Call WriteSuccessMsg("您已成功登陆，欢迎您的光临!", ComeUrl) ，修改为以下代码

Call CloseConn

Response.redirect ComeUrl

    4.限制已注册（已登录系统的）用户重复注册

   【修改项目】：用户注册模块

   【适用版本】：SiteWeaver6.5

   【修改内容】：查找Reg目录User_Reg.asp文件内的Call ReplaceCommonLabel，在其下添加以下代码即可：

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

【效果截图】：无

【注意事项】：无，如果不需要阅读用户注册声明（把Reg.asp的链接改为Reg1.asp，就不用再等8秒看那么长的注册声明了），可直接在Reg1.asp里的

Dim strPath

If EnableUserReg <> True Then

    FoundErr = True

    ErrMsg = ErrMsg & "<li>对不起，本站暂停新用户注册服务！</li>"

    Call WriteErrMsg(ErrMsg, ComeUrl)

    Response.End

End If   下面添加以上代码即可

    5.用户文章显示表宽度

    修改UserList.asp

    Dim UserHomepage, UserQQ, UserICQ, UserMSN, UserSex, UserEmail, UserRegTime, UserPass

        strUserList = strUserList & "<table width='990'

    最后的100%修改为需要的值

    6.用户登录框长度修改

    修改UserLogin.asp

    style='width:80px;'>  将110px修改为需要的值

    7.修改后台下面的版权时间

    Admin/Admin_Help_Channel.asp等Admin_Help_打头的几个文件

    Copyright 2003 ©修改为相应的时间

    8.后台版权修改

    Admin/Admin_Index_Left.asp

    Admin/Admin_Index_Top.asp

    9.网站后台安全的又一点做法—重排验证码

    修改文件：Admin/Admin_Login.asp：

    查找代码：

    AdminLoginCode = Trim(Request("AdminLoginCode"))

    在下面添加代码：

    Dim CheckCodet

    CheckCodet = CheckCodet & Mid(Session("CheckCode"), 6, 1)

    CheckCodet = CheckCodet & Mid(Session("CheckCode"), 5, 1)

    CheckCodet = CheckCodet & Mid(Session("CheckCode"), 4, 1)

    CheckCodet = CheckCodet & Mid(Session("CheckCode"), 3, 1)

    CheckCodet = CheckCodet & Mid(Session("CheckCode"), 2, 1)

    CheckCodet = CheckCodet & Mid(Session("CheckCode"), 1, 1)

    Session("CheckCode") = CheckCodet '更新CheckCode的Session值为重新排列后的值

    10.友情连接修改

    FriendSite/FriendSiteReg.asp中的连接信息

    FriendSite/index.asp

    If i Mod 4 = 0 Then中的4修改为需要的值

    sqlLink = "select top 20 ID中的修改为需要的值

    11.给评论内容加上留言本的屏蔽垃圾广告功能

    修改Include/PowerEasy.Comment.asp文件：

    查找代码：

    CommentUserContent = PE_HTMLEncode(CommentUserContent)

在下面加入：

    If GuestBook_EnableManageRubbish = True And ManageRubbishContent(GuestBook_ManageRubbish, CommentUserContent) Then '秘书工作测试

        FoundErr = True

        ErrMsg = ErrMsg & "<li>您输入的内容涉嫌广告，禁止评论！</li>"

        Exit Sub

    End If

    再在最后的%>上面加入：

'=================================================

'函数名：ManageRubbishContent()

'作  用：屏蔽垃圾广告子函数

'参  数：无

'=================================================

Private Function ManageRubbishContent(ByVal GuestBook_ManageRubbish, ByVal GuestContent)

    Dim RubbishContent

    RubbishContent = False

    ManageRubbishContent = RubbishContent

    Dim i, obj

    If GuestBook_ManageRubbish = "" Or IsNull(GuestBook_ManageRubbish) Then

        RubbishContent = False

        Exit Function

    End If

    obj = Split(GuestBook_ManageRubbish, "$$$")

    If GuestContent = "" Then Exit Function

    For i = 0 To UBound(obj)

        If Trim(obj(i)) <> "" And InStr(GuestContent, Trim(obj(i))) > 0 Then

            RubbishContent = True

            If RubbishContent Then Exit For

        End If

    Next

    ManageRubbishContent = RubbishContent

End Function   

    12.评论栏宽度和字号的修改

    Include/PowerEasy.Comment_Ajax.asp

Response.Write "  <tr class=""commentTitle"">"

Response.Write "    <td width=""6%"">序号</td>"

Response.Write "    <td>摘      要</td>"

Response.Write "    <td width=""12%"">评论人</td>"

Response.Write "    <td width=""6%"">评分</td>"

Response.Write "    <td width=""12%"">日  期</td>"

Response.Write "    <td width=""6%"">状态</td>"

Response.Write "    <td width=""8%"">回复人</td>"

Response.Write "    <td width=""6%"" class=""commentTdEnd"">展开</th>"

Response.Write "  </tr>"

    13.网站顶部竖条颜色

    修改Language中Gb2312.xml

<ChannelLink><![CDATA[<font color="#FFFFFF"> | </font>]]></ChannelLink>

    14. 登录退出时自动返回首页

    修改User/User_Logout.asp文件   

    在最后添加跳转代码<meta http-equiv="refresh" content="0; url=/index.asp" />

    15、怎么修改文章内容文字的字体大小，行高，行距

    <SPAN style="font-size:14.8px;line-height:24px;letter-spacing:1px;PADDING: 15px">

{$ArticleContent} </span>

    注释：

    font-size:14.8px 文字大小  line-height:24px 行高  letter-spacing:1px 文字间距  PADDING: 15px

    文字与表格边框的距离。

    16、怎样一进网站就进入文章首页？

    <%response.redirect "Article/Index.asp"%>

    17、为什么图片和文字的距离这么小？

.pic1 /*文章栏目图片边框 */

{

 border-top-width: 2px;

 border-right-width: 2px;

 border-bottom-width: 2px;

 border-left-width: 2px;

 border-top-style: solid;

 border-right-style: solid;

 border-bottom-style: solid;

 border-left-style: solid;

 border-top-color: #ffffff;

 border-right-color: #ffffff;

 border-bottom-color: #ffffff;

 border-left-color: #ffffff;

filter:progid:dximagetransform.microsoft.glow(color=#000000,strength=1);

}

    注释：

    图片与(上、下、左、右)的距离、边线属性 (solid实线 dashed虚线等) 颜色 发光颜色及距离

    18、如何修改默认文章标题行间距？

.listbg /* --栏目文章列表内容间隔颜色的定义1-- */

{

height: 24;border-bottom: 1px dashed #cccccc;

}

.listbg2 /* --栏目文章列表内容间隔颜色的定义2-- */

{

height: 24;border-bottom: 1px dashed #cccccc;

}

    注释：

height: 24; 行高

border-bottom: 1px dashed #cccccc;  低部线粗细1像素 虚线 颜色#cccccc

有关更多常用的CSS修改，请看：

http://bbs.powereasy.net/dispbbs.asp?BoardID=28&replyID=67887&id=174309&skin=0

    19、怎么样在首页中调用文章频道的菜单？

    加在头部 <SCRIPT language=JavaScript1.2 src="/js/stm31.js" type=text/javascript></SCRIPT>

    加在需要显示的位置： <script language=JavaScript1.2 src="/wenxuJS/ShowClass_Menu.js"></script>

    如果需要调用其他的请修改 Article 为其他目录名称 如：下载为soft

    20、如何让公告自动出现滚动条？

    公告模板里查找：

{$AnnounceList}{$ShowPage}

替换为：

<DIV style="OVERFLOW-Y: auto;SCROLLBAR-FACE-COLOR: #ffffff;SCROLLBAR-HIGHLIGHT-COLOR:

#ffffff; OVERFLOW: auto;SCROLLBAR-SHADOW-COLOR: #919192;SCROLLBAR-3DLIGHT-COLOR: #ffffff;

LINE-HEIGHT: 150%; SCROLLBAR-ARROW-COLOR: #919192; SCROLLBAR-TRACK-COLOR: #ffffff;

SCROLLBAR-DARKSHADOW-COLOR: #ffffff; LETTER-SPACING: 1pt; HEIGHT: 300px; TEXT-ALIGN: left">

{$AnnounceList}{$ShowPage}</div>

    21、如何在一段内容后出现“[详情]”字样

【ArticleList(0,0,0,0,1,False,False,"",0,3,False,111,0)】·<A href="{$ArticleUrl}" target="_blank">[详情]</A>【/ArticleList】