signed 发表于 2008-10-30 12:57:55

请教个问题：ASP+MSSQL网站注册

填完注册资料 》》下一步的时候就出现下面情况但是资料又能正常保存在服务器上：
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\\]\"
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\\]\"
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\\]\"
strContent=re.Replace(strContent,\" <font color=$1>$2 </font>\")
re.Pattern=\"\\(.+?)\\[\\/face\\]\"
strContent=re.Replace(strContent,\" <font face=$1>$2 </font>\")
re.Pattern=\"\\(.+?)\\[\\/align\\]\"
strContent=re.Replace(strContent,\" <div align=$1>$2 </div>\")

re.Pattern=\"\\(.+?)\\[\\/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\\]\"
strContent=re.Replace(strContent,\" <marquee width=90% behavior=alternate scrollamount=3>$1 </marquee>\")
re.Pattern=\"\\(.+?)\\[\\/move\\]\"
strContent=re.Replace(strContent,\" <MARQUEE scrollamount=3>$1 </marquee>\")
re.Pattern=\"\\*),*(#**),*(*)\\](.[^\\[]*)\\[\\/GLOW]\"
strContent=re.Replace(strContent,\" <table width=$1 style=\"\"filter:glow(color=$2, strength=$3)\"\">$4 </table>\")
re.Pattern=\"\\*),*(#**),*(*)\\](.[^\\[]*)\\[\\/SHADOW]\"
strContent=re.Replace(strContent,\" <table width=$1 style=\"\"filter:shadow(color=$2, strength=$3)\"\">$4 </table>\")

re.Pattern=\"\\(.+?)\\[\\/i\\]\"
strContent=re.Replace(strContent,\" <i>$1 </i>\")
re.Pattern=\"\\(.+?)(\\[\\/u\\])\"
strContent=re.Replace(strContent,\" <u>$1 </u>\")
re.Pattern=\"\\(.+?)(\\[\\/b\\])\"
strContent=re.Replace(strContent,\" <b>$1 </b>\")
re.Pattern=\"\\)\\](.+?)\\[\\/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,\"&#106avascript\")
re.Pattern=\"(jscript:)\"
t=re.Replace(t,\"&#106script:\")
re.Pattern=\"(js:)\"
t=re.Replace(t,\"&#106s:\")
\'re.Pattern=\"(value)\"
\'t=re.Replace(t,\"&#118alue\")
re.Pattern=\"(about:)\"
t=re.Replace(t,\"about&#58\")
re.Pattern=\"(file:)\"
t=re.Replace(t,\"file&#58\")
re.Pattern=\"(document.cookie)\"
t=re.Replace(t,\"documents&#46cookie\")
re.Pattern=\"(vbscript:)\"
t=re.Replace(t,\"&#118bscript:\")
re.Pattern=\"(vbs:)\"
t=re.Replace(t,\"&#118bs:\")
re.Pattern=\"(on(mouse|exit|error|click|key))\"
t=re.Replace(t,\"&#111n$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), \"&#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

tigerok 发表于 2008-10-30 14:10:31

帮你顶一下

lixiayun 发表于 2008-10-31 03:05:43

sunway888 发表于 2008-11-16 16:21:10

检查一下当前页,应该是ImagePath这个常量已定义过了
页: [1]
查看完整版本: 请教个问题：ASP+MSSQL网站注册