自己看的,好知道改了哪儿

论坛全面开启“验证码”之高枕无忧

如果是以前6.0管理后台带的验证码，在页面开始有可以找到这个变量，相信大家很容易就能搞定。而7.0的开始的页面无法找到正确的变量(找到的，也是前一个页面的变量)。所以，只能让验证码先执行，而最后再去取这个SESSION变量。

方法如下：

1）将以下代码保存成一个ASP文件（文件名自定，如：Dv_showcode.asp）传到根目录下

2）然后在后台风格修改一处地方。Main_Style(8)页面结束部分的最后加上以下这段代码：

OK了，马上开启你的所有验证码，体验一下.

反群发设置

1.进入后台，风格界面模板总管理，page_login,template.html(13)
<TR>
<TD class=tablebody1><B>密码问题</B>：<BR>忘记密码的提示问题</TD>

在此两句上面添加如下代码

<TR>
<TD class=tablebody1>
<div style="color:red"><b>反论坛群发必填项:</b></div>
<div>为了防止群发软件的恶意注册，</div>
<div>请回答以下问题</div>
<div style="color:blue;font-size=18px"><b>{$EvilQuesion}<b></div></TD>
<TD class=tablebody1><INPUT size=30 name=evilanswer> </TD>
</TR>

2. 打开reg.asp，找到
<!--#include file="inc/md5.asp"-->

在其下添加

<!--#include file="inc/CheckEvil.asp"-->

找到

TempLateStr=Replace(TempLateStr,"{$user_belief}",Selectinfo(5))

在其下添加

Randomize
Session("EvilID")=int(Rnd*QuesionNum)
TempLateStr=Replace(TempLateStr,"{$EvilQuesion}", QuesionArray(Session("EvilID")))

找到

Else
quesion=Request.form("quesion")
End If

在其下添加

If Request.Form("EvilAnswer")="" Then
ErrCodes=ErrCodes+"<li>"+"请填写防恶意注册问题!"
End If
If Not CheckEvil(Request.Form("EvilAnswer")) Then
ErrCodes=ErrCodes+"<li>"+ "防恶意注册问题回答错误，请返回重试。"
End If

3. 增加一个新文件CheckEvil.asp，填写如下代码，并上传到论坛inc目录下，即 /inc/CheckEvil.asp。

<%
Dim QuesionArray(100)
Dim AnswerArray(100)
Dim QuesionNum
QuesionNum=5 '请在这里正确设置问题的总数

Function CheckEvil(Answer)
Dim TrueAnswer
If Session("EvilID")="" Then
CheckEvil=False
Exit Function
End If
TrueAnswer=CStr(AnswerArray(Session("EvilID")))
If Answer=TrueAnswer Then
CheckEvil=true
End If

End Function
QuesionArray(0)="10+1等于多少？（提示：11）"
AnswerArray(0)="11"
QuesionArray(1)="我们的网址是什么？（提示：www.hulusi.com）"
AnswerArray(1)="www.hulusi.com"
QuesionArray(2)="“你来这是学习什么乐器？（提示：葫芦丝）"
AnswerArray(2)="葫芦丝"
QuesionArray(3)="“12+2等于多少（提示：14）"
AnswerArray(3)="14"
QuesionArray(4)="注册后，你愿意参与讨论吗？（提示：愿意）"
AnswerArray(4)="愿意"
%>

呵呵，得请我师傅来看才能懂

论坛同等级版主或管理不能相互编辑的修改

[QUOTE]记事本打开post.asp
找到:

If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then
Dvbbs.AddErrCode(75)
改为:
If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then
'Dvbbs.AddErrCode(75)

savepost.asp
找到:

If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then
Dvbbs.AddErrCode(75)
改为:
If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") then
'Dvbbs.AddErrCode(75)

说明:其实都是屏蔽掉了Dvbbs.AddErrCode(75)[/QUOTE]

固顶主题与列表分开

风格分页面模板(page_index)--template.html(1)找到：

[QUOTE]<xsl:for-each select="xml/toptopic/row">
<xsl:call-template name="topic"/>
</xsl:for-each>[/QUOTE]

替换成

[QUOTE]<div class="list">
<div class="list_a" style="padding-left:20px;text-align: left;width:100%;">
<strong>置顶帖子列表</strong>
</div>
</div>
<xsl:for-each select="xml/toptopic/row">
<xsl:call-template name="topic"/>
</xsl:for-each>
<div class="list">
<div class="list_a" style="padding-left:20px;text-align: left;width:100%;">
<strong>普通帖子列表</strong>
</div>
</div>[/QUOTE]

[此贴子已经被作者于2007-12-7 17:22:39编辑过]

asp代码。

老马会语言编写？

不会，就瞎用的

谦虚过甚，瞎用都能用好，也不简单啊。

帖子美化

[QUOTE]修改方法:
在后台 page_dispbbs--template.html(0)先备份，然后找到以下代码（中间部份我省略了）
<xsl:if test="/post/setting/@usertitle=1">
<xsl:if test="/post/userlist/user[@userid=$userid]/@usertitle != ''">
<div>
头衔：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@usertitle"/>
</div>

