求更改一个代码参数，小弟愚昧暂时没看到在哪里改

#2

czsale2012-02-25 17:05

<%
Const New_img=8
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from Product where Passed=True and Newproduct=true order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
  
<table border='0' align='center' cellpadding='0' cellspacing="0" cellspace='0'>
<tr>
    <td id='demo1' valign='top'>
        <table width='100%' cellpadding='0' cellspacing='0' border='0' align='center'>
        <tr valign='top'>
        <%
        a=8
        for i=0 to rs_Product.recordcount
        fileExt=lcase(getFileExtName(rs_Product("DefaultPicUrl")))
         %>
            <td align='center'><table  border="0" align="center" cellpadding="2" cellspacing="0">
              <tr>
                <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td><table width="100%"  border="0" cellpadding="3" cellspacing="1" bgcolor="#E9E9E9">
                          <tr>
                            <td bgcolor="#FFFFFF"> <a href='file:///E|/work/222/ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'> </a>
                                <table width="100%"  border="0" cellpadding="0" cellspacing="0" bgcolor="#E9E9E9">
                                  <tr>
                                    <td align="center" valign="middle" bgcolor="#FFFFFF"><a href='file:///E|/work/222/ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'>
                                      <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                                      </a><a href='file:///E|/work/222/ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'>
                                      </a><a href='file:///E|/work/222/ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'><img src="<%=rs_Product("DefaultPicUrl")%>" border="0" height="120" width="120" alt="<%=rs_Product("title")%>" /></a><a href='file:///E|/work/222/ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'>
                                      <%else
                                      if fileext="swf" then%>
                                      <object  classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.,0,0,0' width='120' height='120'>
                                        <param name=movie value='UploadFiles/<%=rs_Product("DefaultPicUrl")%>'>
                                        <param name=quality value=high>
                                        <param name='Play' value='-1'>
                                        <param name='Loop' value='0'>
                                        <param name='Menu' value='-1'>
                                        <param name='wmode' value='transparent'>
                                        <embed src='UploadFiles/<%=rs_Product("DefaultPicUrl")%>' width='120' height='98' pluginspage='http://www.' type='application/x-shockwave-flash'></embed>
                                      </object>
                                      <%end if
             end if%>
                                      </a></td>
                                  </tr>
                              </table></td>
                          </tr>
                      </table></td>
                      <td valign="bottom"><img src="file:///E|/work/222/Img/yyri2.gif" width="7" height="112"></td>
                    </tr>
                    <tr>
                      <td colspan="2"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
                          <tr>
                            <td height="30">
                            <div align="center"><a href='file:///E|/work/222/ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'><%=cutstr(rs_Product("title"),18)%></a> </div></td>
                          </tr>
                      </table></td>
                    </tr>
                </table></td>
              </tr>
            </table>
                </td>
            <%b=a mod 1
              if b=0 then%>              <%end if%>
              <%rs_Product.movenext
               if rs_Product.eof then
               exit for%>              <%end if%>
              <%a=a+1
               next
                rs_Product.close%>

</tr>
        </table>
    </td>
    <td width="2" valign=top id=demo2></td>
</tr>
</table>
    <%'end if
else
    Response.Write "暂无最新图文"
end if
rs_Product.close
set rs_Product=nothing
%>

#3

czsale2012-02-27 14:02

有人么