找回密码
 注册
【阿里云】2核2G云服务器新老同享 99元/年,续费同价,云服务器3年机/5年机限时抢购,低至 2.5折华为云精选云产品特惠糖果主机Jtti,新加坡服务器,美国服务器,香港服务器,海外云服务器
查看: 611|回复: 6

大家帮我看看这代码怎么改?

[复制链接]
发表于 2006 年 1 月 21 日 09:36:58 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

×
  <table width="130" border="0" align="center" cellpadding="0" cellspace="0">
  <tr>
<%
       SqlList = "SELECT C.ProID, C.ProModel, C.ProName, C.ProImage1, C.ProImage2, A.MaxID, A.MaxName FROM ProductMax10 AS A INNER JOIN ProductList10 AS C ON A.MaxID = C.MaxID "
       SqlList = SqlList + " WHERE C.ProID >= 1 And C.ProNew = 1 "
       SqlList = SqlList + " ORDER BY C.ProRank, C.ProUpdateTime DESC , C.ProID DESC "
       set RsList = server.CreateObject("adodb.recordset")
       RsList.open SqlList, objConn, 1, 1
       if RsList.eof or RsList.bof then
               Response.Write("暂无新产品信息")
       else
               for RsList_i = 1 to 15
%>
<%
                               if not RsList.eof then
%>

<td>
<table width="130" border="0" align="center" cellpadding="0" cellspace="0">
  <tr>
   <td>
<%
       if isnull(RsList(&quotroImage1")) =  false and trim(RsList(&quotroImage1")) <> "" then
Set Fs = Server.CreateObject("Scripting.FileSystemObject")
If  Fs.FileExists( Server.MapPath("../Admin/Product10/ProImage1/"&RsList(&quotroImage1"))) Then
%>
                                                         <a href="javascript:winopen('../03_products/proshow.asp?ID=<% = RsList("ProID") %>&MaxID=<% = RsList("MaxID") %>',600,480)" title="<% = "产品型号:"&Server.Htmlencode(RsList("ProModel"))%>"><img src="../admin/Product10/ProImage1/<% = RsList("ProImage1") %>" border="0" width="120" height="120" align="middle" alt="<% = "产品型号:"&Server.Htmlencode(RsList("ProModel")) %>"></a>
                                                         <%
End If
Set Fs = nothing
       end if
%>

   </td>
</tr>
<tr>
   <td>
<a href="javascript:winopen('../03_products/proshow.asp?ID=<% = RsList("ProID") %>&MaxID=<% = RsList("MaxID") %>',600,480)" title="<% = "产品型号:"&Server.Htmlencode(RsList("ProModel")) %>">
                                                         <% = gotTopic( RsList("ProModel"), 20 )%>
                                                         </a>
   </td>
  </tr>
</table>
</td>

<%                       
           RsList.movenext
       end if
%>                                               
<%
       if RsList.eof then exit for
       next
       end if
       RsList.close
       set RsList = nothing
       
%>
</tr>
</table>

想换行,两行就行,大家帮我改改好吗,我asp一点都不会,在改一个站,但想换行,不会,大家帮帮

3Q
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
发表于 2006 年 1 月 21 日 09:42:31 | 显示全部楼层
【腾讯云】2核2G云服务器新老同享 99元/年,续费同价
</td>
</tr>
<br>
<tr>
  <td>
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

 楼主| 发表于 2006 年 1 月 21 日 09:47:32 | 显示全部楼层
可以吗,我是只要两行就可以了,是产品只要排两行就可以了
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

发表于 2006 年 1 月 21 日 09:56:23 | 显示全部楼层
<%
   SqlList = "SELECT C.ProID, C.ProModel, C.ProName, C.ProImage1, C.ProImage2, A.MaxID, A.MaxName FROM ProductMax10 AS A INNER JOIN ProductList10 AS C ON A.MaxID = C.MaxID "
   SqlList = SqlList + " WHERE C.ProID >= 2 And C.ProNew = 2 "
   SqlList = SqlList + " ORDER BY C.ProRank, C.ProUpdateTime DESC , C.ProID DESC "
   set RsList = server.CreateObject("adodb.recordset")
   RsList.open SqlList, objConn, 1, 1
   if RsList.eof or RsList.bof then
   Response.Write("暂无新产品信息")
   else
   for RsList_i = 1 to 15
%>
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

 楼主| 发表于 2006 年 1 月 21 日 10:14:53 | 显示全部楼层
谢谢,ppopcn_also
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

发表于 2006 年 1 月 21 日 10:23:13 | 显示全部楼层
ASP的不懂 [s:19]
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

 楼主| 发表于 2006 年 1 月 21 日 09:36:58 | 显示全部楼层
【腾讯云】2核2G云服务器新老同享 99元/年,续费同价

大家帮我看看这代码怎么改?

  <table width="130" border="0" align="center" cellpadding="0" cellspace="0">
  <tr>
<%
       SqlList = "SELECT C.ProID, C.ProModel, C.ProName, C.ProImage1, C.ProImage2, A.MaxID, A.MaxName FROM ProductMax10 AS A INNER JOIN ProductList10 AS C ON A.MaxID = C.MaxID "
       SqlList = SqlList + " WHERE C.ProID >= 1 And C.ProNew = 1 "
       SqlList = SqlList + " ORDER BY C.ProRank, C.ProUpdateTime DESC , C.ProID DESC "
       set RsList = server.CreateObject("adodb.recordset")
       RsList.open SqlList, objConn, 1, 1
       if RsList.eof or RsList.bof then
               Response.Write("暂无新产品信息")
       else
               for RsList_i = 1 to 15
%>
<%
                               if not RsList.eof then
%>

<td>
<table width="130" border="0" align="center" cellpadding="0" cellspace="0">
  <tr>
   <td>
<%
       if isnull(RsList(&quotroImage1")) =  false and trim(RsList(&quotroImage1")) <> "" then
Set Fs = Server.CreateObject("Scripting.FileSystemObject")
If  Fs.FileExists( Server.MapPath("../Admin/Product10/ProImage1/"&RsList(&quotroImage1"))) Then
%>
                                                         <a href="javascript:winopen('../03_products/proshow.asp?ID=<% = RsList("ProID") %>&MaxID=<% = RsList("MaxID") %>',600,480)" title="<% = "产品型号:"&Server.Htmlencode(RsList("ProModel"))%>"><img src="../admin/Product10/ProImage1/<% = RsList("ProImage1") %>" border="0" width="120" height="120" align="middle" alt="<% = "产品型号:"&Server.Htmlencode(RsList("ProModel")) %>"></a>
                                                         <%
End If
Set Fs = nothing
       end if
%>

   </td>
</tr>
<tr>
   <td>
<a href="javascript:winopen('../03_products/proshow.asp?ID=<% = RsList("ProID") %>&MaxID=<% = RsList("MaxID") %>',600,480)" title="<% = "产品型号:"&Server.Htmlencode(RsList("ProModel")) %>">
                                                         <% = gotTopic( RsList("ProModel"), 20 )%>
                                                         </a>
   </td>
  </tr>
</table>
</td>

<%                       
           RsList.movenext
       end if
%>                                               
<%
       if RsList.eof then exit for
       next
       end if
       RsList.close
       set RsList = nothing
       
%>
</tr>
</table>

想换行,两行就行,大家帮我改改好吗,我asp一点都不会,在改一个站,但想换行,不会,大家帮帮

3Q
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|金光论坛

GMT+8, 2024 年 9 月 20 日 22:55 , Processed in 0.109057 second(s), 21 queries .

Powered by Discuz! X3.5

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表