修改方法:
1、打开in/main.js文件,在文件最后其中增加如下几个函数:
//Opens a shim, if no shim exists for the menu, one is created
function openShim(menu,menuItem)
{
if (menu==null) return;
var shim = getShim(menu);
if (shim==null) shim = createMenuShim(menu,getShimId(menu));
//Change menu zIndex so shim can work with it
menu.style.zIndex = 100;
var width = (menu.offsetWidth == 0 ? menuItem.renderedWidth : menu.offsetWidth);
var height;
if (menu.offsetHeight == 0)
{
var menus = getMenuItemCount(menu);
height = menuItem.renderedHeight * menus;
}
else
{
var height = menu.offsetHeight;
}
//Closes the shim associated with the menu
function closeShim(menu)
{
if (menu==null) return;
var shim = getShim(menu);
if (shim!=null) shim.style.display = "none";
}
//Creates a new shim for the menu
function createMenuShim(menu)
{
if (menu==null) return null;
var shim = document.createElement("<iframe scrolling='no' frameborder='0'"+
"style='position:absolute; top:0px;"+
"left:0px; display:none'></iframe>");
shim.name = getShimId(menu);
shim.id = getShimId(menu);
//Unremark this line if you need your menus to be transparent for some reason
//shim.style.filter="progid:DXImageTransform.Microsoft.Alpha(style=0,opacity=0)";
REM :签名移动(如需使用则把以下屏蔽去掉)
'If InStr(Lcase(s),"[/fly]")>0 Then s=Dv_UbbCode_S1(s,"\[fly\]","\[\/fly\]","fly","<marquee width=90% behavior=alternate scrollamount=3>$1</marquee>")
'If InStr(Lcase(s),"[/move]")>0 Then s=Dv_UbbCode_S1(s,"\[move\]","\[\/move\]","move","<MARQUEE scrollamount=3>$1</marquee>")
If Request.form("quesion")="" Then
ErrCodes=ErrCodes+"<li>"+template.Strings(11)
Else
quesion=Request.form("quesion")
End If
If Request.form("answer")="" Then
ErrCodes=ErrCodes+"<li>"+template.Strings(11)
ElseIf Request.form("answer")=Request.form("oldanswer") Then
answer=Request.form("answer")
Else
answer=md5(Request.form("answer"),16)
End If
在其下面插入
'防止恶意注册添加项 by tlm
If Request.form("Forumname")="" Then
Response.redirect "showerr.asp?ErrCodes=<li>您没有回答“防恶意注册问题答案”!&action=OtherErr"
Else
If Request.form("Forumname")<>Dvbbs.Forum_Info(0) Then
Response.redirect "showerr.asp?ErrCodes=<li>请回答正确的“防恶意注册问题答案”!&action=OtherErr"
End If
End If