＋设为首页 ＋添加到收藏夹
我的网站：http://book.bbsbb.com添加了书库就出现了这样问题！
点击最上面的书籍分类“玄幻魔法 武侠仙侠 历史军事 都市言情 推理灵异 网游动漫 科幻文艺 ”就出现了以下的错误码
===============================================
Microsoft VBScript 运行时错误 错误 800a0005
无效的过程调用或参数: mid
/book/listbook.asp，行44
=========================================
我把listbook.asp全部代码复制过来
==========================================
<!--#include file="head1.asp" -->
<table width="760" align="center" cellspacing="0" bgcolor="#66CCFF" bordercolordark="white" bordercolorlight="#666666"
style="border-collapse:collapse;">
<tr>
<td bgcolor="#C8E9F5">
<%
dim url,page,cutpage,str
on error resume next
Function getHTTPPage(url)
on error resume next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
End function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
===================================================
url="http://www.cmfu.com"&Request.serverVariables("SCRIPT_NAME")&"?"&Request.serverVariables("QUERY_STRING")
url="http://www.cmfu.com/listbook.asp?"&Request.serverVariables("QUERY_STRING")
page= getHTTPPage(url)
cutpage=instr(page,"□")
str=instr(cutpage,page,"]</div>")
%>
<%
=mid(page,cutpage,str-cutpage+7)
%></td>
</tr>
</table>
<table width="760" align="center" cellspacing="0" bgcolor="#66CCFF" bordercolordark="white" bordercolorlight="#CCCCCC"
style="border-collapse:collapse;" border="1" bordercolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF"><TABLE cellSpacing=0 valign=top width="751" style="border-collapse:collapse;" border="1"
bordercolor="#CCCCCC" bordercolordark="white" bordercolorlight="#CCCCCC">
<tr bgcolor=#eeeeee height=24>
<td class=xt align=center width=7% valign=middle style="border-top-color:rgb
(204,204,204); border-bottom-color:rgb(204,204,204); border-left-color:rgb(204,204,204);"><b><font color="#003399">类别
</font></b></td>
<td class=xt align=center width=21% valign=middle style="border-top-color:rgb
(204,204,204); border-bottom-color:rgb(204,204,204);"><b><font color="#003399">书名</font></b></td>
<td class=xt align=center width="35%" valign=middle style="border-top-color:rgb
(204,204,204); border-bottom-color:rgb(204,204,204);"><b><font color="#003399">最新章节</font></b></td>
<td class=xt align=center width="14%" valign=middle style="border-top-color:rgb
(204,204,204); border-bottom-color:rgb(204,204,204);"><b><font color="#003399">更新时间</font></b></td>
<td class=xt align=center width="12%" valign=middle style="border-top-color:rgb
(204,204,204); border-bottom-color:rgb(204,204,204);"><b><font color="#003399">作者</font></b></td>
<td class=xt align=center width="8%" valign=middle style="border-top-color:rgb
(204,204,204); border-right-color:rgb(204,204,204); border-bottom-color:rgb(204,204,204);"
bordercolorlight="#666666"><b><font color="#003399">状态</font></b></td>
</tr>
<tr>
<td class=xt width="745" colspan="6" style="padding-top:5; border-top-color:rgb(204,204,204);" bordercolordark="white"
bordercolorlight="white">
<script lauguage=javascript>
function putlist(rs0,rs1,rs2,rs3,rs4,rs5,rs6,rs7,rs8)
{
document.write("<tr bgcolor=#ffffff height=24>");
document.write("<td class=xt align=center valign=top>"+rs7+"</td>");
document.write("<td class=xt align=left valign=top><a href=showbook.asp?bl_id="+rs0+" target=_blank>"+rs2+"</a></td>");
document.write("<td class=xt align=left valign=top><a href=readchapter.asp?bl_id="+rs0+"&bu_id="+rs8+"
target=_blank>"+rs4+"</a></td>");
document.write("<td class=xt align=center valign=top>"+rs3+"</td>");
document.write("<td class=xt align=center valign=top><a href=showauthor.asp?ba_id="+rs6+" target=_blank>"+rs1+"</a></td>");
document.write("<td class=xt align=center valign=top>"+rs5+"</td></tr>");
}
</script>
<%
if request.QueryString("pageid")="" then
%><%
="<script src=http://www.cmfu.com/script/list_book"&request.QueryString("bl_class")&".js></script>"
%>
<%
else
page= getHTTPPage(url)
cutpage=instr(page,"<script lauguage=javascript>putlist")
str=instr(cutpage,page,"下一页</a>")
page=mid(page,cutpage,str-cutpage+6)
response.Write page
end if%></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="bottom.asp"-->
==========================================
检查 <%=mid(page,cutpage,str-cutpage+7)%> 这里，看三个参数是否正常。如果有某个参数负值，就会出现你的这种错误。
检查一下
=mid(page,cutpage,str-cutpage+7)这句
page可能没取到值,或cutpage/str-cutpage+7的长度超过page的长度
UP
mid()函数使用的时候注意一下数据类型等
