shoptous.asp

来自「本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流」· ASP 代码 · 共 36 行

ASP
36
字号
<!--#include file="../Inc/AdminChk.asp"-->
<!--#include file="conn.asp"-->
<% set rs=server.createobject("adodb.recordset")
sql="select * from tousu order by ID desc"
rs.open sql,conn,1,1

total=rs.recordcount
rs.movefirst
%>

<body topmargin=0>
<table width="597" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#0066FF">
  <tr>
    <td width="77" bgcolor="#FFFFFF"><font size="2">序列</font></td>
    <td width="230" bgcolor="#FFFFFF"><font size="2">店铺名称</font></td>
    <td width="224" bgcolor="#FFFFFF"><font size="2">查看投诉</font></td>
    <td width="224" bgcolor="#FFFFFF"><font size="2">删除投诉</font></td>
  </tr>
  <% do while not rs.eof
   i=i+1%>
  <tr>
    <td bgcolor="#FFFFFF"><%=i%></td>
    <td bgcolor="#FFFFFF"><a href=shop_edit.asp?user_id=<%=rs("shop_id")%>><%= rs("shop_name") %></a></td>
    <td bgcolor="#FFFFFF"><a href="tous_list2.asp?id=<%=rs("id")%>"><font size="2">查看</font></a></td>
    <td bgcolor="#FFFFFF"><a href="tous_del.asp?id=<%=rs("id")%>"><font size="2">删除</font></a></td>
  </tr>
  <% 
  if i>=total then exit do
  
  rs.movenext
  loop
  %>
</table>


⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?