无效的过程调用或参数: 'mid' - ASP

卐孬孬卐

电梯直达

1^#

发表于 2010-1-17 03:36:50 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

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

收藏0

使用道具举报

￡籍の口∮

2^#

发表于 2010-1-17 03:36:54 | 只看该作者

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

回复支持反对

使用道具举报

liu

3^#

发表于 2010-1-17 03:36:58 | 只看该作者

怎么检查~？？

回复支持反对

使用道具举报

大陆猪头

4^#

发表于 2010-1-17 03:37:02 | 只看该作者

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

回复支持反对

使用道具举报

顺其自然

5^#

发表于 2010-1-17 03:37:06 | 只看该作者

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 函数用于字符串中的字节数据，其参数指定的是字节数而不是字符数。

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册