Microsoft VBScript 运行时错误 (0x800A000B)问题，请教高手，急

紧急请教高手： 万分感谢

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<!----------------------------获取各字段------------------------------------->
<%
sid=s1
if request("lan") = "" then
lan = 0
else
lan = 1
end if

'''''''''''''''''''''''''''''''获取新闻列表或是新闻具体内容的sql''''''''''''''''''''''''''''''''''
if s1<>"" then
set rs3=server.CreateObject("ADODB.RecordSet")
rs3.Source="select type from smallclass where id = " & sid
rs3.Open rs3.Source,conn,1,1
if not rs3.eof then
itype = rs3("type")
end if
rs3.close
set rs2=server.CreateObject("ADODB.RecordSet")
rs2.open "select * from news where sid = " & s1 &" and check = 1 order by newsid desc",conn,3,3
else
set rs2=conn.execute ("select top 1 * from news where newsid = " & newsid &" and check = 1")
if  rs2.eof then
response.Write("没有此文章")
response.end
end if

end if
    if not rs2.eof then
Title=trim(rs2("Title"))
about=trim(rs2("about"))
Author=trim(rs2("Author"))
Original=trim(rs2("Original"))
image=rs2("image")
UpdateTime=trim(rs2("UpdateTime"))
News_Content=trim(rs2("Content"))
hot=rs2("hot")
SpecialID=rs2("SpecialID")
click=rs2("click")
EnCode=trim(rs2("EnCode"))
iposition=rs2("position")
ipicsize=rs2("picsize")
titlesize=rs2("titlesize")
newsid=rs2("newsid")

if ipicsize=1 then
wid= 400
else
if ipicsize=2 then
wid= 250
else  
wid = 150
if iposition =1 then
popo=1
end if
          end if
end if
end if

'''''''''''''''''''''''''''''''获取新闻列表或是新闻具体内容的sql''''''''''''''''''''''''''''''''''


%>
<%function HotImage(PersonID,i)

set DelectFile=server.CreateObject("scripting.filesystemobject")
CurrentPath=server.MapPath("images/news/")

FileName=CurrentPath  & "\" & PersonID & "-" & i & ".gif"
if DelectFile.FileExists(FileName) then
HotImage="<img src='images/news/" & PersonID & "-" & i & ".gif' border=0 width='150'>"
exit function
else


FileName=CurrentPath  & "\" & PersonID & "-" & i & ".swf"
if DelectFile.FileExists(FileName) then
HotImage="<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-244553540000'  codebase='http://download.,0,0,0' width='100' height='125'><param name=movie value='images/Occupation/" & PersonID & "-" & i & ".swf'><param name=quality value=high><embed src='images/Occupation/" & PersonID & "-" & i & ".swf' pluginspage='http://www.' type='application/x-shockwave-flash' width='100' height='125'></embed></object>"
exit function
else                  
FileName=CurrentPath  & "\" & PersonID & "-" & i & ".jpg"
if DelectFile.FileExists(FileName) then
HotImage="<img src='images/news/" & PersonID & "-" & i & ".jpg' border=0 width='150'>"
exit function
else

HotImage="<img src='images/news/" & PersonID & "-" & i & ".bmp' border=0 width='150' height='112'>"
exit function
end if
end if
end if
end function
%>

<%
function HotImg(NewsID,i)

set DelectFile=server.CreateObject("scripting.filesystemobject")
CurrentPath=server.MapPath("images/news/")

FileName=CurrentPath  & "\" & NewsID & "-" & i & ".gif"
if DelectFile.FileExists(FileName) then
HotImg="<img src='images/news/" & NewsID & "-" & i & ".gif' border=1 width='150'>"
exit function
else


FileName=CurrentPath  & "\" & NewsID & "-" & i & ".swf"
if DelectFile.FileExists(FileName) then
HotImg="<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.,0,0,0' width='150'><param name=movie value='images/news/" & NewsID & "-" & i & ".swf'><param name=quality value=high><embed src='images/news/" & NewsID & "-" & i & ".swf' pluginspage='http://www.' type='application/x-shockwave-flash' width='150'></embed></object>"
exit function
else                  
FileName=CurrentPath  & "\" & NewsID & "-" & i & ".jpg"
if DelectFile.FileExists(FileName) then
HotImg="<img src='images/news/" & NewsID & "-" & i & ".jpg' border=1 width='150'>"
exit function
else

