~~~~~第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>"
请帮我看看错在哪里！！
谢谢

检查一下你MID里面的参数是否都有值

怎么检查~？？

start2=Instr(articlecode1," &gt; <a href=""/browse/")
over2=Instr(articlecode1,"</a> &gt;")
Response.Write(articlecode1 & ":" & start2 & ":" & over2)
Response.end()
class1name=mid(articlecode1,start2,over2-start2)

Mid(string, start[, length])
Mid 函数的语法有以下参数：

参数 描述
string 字符串表达式，从中返回字符。如果 string 包含 Null，则返回 Null。
start string 中被提取的字符部分的开始位置。如果 start 超过了 string 中字符的数目，Mid 将返回零长度字符串 ("")。
length 要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到字符串结束的所有字符。

说明
要判断 string 中字符的数目，可使用 Len 函数。
下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符:

Dim MyVar
MyVar = Mid("VB Script is fun!", 4, 6) 'MyVar 包含 "Script"。

--------------------------------------------------------------------------------

注意 MidB 函数用于字符串中的字节数据，其参数指定的是字节数而不是字符数。

里面有值~
采集到一个分类
但是写不进数据库~

~版主你的那个解释我看过多遍了~
就是因为看了没什么用处我才上来发表的~

后两个参数都必须是整数
你先response.write (start1&"<br>"&over1-start1)
response.end
看看是否符合要求

得出的结果
4143
~~~~~
159
~~~~~

islet斑斑

有没有关于ASP使用XML,做到代码与界面分离的资料.

在网上搜了一堆没动的东西...