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

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 (c)修改为相应的时间

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】

【来源：互联网络】