瑞安双华汽摩配件网站程序的小分类产品图片无法显示

正在用瑞安双华汽摩配件网站程序做一个企业站，在做的过程中发现小分类产品图片无法显示，如大分类“套锁系列”，小分类是“小分类1”、“小分类2”之类的，点“套锁系列”能将“小分类1”、“小分类2”小分类中的产品图片全部显示，但点击“小分类1"或“小分类2”小分类中却是没产品显示，请问是什么原因？望会的帮帮忙，非常感激。
源码：

下载地址

文件名: www.rar

网盘失效？举报有奖

立即下载

免费

您已购买

点贡献值

下载权限: 不限 

自助开通VIP会员

点击充值贡献值，即时到帐

免费获取贡献值

以下为产品页中的代码：
<%
BigclassP=trim(request("classP"))
SmallClassP=trim(request("SmallClassP"))
keyword=request.form("keyword")
filename="product.asp?"
sql="select * From [product]"
        If BigclassP<>"" then
                sql=sql&" where BigclassP='"&BigClassP&"'"
                filename=filename&"classP="&BigClassP
        ElseIf keyword<>"" then
                sql=sql&" where name like '%"&keyword&"%'"
                filename=filename&"keyword="&keyword
        ElseIf SmallClassP<>"" then
                sql="where SmallClassP='"&SmallClassP&"'"
                filename=filename&"SmallClassP="&SmallClassP
        End If
        sql=sql&" order by Product_ID desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof or rs.bof then
        response.Write "<p>没有相关记录</p>"
else
        MaxPerPage=20
        dim allcount
        totalnumber=rs.recordcount
        dim page
        if not request("page")="" then
                Page=cint(request("page"))
        else
                Page=1
        end if
        i=0
        j=0
        rs.move (Page-1)*MaxPerPage
        do while not rs.eof
        i=i+1
        If (J<>0 and J mod 5)=0 Then      
            Response.Write "</tr><tr>"
        End If
        j=j+1
                                %>

感谢分享好资源～～～～～

哪位愿意帮忙解决的？我付费，谢谢！QQ：1195865303