找错误：详情见，找错误，谢谢，100分奉上，追加100分！！现场求救！

[xinye]

ubb.asp 文件

<%
function ChkBadWords(fString)
bwords = split(BadWords, "|")
for i = 0 to ubound(bwords)
fString = Replace(fString, bwords(i), string(len(bwords(i)),"*"), 1,-1,1)
next
ChkBadWords = 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, ">", ">")
fString = replace(fString, "<", "<")

fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode = fString
end function
function HTMLDecode(fString)

fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")

fString = Replace(fString, "", CHR(13))
fString = Replace(fString, "</P><P>", CHR(10) & CHR(10))
fString = Replace(fString, "<BR>", CHR(10))
HTMLDecode = fString
end function

function HTMLDecode1(fString)

fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, "", CHR(13))
fString = Replace(fString, "</P><P>", CHR(10) & CHR(10))
fString = Replace(fString, "<BR>", CHR(10))
HTMLDecode1 = fString
end function



function UBBCode(strContent)

if strAllowHTML <> 1 then
strContent = HTMLEncode(strContent)
end if
dim re
set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern="(\[URL\])(http:\/\/\S+?)(\[\/URL\])"
strContent= re.Replace(strContent,"<img src=img/url_1.gif border=0><A HREF=""$2"" TARGET=_blank>$2</A>")
re.Pattern="(\[URL\])(\S+?)(\[\/URL\])"
strContent= re.Replace(strContent,"<img src=img/url_1.gif border=0><A HREF=""http://$2"" TARGET=_blank>$2</A>")

re.Pattern="(\[URL=(http:\/\/\S+?)\])(.+?)(\[\/URL\])"
strContent= re.Replace(strContent,"<img src=img/url_1.gif border=0><A HREF=""$2"" TARGET=_blank>$3</A>")
re.Pattern="(\[URL=(\S+?)\])(.+?)(\[\/URL\])"
strContent= re.Replace(strContent,"<img src=img/url_1.gif border=0><A HREF=""http://$2"" TARGET=_blank>$3</A>")

re.Pattern="(\[EMAIL\])(\S+\@\S+?)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"<img src=img/email_1.gif border=0><A HREF=""mailto:$2"">$2</A>")
re.Pattern="(\[EMAIL=(\S+\@\S+?)\])(.+?)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"<img src=img/email_1.gif border=0><A HREF=""mailto:$2"" TARGET=_blank>$3</A>")
rem *******href ubb********
re.Pattern = "\[FLASH](.[^\[]*)\[\/FLASH]"
strContent = re.Replace(strContent,"<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=400 height=300><PARAM NAME=movie VALUE=""$1""><PARAM NAME=quality VALUE=high><embed src=""$1"" quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=400 height=300>$1</embed></OBJECT>")
rem *******flash ubb********
re.Pattern="\[IMG](.[^\[]*)\[\/IMG]"
strContent=re.Replace(strContent,"<a href=""$1"" target=_blank><IMG SRC=""$1"" border=0 onload='javascript:if(this.width>560) this.width=560'></a>")
rem *******img ubb********
strContent = doCode(strContent, "

• ", "[/list]", "<ul>", "</ul>")
  strContent = doCode(strContent, "
  1. ", "
  ", "<ol type=1>", "</ol id=1>")
  strContent = doCode(strContent, "[list=a]", "

", "<ol type=a>", "</ol id=a>")
strContent = doCode(strContent, "

• ", "
• [/*]", "<li>", "</li>")
  strContent = doCode(strContent, "

  ", "

  ", "<hr width=70% size=1 color=#808000 align=left>代码：<pre id=code style=""margin-left:30""><font face=""Verdana, Arial"" color=#808080 id=code style=font-size:8pt>", "</font id=code></pre id=code><hr width=70% size=1 color=#808000 align=left>")
  strContent = doCode(strContent, "
  引用

  ", "

  ","<hr width=70% size=1 color=#808000 align=left>引用：<p style=""margin-left:30"" id=quote><font face=""Verdana, Arial"" color=#808080 id=code style=font-size:8pt>", "</font id=code></p id=quote><hr width=70% size=1 color=#808000 align=left>")
  strContent=ChkBadWords(strContent)
  UBBCode = strContent
  end function
  %>
  
  
  
  Microsoft VBScript 运行时错误 错误 '800a139a'
  
  错误的数量词
  
  /allrun/jiujiusibbs/inc/ubb.asp，行67

[popcode]

67行在哪里？

[CTBOK]

不管67在哪，我说吧，你这个正则表达式，在没有装ie 5.5以上的机器是不能运作的，而现在绝大部分的机器都是没装的，除非是你自己托管的，特别是那些虚拟主机。你还是死了这条心吧

[xgn]

问问题是最好简单明确一些。

[xxjmz_78]

你按以下的设置试试：
在站点配置结束后，你还要进行“配置服务器扩展”，然后右击你新建得站点，点击“属性”，在弹出得“属性”对话框里得“目录安全性”中“匿名访问和验证控制”中点击“编辑”-->“验证方法"中得“编辑”-->“匿名用户帐户”中选择administrator用户进入。“允许iis控制密码”选中。

[net_boy]

怎么这样问问题？想把大家累死呀？说的不明不白的！稀里糊涂
！