HotImg="<img src='images/news/" & NewsID & "-" & i & ".bmp' border=1 width='150'>"
exit function
end if
end if
end if
end function

function delectimagepath(NewsID,i)   'href
pathleft = "images/news/" & NewsID & "-" & i
set mainfile=server.CreateObject("scripting.filesystemobject")
mainpath=server.MapPath("images/news/")
imaName=mainPath  & "\"& NewsID & "-" & i & ".gif"
if mainfile.FileExists(imaName) then
DelectImagepath=pathleft & ".gif"
exit function
else
imaName=mainPath  & "\"& NewsID & "-" & i & ".swf"
if mainfile.FileExists(imaName) then
DelectImagepath="images/news/" & NewsID & "-" & i & ".swf"
exit function
else
imaName=mainPath  & "\"& NewsID & "-" & i & ".jpg"
if mainfile.FileExists(imaName) then
DelectImagepath=pathleft & ".jpg"
exit function
else
imaName=mainPath  & "\"& NewsID & "-" & i & ".bmp"
if mainfile.FileExists(imaName) then
DelectImagepath=pathleft & ".bmp"
exit function
else
DelectImageimagepath=""
exit function
end if
end if
end if
end if
end function


function DelectImageFile(NewsID,i)   ' src
fileleft="<img src='images/news/" & NewsID & "-" & i
set DelectFile=server.CreateObject("scripting.filesystemobject")
CurrentPath=server.MapPath("images/news/")
FileName=CurrentPath  & "\"& NewsID & "-" & i & ".gif"
if DelectFile.FileExists(FileName) then
DelectImageFile= fileleft &".gif' width='"&wid&"'>"
exit function
else

FileName=CurrentPath  & "\" & NewsID & "-" & i & ".swf"
if DelectFile.FileExists(FileName) then
DelectImageFile="<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.,0,0,0' width='"&wid&"'><param name=movie value='images/news/" & NewsID & "-" & i & ".swf'><param name=quality value=high><embed src='images/news/" & NewsID & "-" & i & ".swf' pluginspage='http://www.' type='application/x-shockwave-flash' width='"&wid&"'></embed></object>"
exit function
else                  
FileName=CurrentPath  & "\"& NewsID & "-" & i & ".jpg"
if DelectFile.FileExists(FileName) then
DelectImageFile=fileleft & ".jpg'  width='"&wid&"'>"
exit function
else

DelectImageFile=fileleft & ".bmp' width='"&wid&"'>"
exit function
end if
end if
end if
end function

function DelectImageFile_Upload(NewsID,i)
set DelectFile=server.CreateObject("scripting.filesystemobject")
CurrentPath=server.MapPath("images/news/")
FileName=CurrentPath  & "\" & NewsID & "-" & i & ".gif"
if DelectFile.FileExists(FileName) then
DelectImageFile_Upload= NewsID & "-" & i & ".gif"
exit function
else
FileName=CurrentPath  & "\" & NewsID & "-" & i & ".jpg"
if DelectFile.FileExists(FileName) then
DelectImageFile_Upload= NewsID & "-" & i & ".jpg"
exit function
else
FileName=CurrentPath  & "\" & NewsID & "-" & i & ".swf"
if DelectFile.FileExists(FileName) then
DelectImageFile_Upload= NewsID & "-" & i & ".swf"
exit function
else
FileName=CurrentPath  & "\" & NewsID & "-" & i & ".bmp"
if DelectFile.FileExists(FileName) then
DelectImageFile_Upload= NewsID & "-" & i & ".bmp"
exit function
else
DelectImageFile_Upload=""
exit function
end if
end if
end if
end if
end function


Function SelfEnCode(content,ImageNum)
Image=ImageNum
'  TempContent=replace(TempContent,"<","&lt;")
'  TempContent=replace(TempContent,">","&gt;")
if image>0 then
if iposition="1" then
tempcontent ="<table width=""100%"" border=""0"" align=""center""><tr><td align=""center"">"
for i=1 to image
TempContent=TempContent&"<a href="&delectimagepath(NewsID,i)&">"& DelectImageFile(NewsID,i)&"</a>&nbsp;&nbsp;"
if i mod ipicsize = 0 then
tempcontent = tempcontent&"<br><br>"
end if
next
TempContent=tempcontent&"<br>"
tempcontent = tempcontent&"</td></tr></table>"&content
else
TempContent=content
tempcontent = tempcontent&"<br><table width=""100%"" border=""0"" align=""center""><tr><td align=""center"">"
for i=1 to image
TempContent=TempContent&"<a href="&delectimagepath(NewsID,i)&">"& DelectImageFile(NewsID,i)&"</a>&nbsp;&nbsp;"
if i mod ipicsize = 0 then 此行有错，提示Microsoft VBScript 运行时错误 (0x800A000B))
tempcontent = tempcontent&"<br><br>"
end if

