大家好，谁能帮助我修改这个ASP程序，其它不变，使得本来竖向排列的产品改成每横向5个分5排，感谢！！

答案:1 悬赏:60 手机版

解决时间 2021-04-25 06:12

提问者网友：树红树绿
2021-04-24 10:04

                     </td>
                      <td width="797" valign="top" align="center">
                        <table width="98%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td height="5" colspan="2"></td>
                          </tr>
                          <tr>
                            <td width="43%">
                              <table width="115" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td height="25" align="center" valign="bottom" background="../images/about_1.gif" class="pt14">
                                    <table width="115" border="0" cellspacing="0" cellpadding="0">
                                      <tr>
                                        <td width="20"> </td>
                                        <td width="95" valign="bottom" class="pt14">Products</td>
                                      </tr>
                                    </table>
                                  </td>
                                </tr>
                              </table>
                            </td>
                            <td width="57%" align="right">
                              <div align="left"><a href="../01_home/index.asp">Home</a><img src="../images/x_0003.gif" width="15" height="10"><a href="../03_products/index.asp">Products</a></div>
                            </td>
                          </tr>
                        </table>
                        <table width="98%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td width="100%" height="3" bgcolor="#FFA43B"></td>
                          </tr>
                        </table>
                        <table width="100%" border="0" cellspacing="2" cellpadding="0">
                          <tr>
                            <td width="795">
                              <table width="100%" border="0" cellspacing="2" cellpadding="0">
                                <tr>
                                  <td height="25" bgcolor="#CCCCCC"><img src="../images/x_0004.gif" width="10" height="11" hspace="5">
                                    <%
'
strMaxName = funGetFieldToValue("ProductMax10","MaxName","MaxID",Trim(Request("MaxID")))
if strMaxName <> "" then Response.Write(strMaxName)
'
%>
                                  </td>
                                </tr>
                              </table>
                              <form action="" method="post" name="List" id="List">
                                <%
SearchMaxID = Trim(Request("MaxID"))
SearchKeyword = Trim(Request("SearchKeyword"))
SearchSelect = Trim(Request("SearchSelect"))
intPageSize = 14
intCols = 1
intWidth = 100
intHeight = 100
set RsList = server.CreateObject("adodb.recordset")
SqlList = "SELECT C.ProID, C.ProModel, C.ProName, C.ProImage1, C.ProImage2, C.ProNew, C.ProContent1, C.ProContent2, A.MaxID, A.MaxName FROM ProductMax10 AS A INNER JOIN ProductList10 AS C ON A.MaxID = C.MaxID "
SqlList = SqlList + " WHERe C.ProID >= 1 "
If IsNumeric(SearchMaxID) = True And Trim(SearchMaxID) <> "" Then
  SqlList = SqlList + " and A.MaxID = "&SearchMaxID&" "
End If
if SearchKeyword <> "" then
  SearchKeyword = Replace( SearchKeyword, "'", "" )
  Select Case SearchSelect
   Case "1"
    SqlList = SqlList + " and ProModel like '%"&SearchKeyword&"%' "
   Case "2"
    SqlList = SqlList + " and ProName like '%"&SearchKeyword&"%' "
   Case "3"
    SqlList = SqlList + " and ProContent1 like '%"&SearchKeyword&"%' "
   Case "4"
    SqlList = SqlList + " and ProContent2 like '%"&SearchKeyword&"%' "
   Case Else
    SqlList = SqlList + " and ProModel & ProName & ProContent1 & ProContent2 like '%"&SearchKeyword&"%' "
  End Select
End If
SqlList = SqlList + " ORDER BY C.ProRank, C.ProUpdateTime DESC , C.ProID DESC "
RsList.open SqlList, objConn, 1, 1
if RsList.eof or RsList.bof then
  call subListEof()
else
  call subListShow()
end if
RsList.close
set RsList = nothing
%>
                                <%
Sub subListEof()
%>

最佳答案

五星知识达人网友：荒野風
2021-04-24 10:33

如果方便的话，你可以把原文件发给我，我帮你修改。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息