填完注册资料 》》下一步的时候就出现下面情况 但是资料又能正常保存在服务器上：
Microsoft VBScript 编译器错误 错误 \'800a0411\'
名称重定义
/inc/ubbcode.asp，行 2
const ImagePath=\"/images/\"
------^
我的UBBCODE.asp的代码是下面的：
<%
const ImagePath=\"/images/\"
function UBBCode(strContent)
strContent= FilterJS(strContent)
dim re
dim po,ii
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
po=0
ii=0
re.Pattern=\"\\[HTML\\](.+?)\\[\\/HTML\\]\"
strContent=re.Replace(strContent,\" <table width=\'100%\' border=\'0\' cellspacing=\'0\' cellpadding=\'6\' class=tableborder1> <td> <b>以下内容为程序代码: </b> <br>$1 </td> </table>\")
re.Pattern=\"\\[code\\](.+?)\\[\\/code\\]\"
strContent=re.Replace(strContent,\" <table width=\'100%\' border=\'0\' cellspacing=\'0\' cellpadding=\'6\' class=tableborder1> <td> <b>以下内容为程序代码: </b> <br>$1 </td> </table>\")
re.Pattern=\"\\[color=(.+?)\\](.+?)\\[\\/color\\]\"
strContent=re.Replace(strContent,\" <font color=$1>$2 </font>\")
re.Pattern=\"\\[face=(.+?)\\](.+?)\\[\\/face\\]\"
strContent=re.Replace(strContent,\" <font face=$1>$2 </font>\")
re.Pattern=\"\\[align=(center|left|right)\\](.+?)\\[\\/align\\]\"
strContent=re.Replace(strContent,\" <div align=$1>$2 </div>\")
re.Pattern=\"\\[QUOTE\\](.+?)\\[\\/QUOTE\\]\"
strContent=re.Replace(strContent,\" <table style=\"\"width:80%\"\" cellpadding=5 cellspacing=1 class=tableborder1> <TR> <TD class=tableborder1>$1 </td> </tr> </table> <br>\")
re.Pattern=\"\\[fly\\](.+?)\\[\\/fly\\]\"
strContent=re.Replace(strContent,\" <marquee width=90% behavior=alternate scrollamount=3>$1 </marquee>\")
re.Pattern=\"\\[move\\](.+?)\\[\\/move\\]\"
strContent=re.Replace(strContent,\" <MARQUEE scrollamount=3>$1 </marquee>\")
re.Pattern=\"\\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\\](.[^\\[]*)\\[\\/GLOW]\"
strContent=re.Replace(strContent,\" <table width=$1 style=\"\"filter:glow(color=$2, strength=$3)\"\">$4 </table>\")
re.Pattern=\"\\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\\](.[^\\[]*)\\[\\/SHADOW]\"
strContent=re.Replace(strContent,\" <table width=$1 style=\"\"filter:shadow(color=$2, strength=$3)\"\">$4 </table>\")
re.Pattern=\"\\[i\\](.+?)\\[\\/i\\]\"
strContent=re.Replace(strContent,\" <i>$1 </i>\")
re.Pattern=\"\\[u\\](.+?)(\\[\\/u\\])\"
strContent=re.Replace(strContent,\" <u>$1 </u>\")
re.Pattern=\"\\[b\\](.+?)(\\[\\/b\\])\"
strContent=re.Replace(strContent,\" <b>$1 </b>\")
re.Pattern=\"\\[size=([1-4])\\](.+?)\\[\\/size\\]\"
strContent=re.Replace(strContent,\" <font size=$1>$2 </font>\")
strContent=replace(strContent,\" <I> </I>\",\"\")
set re=Nothing
UBBCode=strContent
end function
Function FilterJS(v)
if not isnull(v) then
dim t
dim re
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern=\"(javascript)\"
t=re.Replace(v,\"javascript\")
re.Pattern=\"(jscript:)\"
t=re.Replace(t,\"jscript:\")
re.Pattern=\"(js:)\"
t=re.Replace(t,\"js:\")
\'re.Pattern=\"(value)\"
\'t=re.Replace(t,\"value\")
re.Pattern=\"(about:)\"
t=re.Replace(t,\"about:\")
re.Pattern=\"(file:)\"
t=re.Replace(t,\"file:\")
re.Pattern=\"(document.cookie)\"
t=re.Replace(t,\"documents.cookie\")
re.Pattern=\"(vbscript:)\"
t=re.Replace(t,\"vbscript:\")
re.Pattern=\"(vbs:)\"
t=re.Replace(t,\"vbs:\")
re.Pattern=\"(on(mouse|exit|error|click|key))\"
t=re.Replace(t,\"on$2\")
\'re.Pattern=\"(&#)\"
\'t=re.Replace(t,\"＆#\")
FilterJS=t
set re=nothing
end if
End Function
function dvHTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, \">\", \">\")
fString = replace(fString, \" <\", \" <\")
fString = Replace(fString, CHR(32), \"\")
fString = Replace(fString, CHR(9), \"\")
fString = Replace(fString, CHR(34), \"\"\")
fString = Replace(fString, CHR(39), \"'\")
fString = Replace(fString, CHR(13), \"\")
fString = Replace(fString, CHR(10) & CHR(10), \" </P> <P>\")
fString = Replace(fString, CHR(10), \" <BR>\")
dvHTMLEncode = fString
end if
end function
function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern=\"(\\ <.*?\\>)\"
str=re.replace(str,\"\")
re.Pattern=\"(\\ <\\/.*?\\>)\"
str=re.replace(str,\"\")
nohtml=str
end function
%>
请教： 该怎么处理！！！谢谢
网站：www.ooxiu.cn |
此帖若涉嫌违规或侵权，请点击举报！
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