next
tempcontent = tempcontent&"</td></tr></table>"
end if
else tempcontent=tempcontent&content
end if
TempContent=replace(TempContent,"[[","<")
TempContent=replace(TempContent,"]]",">")
TempContent="&nbsp;&nbsp;&nbsp;&nbsp;" & TempContent

SelfEnCode=TempContent

End Function




Function HtmlSelfEnCode(content,ImageNum)

Image=ImageNum
TempContent=content
if image>0 then
for i=1 to image
TempContent=TempContent&"<a href='images/news/" & NewsID & "-" & i & ".gif'>"& DelectImageFile(NewsID,i)&"</a>"
next
end if
TempContent=replace(TempContent,"[[","<")
TempContent=replace(TempContent,"]]",">")
HtmlSelfEnCode=TempContent
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 UBBEnCode(Content)

fString=Content
fString=replace(fString,"<","&lt;")
fString=replace(fString,">","&gt;")
fString=replace(fString,chr(13),"<BR>")
fString = doCode(fString, "", "", "<b>", "</b>")
fString = doCode(fString, "[s]", "[/s]", "<s>", "</s>")
fString = doCode(fString, "[strike]", "[/strike]", "<s>", "</s>")
fString = doCode(fString, "", "", "<u>", "</u>")
fString = doCode(fString, "", "", "<i>", "</i>")

fString = doCode(fString, "[font=Andale Mono]", "[/font=Andale Mono]", "<font face='Andale Mono'>", "</font id='Andale Mono'>")
fString = doCode(fString, "[font=Arial]", "[/font=Arial]", "<font face='Arial'>", "</font id='Arial'>")
fString = doCode(fString, "[font=Arial Black]", "[/font=Arial Black]", "<font face='Arial Black'>", "</font id='Arial Black'>")
fString = doCode(fString, "[font=Book Antiqua]", "[/font=Book Antiqua]", "<font face='Book Antiqua'>", "</font id='Book Antiqua'>")
fString = doCode(fString, "[font=Century Gothic]", "[/font=Century Gothic]", "<font face='Century Gothic'>", "</font id='Century Gothic'>")
fString = doCode(fString, "[font=Courier New]", "[/font=Courier New]", "<font face='Courier New'>", "</font id='Courier New'>")
fString = doCode(fString, "[font=Comic Sans MS]", "[/font=Comic Sans MS]", "<font face='Comic Sans MS'>", "</font id='Comic Sans MS'>")
fString = doCode(fString, "[font=Georgia]", "[/font=Georgia]", "<font face='Georgia'>", "</font id='Georgia'>")
fString = doCode(fString, "[font=Impact]", "[/font=Impact]", "<font face='Impact'>", "</font id='Impact'>")
fString = doCode(fString, "[font=Tahoma]", "[/font=Tahoma]", "<font face='Tahoma'>", "</font id='Tahoma'>")
fString = doCode(fString, "[font=Times New Roman]", "[/font=Times New Roman]", "<font face='Times New Roman'>", "</font id='Times New Roman'>")
fString = doCode(fString, "[font=Trebuchet MS]", "[/font=Trebuchet MS]", "<font face='Trebuchet MS'>", "</font id='Trebuchet MS'>")
fString = doCode(fString, "[font=Script MT Bold]", "[/font=Script MT Bold]", "<font face='Script MT Bold'>", "</font id='Script MT Bold'>")
fString = doCode(fString, "[font=Stencil]", "[/font=Stencil]", "<font face='Stencil'>", "</font id='Stencil'>")
fString = doCode(fString, "[font=??ì?]", "[/font=??ì?]", "<font face='??ì?'>", "</font id='??ì?'>")
fString = doCode(fString, "[font=Verdana]", "[/font=Verdana]", "<font face='Verdana'>", "</font id='Verdana'>")
fString = doCode(fString, "[font=Lucida Console]", "[/font=Lucida Console]", "<font face='Lucida Console'>", "</font id='Lucida Console'>")

