[求助]生成HTML首页的时候MID函数出错了

[复制链接]

第三滴眼泪＄

电梯直达

1^#

发表于 2010-1-7 02:50:12 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

Function temp_pic_list(list1,list2,list3,list4,list5,list6)
'栏目id，条数，图片宽度，图片高度，是否显示标题,标题长度
if list1<>0 then
sql="select id,title,bz from bbs where typeid="&list1&" and bz like '%src%' order by date desc"
else
sql="select id,title,bz from bbs where bz like '%src%' order by date desc"
end if
rs2.open sql,conn,1,1
temp_pic_list="<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
if rs2.eof then
temp_pic_list=temp_pic_list&"<tr><td>暂无图片文章</td></tr>"
else
temp_pic_list=temp_pic_list&"<tr align=""center"" valign=""middle"">"
for ii=1 to list2
if rs2.eof then exit for
txt=rs2("bz")
if instr(1,txt,"src")>0 then
txtend=mid(txt,instr(1,txt,"src")+5,len(txt))
url=mid(txtend,1,instr(txtend,chr(34))-1)
title=rs2("title")
title=left(title,list6)
if list5=1 then
temp_pic_list=temp_pic_list&"<td><a href="&Systemdir&"/info/info_"&rs2("id")&".html><img border=0 src="&url&" height="&list4&" width="&list3&"><br>"&title&"</a></td>"
else
temp_pic_list=temp_pic_list&"<td><a href="&Systemdir&"/info/info_"&rs2("id")&".html><img border=0 src="&url&" height="&list4&" width="&list3&"></a></td>"
end if
else
temp_pic_list=temp_pic_list&"<td>暂无图片文章</td>"
end if
rs2.movenext
next
temp_pic_list=temp_pic_list&"</tr>"
end if
temp_pic_list=temp_pic_list&"</table>"
rs2.close
end Function

就是如上这段语句，在后台生成HTML首页的时候提示如下错误：
Microsoft VBScript 运行时错误错误 '800a0005'
无效的过程调用或参数: 'mid'
D:\WEB\D26DA89C5D\YCXEHCH3B9D5FD2\MYWEBADMIN\FSOMAKE\../../inc/Function.asp，行 203

该如何解决呢，在以前生成的时候就没有出过错误但是早上添加了两篇新文章之后就开始出错。
以前出错的时候修改了哪个地方后来就成功了，但是现在又忘记了。
哪位高手来帮忙解决下呢，小弟在此感激不尽、

收藏0

使用道具举报

返回列表

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

[求助]生成HTML首页的时候MID函数出错了

浏览过的版块