新微赢技术网

标题: 无效的过程调用或参数: 'mid' [打印本页]

作者: 卐孬孬卐 时间: 2010-1-17 03:36
标题: 无效的过程调用或参数: 'mid'
~~~~~第25行出錯了~~~~~~
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<%
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," > <a href=""/browse/")
over2=Instr(articlecode1,"</a> >")
class1name=mid(articlecode1,start2,over2-start2)《~~~~~~~~~~~~~~~~~這行
class1name=replace(class1name," > <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>"
请帮我看看错在哪里！！
谢谢

作者: ￡籍の口∮ 时间: 2010-1-17 03:36
检查一下你MID里面的参数是否都有值

作者: liu 时间: 2010-1-17 03:36
怎么检查~？？

作者: 大陆猪头 时间: 2010-1-17 03:37
start2=Instr(articlecode1," > <a href=""/browse/")
over2=Instr(articlecode1,"</a> >")
Response.Write(articlecode1 & ":" & start2 & ":" & over2)
Response.end()
class1name=mid(articlecode1,start2,over2-start2)

作者: 顺其自然 时间: 2010-1-17 03:37
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 函数用于字符串中的字节数据，其参数指定的是字节数而不是字符数。

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)