| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 529 人关注过本帖
标题:[求助]生成HTML首页的时候MID函数出错了
只看楼主 加入收藏
病孩子
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-4-18
收藏
 问题点数:0 回复次数:0 
[求助]生成HTML首页的时候MID函数出错了

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

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

搜索更多相关主题的帖子: MID 首页 函数 HTML 
2007-04-18 09:54
快速回复:[求助]生成HTML首页的时候MID函数出错了
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025144 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved