查看: 3517|回复: 2

[问与答] 重复显示错误了,求教

[复制链接]
陈汉才 发表于 2016-3-14 09:10:43 | 显示全部楼层 |阅读模式
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="../../Connections/zfdd.asp" --><%Dim rstDim rst_cmdDim rst_numRowsSet rst_cmd = Server.CreateObject ("ADODB.Command")rst_cmd.ActiveConnection = MM_zfdd_STRINGrst_cmd.CommandText = "SELECT * FROM admin_name, aizfdd_news"rst_cmd.Prepared = trueSet rst = rst_cmd.Executerst_numRows = 0%><body><table width="90%" border="0" align="center" cellpadding="1" cellspacing="1"> <tr>   <td align="center"><table width="90%" border="1" cellspacing="0" cellpadding="0">     <tr>       <td height="30" align="center">用户编号</td>       <td height="30" align="center">账号名字</td>       <td height="30" align="center">密码显示</td>     </tr>          <% for i=1 to 10 %>     <tr>       <td height="30"><%=(rst.Fields.Item("编号").Value)%></td>       <td height="30"><%=(rst.Fields.Item("admin_name").Value)%></td>       <td height="30"><%=(rst.Fields.Item("admin_pass").Value)%></td>     </tr>     <% rst.MoveNextnext %>        </table></td>   <td align="center"><table width="90%" border="1" cellspacing="0" cellpadding="0">     <tr>       <td height="30" align="center">新闻编号</td>       <td height="30" align="center">新闻标题</td>       <td height="30" align="center">点击数</td>     </tr>          <%for y=1 to 10 %>     <tr>       <td height="30"><%=(rst.Fields.Item("newsid").Value)%></td>       <td height="30"><%=(rst.Fields.Item("ainewsname").Value)%></td>       <td height="30"><%=(rst.Fields.Item("aidjs").Value)%></td>     </tr>     <% rst.MoveNextnext %>        </table></td> </tr></table></body></html><%rst.Close()Set rst = Nothing%>
 楼主| 陈汉才 发表于 2016-3-14 09:11:42 | 显示全部楼层
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../Connections/zfdd.asp" -->
<%
Dim rst
Dim rst_cmd
Dim rst_numRows
Set rst_cmd = Server.CreateObject ("ADODB.Command")
rst_cmd.ActiveConnection = MM_zfdd_STRING
rst_cmd.CommandText = "SELECT * FROM admin_name, aizfdd_news"
rst_cmd.Prepared = true
Set rst = rst_cmd.Execute
rst_numRows = 0
%>
<body>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
   <td align="center"><table width="90%" border="1" cellspacing="0" cellpadding="0">
     <tr>
       <td height="30" align="center">用户编号</td>
       <td height="30" align="center">账号名字</td>
       <td height="30" align="center">密码显示</td>
     </tr>
     
     <% for i=1 to 10 %>
     <tr>
       <td height="30"><%=(rst.Fields.Item("编号").Value)%></td>
       <td height="30"><%=(rst.Fields.Item("admin_name").Value)%></td>
       <td height="30"><%=(rst.Fields.Item("admin_pass").Value)%></td>
     </tr>
     <% rst.MoveNext
next %>
     
   </table></td>
   <td align="center"><table width="90%" border="1" cellspacing="0" cellpadding="0">
     <tr>
       <td height="30" align="center">新闻编号</td>
       <td height="30" align="center">新闻标题</td>
       <td height="30" align="center">点击数</td>
     </tr>
     
     <%for y=1 to 10 %>
     <tr>
       <td height="30"><%=(rst.Fields.Item("newsid").Value)%></td>
       <td height="30"><%=(rst.Fields.Item("ainewsname").Value)%></td>
       <td height="30"><%=(rst.Fields.Item("aidjs").Value)%></td>
     </tr>
     <% rst.MoveNext
next %>
     
   </table></td>
</tr>
</table>
</body>
</html>
<%
rst.Close()
Set rst = Nothing
%>
xuanxiao 发表于 2016-4-4 14:36:57 | 显示全部楼层
用户编号
       账号名字
       密码显示
     
     
     
    ...
陈汉才 发表于 2016-3-14 09:11



用两个记录集分别查询试试
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号