Question

ASP代码 图片横向排,4个自动换行,有翻页,页码为1234等数字。

我是有代码的，但好像是有错误，代码如下：
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>

<table width="235" border="0" cellspacing="0" cellpadding="0" style="margin-top:20px;">
<%
set rs=fGetRsList("select * from hs_info where idtree like '"&idtree&"%' order by state_onoff desc, releasedate desc,id asc")
if not(rs.bof and rs.eof) then

page=request("page")
if page="" or not isnumeric(page) then
page=1
end if
currentPage=page
if currentpage="" then
currentpage=1
else
currentpage=clng(currentpage)
end if
MaxPerPage =15
RecordCount = rs.RecordCount
if not rs.RecordCount=0 then
rs.MoveFirst
end if

if (currentPage-1)*MaxPerPage<RecordCount and currentPage>1 then
rs.move (currentPage-1)*MaxPerPage
end if

xx=0
do while xx<MaxPerPage/3 and not rs.eof
xx=xx+1
%>

<tr>
<%
for i=1 to 3
%>
<td width="33%"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><img border="0" src="<%=rs("upload_image")%>" onclick="checkpic('<%=rs("upload_image")%>');" width="48" height="48" style="cursor:hand " /></td>
</tr>
<tr>
<td align="center" style="padding-top:3px;padding-bottom:2px"><%=rs("title")%></td>
</tr>
<tr>
<td align="center" style="padding-bottom:5px"><a id="thumb1" href="<%=rs("upload_image1")%>" class="highslide" onclick="return hs.expand(this, {captionId: 'caption1'})"><img border="0" src="../../images/cn/design/fd1.gif" width="40" height="15" /></a></td>
</tr>
</table></td>
<%
rs.movenext
if rs.eof then exit for
next
for aa=1 to 3-i
response.Write("<td width='33%'> </td>")
next
%>
</tr>
<%

loop
if RecordCount mod MaxPerPage =0 then
n= RecordCount \ MaxPerPage
else
n= (RecordCount \ MaxPerPage)+1
end if
if currentpage-1 mod MaxPerPage =0 then
p=(currentpage-1) \ MaxPerPage
else
p=(currentpage-1) \ MaxPerPage
end if
else
response.Write("<tr><td><br> 暂无内容!<br></td></tr>")
end if

rs.close
set rs=nothing
keyword="&idtree="&idtree
%>
<tr>
<td align="center" colspan="3"><%if RecordCount then response.Write(getPageInfo_page(MaxPerPage,n,currentpage,keyword))%></td>
</tr>
</table>
运行时，有这样的提示：
Microsoft VBScript 运行时错误 '800a000d'

类型不匹配: 'getPageInfo_page'

\cn\design\design_list.asp, line 85
也就是这句：
"><%if RecordCount then response.Write(getPageInfo_page(MaxPerPage,n,currentpage,keyword))%>
请大家帮帮忙。。谢谢啦。。。
getPageInfo_page 有些文件里还是getPageInfo、getPageInfo_en 应该是个自定义函数，你看看那个函数。
把函数原形放上来。
我找不到

Answer 1

getPageInfo_page 应该是个自定义函数，你看看那个函数。
把函数原形放上来。

Answer 2

定义个别的类型：object