打印

论坛修改备案录

老马
毒舌派

职务：管理员

荣誉勋章

管理员勋章

1^# 大中小发表于 2007-12-7 15:27 只看该作者

论坛修改备案录

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

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

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

方法如下：

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

QUOTE:

if(typeof(document.all.codestr)=="object")document.all.codestr.value="<%=Session("GetCode")%>";

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

QUOTE:

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

葫芦丝淘宝店链接: http://hulusi520.taobao.com/

邮购业务联系QQ: 46686663 微信：hulusi9988

TOP

老马
毒舌派

职务：管理员

荣誉勋章

管理员勋章

2^# 大中小发表于 2007-12-7 15:28 只看该作者

反群发设置

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，找到

在其下添加

找到

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)="愿意"
%>

葫芦丝淘宝店链接: http://hulusi520.taobao.com/

邮购业务联系QQ: 46686663 微信：hulusi9988

TOP

千瓣莲花
无缘慈悲

职务：管理员

荣誉勋章

管理员勋章

3^# 大中小发表于 2007-12-7 15:32 只看该作者

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

见了便做做了便放下了了有何不了；慧生于觉觉生于自在生生还是无生
微信视频号：是千瓣莲花呀

TOP

老马
毒舌派

职务：管理员

荣誉勋章

管理员勋章

4^# 大中小发表于 2007-12-7 15:49 只看该作者

我头也大,

葫芦丝淘宝店链接: http://hulusi520.taobao.com/

邮购业务联系QQ: 46686663 微信：hulusi9988

TOP

老马
毒舌派

职务：管理员

荣誉勋章

管理员勋章

5^# 大中小发表于 2007-12-7 16:25 只看该作者

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

[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]

葫芦丝淘宝店链接: http://hulusi520.taobao.com/

邮购业务联系QQ: 46686663 微信：hulusi9988

TOP

老马
毒舌派

职务：管理员

荣誉勋章

管理员勋章

6^# 大中小发表于 2007-12-7 16:37 只看该作者

固顶主题与列表分开

风格分页面模板(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]