fString = doCode(fString, "[red]", "[/red]", "<font color=red>", "</font id=red>")
fString = doCode(fString, "[green]", "[/green]", "<font color=green>", "</font id=green>")
fString = doCode(fString, "[blue]", "[/blue]", "<font color=blue>", "</font id=blue>")
fString = doCode(fString, "[white]", "[/white]", "<font color=white>", "</font id=white>")
fString = doCode(fString, "[purple]", "[/purple]", "<font color=purple>", "</font id=purple>")
fString = doCode(fString, "[yellow]", "[/yellow]", "<font color=yellow>", "</font id=yellow>")
fString = doCode(fString, "[violet]", "[/violet]", "<font color=violet>", "</font id=violet>")
fString = doCode(fString, "[brown]", "[/brown]", "<font color=brown>", "</font id=brown>")
fString = doCode(fString, "[black]", "[/black]", "<font color=black>", "</font id=black>")
fString = doCode(fString, "[pink]", "[/pink]", "<font color=pink>", "</font id=pink>")
fString = doCode(fString, "[orange]", "[/orange]", "<font color=orange>", "</font id=orange>")
fString = doCode(fString, "[gold]", "[/gold]", "<font color=gold>", "</font id=gold>")
fString = doCode(fString, "[beige]", "[/beige]", "<font color=beige>", "</font id=beige>")
fString = doCode(fString, "[teal]", "[/teal]", "<font color=teal>", "</font id=teal>")
fString = doCode(fString, "[navy]", "[/navy]", "<font color=navy>", "</font id=navy>")
fString = doCode(fString, "[maroon]", "[/maroon]", "<font color=maroon>", "</font id=maroon>")
fString = doCode(fString, "[limegreen]", "[/limegreen]", "<font color=limegreen>", "</font id=limegreen>")

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]", "<ol type=1>", "</ol id=1>")
fString = doCode(fString, "
", "[/list=a]", "<ol type=a>", "</ol id=a>")
fString = doCode(fString, "[*]", "[/*]", "<li>", "</li>")
fString = doCode(fString, "[left]", "[/left]", "<div align=left>", "</div id=left>")
fString = doCode(fString, "[center]", "[/center]", "<center>", "</center>")
fString = doCode(fString, "[centre]", "[/centre]", "<center>", "</center>")
fString = doCode(fString, "[right]", "[/right]", "<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><font size=" & strFooterFontSize & " face=""" & strDefaultFontFace & """ id=quote>quote:<hr height=1 noshade id=quote>", "<hr height=1 noshade id=quote></font id=quote></BLOCKQUOTE id=quote>")
fString = doCode(fString, "[url=&quot;", "&quot;]", "[url=""", """]")
fString = doCode(fString, "[URL=&quot;", "&quot;]", "[url=""", """]")
fString = doCode(fString, "[url", "[/url]", "<a>", "</a>")
fString = replace(fString, "[br]", "<br>", 1, -1, 1)
    
UBBEnCode=fString
End Function

function isInteger(para)
       on error resume next
       dim str
       dim l,i
       if isNUll(para) then
          isInteger=false
          exit function
       end if
       str=cstr(para)
       if trim(str)="" then
          isInteger=false
          exit function
       end if
       l=len(str)
       for i=1 to l
           if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
              isInteger=false
              exit function
           end if
       next
       isInteger=true
       if err.number<>0 then err.clear
end function

function isChinese(para)
       on error resume next
       dim str
       dim i
       if isNUll(para) then
          isChinese=false
          exit function
       end if
       str=cstr(para)
       if trim(str)="" then
          isChinese=false
          exit function
       end if
       for i=1 to len(str)
           c=asc(mid(str,i,1))
             if c>=0 then
             isChinese=false
              exit function
           end if
       next
       isChinese=true
       if err.number<>0 then err.clear
end function   
%>

<!----------------------------分页的内容函数------------------------------------->

<%function stupidhahaha
if itype=0 then
                        if not rs2.eof then
flashwidth="width=" & 300
imgwidth=""

Response.Write SelfEnCode(News_Content,image)
else
end if


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''文章列表''''''''''''''''''''''''''''''''''''''''''''''''''''

else

PageShowSize = 6            '每页显示多少个页
MyPageSize   = 10           '每页显示多少条新闻
If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
MyPage=1
Else
MyPage=Int(Abs(Request("page")))
End if


         if not rs2.EOF then
        
         rs2.PageSize     = MyPageSize
MaxPages         = rs2.PageCount
rs2.absolutepage = MyPage
total            = rs2.RecordCount

for i=1 to rs2.PageSize
if not rs2.eof then

                  if rs2("image")>0 then
         pic = "[图]"
         else pic =""
         end if
         newsurl="content.asp?NewsID=" & rs2("NewsID") & "&b=" & rs2("bid") & "&s=" & rs2("sid")
         response.write("·&nbsp;<a target=""_blank"" class=""zhitib12"" href="""& newsurl &""">"& rs2("Title")&pic&"</a><br>")
         rs2.movenext
         end if
         next
        
        response.Write("<br><div align=""center"">")
                 
iurl=url&"?s="&sid&"&b="&b1&"&"
if request("lan") = "1" then
iurl=irul&"lan=1&"
end if
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((total-1)/rs2.PageSize)+1

if PageNextSize >1 then
PagePrev=PageShowSize*(PageNextSize-1)
Response.write "<a class=black href='" & iUrl & "page=" & PagePrev & "' title='上" & PageShowSize & "页'>上一翻页</a> "
Response.write "<a class=black href='" & iUrl & "page=1' title='第1页'>页首</a> "
end if
if MyPage-1 > 0 then
Prev_Page = MyPage - 1
Response.write "<a class=black href='" & iUrl & "page=" & Prev_Page & "' title='第" & Prev_Page & "页'>上一页</a> "
end if

if Maxpages>=PageNextSize*PageShowSize then
PageSizeShow = PageShowSize
Else
PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
End if
If PageSizeShow < 1 Then PageSizeShow = 1
if not pagesizeshow = 1 then
for PageCounterSize=1 to PageSizeShow
PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize
if PageLink <> MyPage Then
Response.write "<a class=black href='" &iUrl & "page=" & PageLink & "'>[" & PageLink & "]</a> "
else
Response.Write "<B>["& PageLink &"]</B> "
end if
If PageLink = MaxPages Then Exit for
Next
end if
if Mypage+1 <=Pagetpage  then
Next_Page = MyPage + 1
Response.write "<a class=black href='" & iUrl & "page=" & Next_Page & "' title='第" & Next_Page & "页'>下一页</A>"
end if

if MaxPages > PageShowSize*PageNextSize then
PageNext = PageShowSize * PageNextSize + 1
Response.write " <A class=black href='" & iUrl & "page=" & Pagetpage & "' title='第"& Pagetpage &"页'>页尾</A>"
Response.write " <a class=black href='" & iUrl & "page=" & PageNext & "' title='下" & PageShowSize & "页'>下一翻页</a>"
End if

        response.Write("</div >")
        
        
         end if
         rs2.close
         set rs2=nothing
         end if
        
        
        
        
end function%>
<!----------------------------分页的“当前位置”函数------------------------------------->

<%function site
with response
.Write("<table width=100%  border=0 cellspacing=0 cellpadding=0>")
.write(" <tr><td width=""3%"">&nbsp;</td><td width=""97%"">当前位置：")
.write(bigclassname&" &gt;&gt; "&smallclassname&"</td></tr></table>")
end with
end function

function newsite
if lan = 1 then
 set rs=server.CreateObject("adodb.recordset")
                 sql="select smallclassname from smallclass where bigclassname = '"&bigclassname&"' and (lan is null or lan = 0) "
                 rs.open sql,conn,1,1
response.Write("你现在的位置：首页&gt;&gt;"&bigclassname&"&nbsp;&nbsp;<a href="&request.ServerVariables("PATH_INFO")&"?smallclassname="&rs("smallclassname")&">(点击进入中文版面)</a>")
rs.close
set rs=nothing
else
response.Write("你现在的位置：首页&gt;&gt;"&bigclassname)
 set rs=server.CreateObject("adodb.recordset")
                 sql="select smallclassname from smallclass where bigclassname = '"&bigclassname&"' and lan = 1 "
                 rs.open sql,conn,1,1
if not rs.eof then
response.Write("&nbsp;&nbsp;<a href="&request.ServerVariables("PATH_INFO")&"?smallclassname="&rs("smallclassname")&"&lan=1><font color=#ff0000><strong>(click to access English version)</strong></font></a>")
end if
rs.close
set rs=nothing
end if
end function%>