~~~~~第25行出錯了~~~~~~
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.asp"-->
<%
Server.ScriptTimeOut=1000
'url1="http://zhidao.baidu.com/question/"
aa=int(request("aa"))
bb=int(request("bb"))
ii=0
for i=aa to bb
response.Write i&" --------------------------------------------------<br>"
url="http://zhidao.baidu.com/question/"&i&".html"
articlecode=getHTTPPage(url)
if err.number=0 then
if Instr(articlecode,"最佳答案")>0 then

start1=Instr(articlecode,"<div class=""path""><a href=""/"">百度知道</a>")
over1=Instr(articlecode,"<div class=""t3 bcy bgy"">快到期问题</div>")
articlecode1=mid(articlecode,start1,over1-start1)
'大分类
articlecode1=replace(articlecode1,"<div class=""path""><a href=""/"">百度知道</a>","")
'response.Write start&"<br>"&over
'response.Write articlecode1
start2=Instr(articlecode1," &gt; <a href=""/browse/")
over2=Instr(articlecode1,"</a> &gt;")
class1name=mid(articlecode1,start2,over2-start2)《~~~~~~~~~~~~~~~~~這行
class1name=replace(class1name," &gt; <a href=""/browse/","")
class1name=replace(class1name,""">","")
class1name=replace(class1name,"?lm=","")
class1name=replace(class1name,"0","")
class1name=replace(class1name,"1","")
class1name=replace(class1name,"2","")
class1name=replace(class1name,"3","")
class1name=replace(class1name,"4","")
class1name=replace(class1name,"5","")
class1name=replace(class1name,"6","")
class1name=replace(class1name,"7","")
class1name=replace(class1name,"8","")
class1name=replace(class1name,"9","")
'response.Write class1name&"<br>"
请帮我看看错在哪里！！
谢谢