注册：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@joindate"/>
</div>
改变成:
<FIELDSET style="text-indent:5px;width:153px;padding:0px; border: thin dotted #FF0000; border-color: #3399CC; border-spacing:0" align="center">
<LEGEND style="height: 20px;" align="center">
<table border="1" cellpadding="0" cellspacing="0" bordercolor="#66CCCC" bgcolor="#99CCFF"><tr><td>
<b><font color="#FF0000">个人信息</font></b>
</td></tr></table>
</LEGEND>
<xsl:if test="/post/setting/@usertitle=1">
<xsl:if test="/post/userlist/user[@userid=$userid]/@usertitle != ''">
<div><img src="images/nlsweb/tx.gif" /><font color="#8E388E">
头衔：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@usertitle"/></font>
</div>
</xsl:if>
</xsl:if>
<div><img src="images/nlsweb/bh.gif" /><font color="#FF0000">
编号：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userid"/> 号</font>
</div>
<div><img src="images/nlsweb/dj.gif" /><font color="#66CD00">
等级：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userclass"/></font>
</div>
<xsl:if test="/post/userlist/user[@userid=$userid]/@userpower != 0">
<div><img src="images/nlsweb/ww.gif" /><font color="#FF3300">
威望：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userpower"/> 点</font>
</div>
</xsl:if>
<div><img src="images/nlsweb/wz.gif" /><font color="#0066FF">
文章：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userpost"/> 篇</font>
</div>
<div><img src="images/nlsweb/jf.gif" /><font color="#0909F7">
积分：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userep"/> 点</font>
</div>
<div><img src="images/nlsweb/ml.gif" /><font color="#CC33FF">
魅力：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@usercp"/> 点</font>
</div>
<div><img src="images/nlsweb/jq.gif" /><font color="#FF9900">
金钱：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userwealth"/> 元</font>
</div>
<div><img src="images/nlsweb/jb.gif" /><font color="#FF3300">
金币：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@usermoney"/> 枚</font>
</div>
<div><img src="images/nlsweb/dq.gif" /><font color="#FF3300">
点券：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userticket"/> 张</font>
</div>
<xsl:text disable-output-escaping="yes" ></xsl:text><xsl:text disable-output-escaping="yes" >
</xsl:text><img src="images/nlsweb/qq.gif" />
Q-ZONE：<xsl:if test="/post/userlist/user[@userid=$userid]/@oicq!=''">
<xsl:text disable-output-escaping="yes" > </xsl:text>
<a href="http://{/post/userlist/user[@userid=$userid]/@oicq}.qzone.qq.com" title="{@UserName}[{/post/userlist/user[@userid=$userid]/@oicq}]的QQ空间--记得踩踩哦！" target="_blank"><img src="images/qzone.gif" border="0" align="absmiddle"/></a>
</xsl:if>
<xsl:if test="/post/userlist/user[@userid=$userid]/@oicq=''">
<a href="modifyadd.asp" title="填写QQ资料"><font color="#CC00FF">登记空间</font></a>
</xsl:if>
<div><img src="images/nlsweb/sr.gif" /><font color="#FF00FF">
生日：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userbirthday"/></font>
</div>
<div><img src="images/nlsweb/dl.gif" />
登陆：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userlogins"/> 次
</div>
<div><img src="images/nlsweb/zc.gif" />
注册：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@joindate"/>
</div>
</FIELDSET>

<FIELDSET style="text-indent:2px;width:153px;padding:0px; border: thin dotted #FF0000; border-color: #3399CC; border-spacing:0" align="center">
<LEGEND style="height: 20px;" align="center">
<table border="1" cellpadding="0" cellspacing="0" bordercolor="#66CCCC" bgcolor="#99CCFF"><tr><td>
<b><font color="#FF0000">荣誉勋章</font></b>
</td></tr></table>
</LEGEND>
<center>
<div><xsl:value-of select="/post/userlist/user[@userid=$userid]/@nn_xzlist" disable-output-escaping="yes"/></div>
</center>

</FIELDSET>[/QUOTE]

2、

2: 修改dispbbs.asp 文件

[QUOTE]找到
'说明:postuserlist为发贴用户数据
Set Rs=Dvbbs.Execute("Select userid,useremail,UserIM,UserMobile,Usersign,userclass,Usertitle,Userwidth,Userheight,UserPost,Userface,JoinDate,userWealth,userEP,userCP,Userbirthday,Usersex,UserGroup,LockUser,userPower,titlepic,UserGroupID,LastLogin,UserHidden,IsChallenge,UserMoney,UserTicket,UserAvaSetting,UserIsAva From dv_user Where UserID IN ("& postuseridlist &")")

UserAvaSetting,后面添加
UserLogins,[/QUOTE]

[此贴子已经被作者于2007-12-26 21:17:31编辑过]

天哪，看晕了

个人信息内容超多使表格断线

[QUOTE]风格分页面模板(page_dispbbs)界面风格管理template.html(0)，找到：
<xsl:when test="post/agent/@browser='Microsoft Internet Explorer' and not(post/agent/@version > 6 )">height:220px;width:97%;padding:3px;overflow-x: hidden;</xsl:when>
把220改大一点就OK了，至于改多大，根据你的个人信息有多少来定[/QUOTE]