Microsoft VBScript 编译器错误 错误 '800a03f2'
缺少标识符
/admin/Common/Inc_Code.asp,行 75
fString = doCode(fString, "[img]","[/img]","<img src="../images/"",""" border=0>")
-------------------------------------------------------^
inc_code.asp文件内容:
第一行
<%
%>
<%
'/非HTML代码转换函数/
Function Html2Txt(vString)
vString = replace(vString, ">", ">")
vString = replace(vString, "<", "<")
vString = Replace(vString, CHR(32) & CHR(32) & CHR(32) & CHR(32), " ")
vString = Replace(vString, CHR(10) & CHR(10), "<br>")
vString = Replace(vString, CHR(10), "<BR>")
Html2Txt = vString
End Function
'/UBB代码转换函数/
'/--------------Start UBB Code--------------------------/
function UbbMl(fString)
UbbMl = ChkString(FormatStr(ReplaceColor(ReplaceFlash(HTMLEncode(fString)))))
end function
function doCode(fString, fOTag, fCTag, fROTag, fRCTag)
fOTagPos = Instr(1, fString, fOTag, 1)
fCTagPos = Instr(1, fString, fCTag, 1)
while (fCTagPos > 0 and fOTagPos > 0)
fString = replace(fString, fOTag, fROTag, 1, 1, 1)
fString = replace(fString, fCTag, fRCTag, 1, 1, 1)
fOTagPos = Instr(1, fString, fOTag, 1)
fCTagPos = Instr(1, fString, fCTag, 1)
wend
doCode = fString
end function
function HTMLEncode(fString)
fString = Replace(fString, CHR(32) & CHR(32) & CHR(32) & CHR(32), " ")
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
HTMLEncode = fString
end function
function ChkString(fString)
fString = doCode(fString, "
", " ", "<b>", "</b>")
fString = doCode(fString, "
", "", "<s>", "</s>")
fString = doCode(fString, "[strike]", "[/strike]", "<s>", "</s>")
fString = doCode(fString, "
", " ", "<u>", "</u>")
fString = doCode(fString, "
", " ", "<i>", "</i>")
fString = doCode(fString, "[font=宋体]", "[/font=宋体]", "<font face=宋体>", "</font id=宋体>")
fString = doCode(fString, "[font=楷体_GB2312]", "[/font=楷体_GB2312]", "<font face=楷体_GB2312>", "</font id=楷体_GB2312>")
fString = doCode(fString, "[font=新宋体]", "[/font=新宋体]", "<font face=新宋体>", "</font id=新宋体>")
fString = doCode(fString, "[font=黑体]", "[/font=黑体]", "<font face=黑体>", "</font id=黑体>")
fString = doCode(fString, "[font=隶书]", "[/font=隶书]", "<font face=隶书>", "</font id=隶书>")
fString = doCode(fString, "[font=Arial]", "[/font=Arial]", "<font face=Arial>", "</font id=Arial>")
fString = doCode(fString, "[h1]", "[/h1]", "<h1>", "</h1>")
fString = doCode(fString, "[h2]", "[/h2]", "<h2>", "</h2>")
fString = doCode(fString, "[h3]", "[/h3]", "<h3>", "</h3>")
fString = doCode(fString, "[h4]", "[/h4]", "<h4>", "</h4>")
fString = doCode(fString, "[h5]", "[/h5]", "<h5>", "</h5>")
fString = doCode(fString, "[h6]", "[/h6]", "<h6>", "</h6>")
fString = doCode(fString, "[size=1]", "[/size=1]", "<font size=1>", "</font id=size1>")
fString = doCode(fString, "[size=2]", "[/size=2]", "<font size=2>", "</font id=size2>")
fString = doCode(fString, "[size=3]", "[/size=3]", "<font size=3>", "</font id=size3>")
fString = doCode(fString, "[size=4]", "[/size=4]", "<font size=4>", "</font id=size4>")
fString = doCode(fString, "[size=5]", "[/size=5]", "<font size=5>", "</font id=size5>")
fString = doCode(fString, "[size=6]", "[/size=6]", "<font size=6>", "</font id=size6>")
fString = doCode(fString, "
", "<ul>", "</ul>")
fString = doCode(fString, "[list=1]", "[/list=1]", "<ol type=1>", "</ol id=1>")
fString = doCode(fString, "[list=a]", "[/list=a]", "<ol type=a>", "</ol id=a>")
fString = doCode(fString, "
", " [/*]", "<li>", "</li>")
fString = doCode(fString, "", "
", "<div align=left>", "</div id=left>")
fString = doCode(fString, "", "
", "<center>", "</center>")
fString = doCode(fString, "", "
", "<div align=right>", "</div id=right>")
fString = doCode(fString, "", "
", "<pre id=code><font face=courier size=" & strDefaultFontSize & " id=code>", "</font id=code></pre id=code>")
fString = doCode(fString, "引用 ", " ", "<BLOCKQUOTE id=quote>引用:<hr size=1 noshade id=quote>", "<hr size=1 noshade id=quote></BLOCKQUOTE id=quote>")
fString = replace(fString, " ", "<br>", 1, -1, 1)
fString = doCode(fString, "[img]","[/img]","<img src="../images/"",""" border=0>")
fString = doCode(fString, "[image]","[/image]","<img src="../images/"",""" border=0>")
fString = doCode(fString, "[img=right]","[/img=right]","<img align=right src="../images/"",""" id=right border=0>")
fString = doCode(fString, "[image=right]","[/image=right]","<img align=right src="../images/"",""" id=right border=0>")
fString = doCode(fString, "[img=left]","[/img=left]","<img align=left src="../images/"",""" id=left border=0>")
fString = doCode(fString, "[image=left]","[/image=left]","<img align=left src="../images/"",""" id=left border=0>")
ChkString = fString
end function
结尾是第82号,
第75行内容:
fString = doCode(fString, "[img]","[/img]","<img src="../images/"",""" border=0>")