<%@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%> |