Question

asp mid 函数

Microsoft VBScript 运行时错误 '800a0005'

无效的过程调用或参数: 'Mid'

\wwwroot\music2.asp, line 71
错在哪?

SourceCode = bytes2BSTR(oSend.responseBody)

if instr(SourceCode,"建议您检查输入文字有无错误")=0 then

betw=instr(SourceCode,"<table cellspacing=0 cellpadding=0 border=0 width=")-instr(SourceCode,"</ol>")
first=instr(SourceCode,"<table cellspacing=0 cellpadding=0 border=0 width=")
SourceCode = Mid(SourceCode,first,abs(betw))
SourceCode =replace(SourceCode,"/baidu?","music.asp?")
SourceCode =replace(SourceCode,"<a href=""http://mp3.baidu.com/r?url=","<a onClick='return call(this.href);' href=""view.asp?url=")
SourceCode =replace(SourceCode,"http://mp3.baidu.com/m?tn=baidump3lyric&word=","music.asp?tn=baidump3lyric&key=")
SourceCode =replace(SourceCode,"http://img.baidu.com/img/mp3/","images/")
SourceCode =replace(SourceCode,"word=","key=")
SourceCode =replace(SourceCode,"<TABLE bgColor=#e6e6e6","<TABLE bgColor=#e6e6e6 width=775")
tt1=split(SourceCode,"<ol>")
问题出在这行：SourceCode = Mid(SourceCode,first,abs(betw))

Answer 1

SourceCode = Mid(SourceCode,first,abs(betw))
是这行吗?

应该是你的前面的代码有问题.

Answer 2

检查 first 和 abs(betw) 的类型