addgeshou.asp

来自「俄罗斯方块源码 俄罗斯方块源码 俄罗斯方块源码」· ASP 代码 · 共 50 行

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
if session("admin")="" then
  response.redirect "admin_login.asp"
end if

dim action
dim totalpage,maxperpage,totalrecords,i,currentpage
action=request("action")
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr align="center" bgcolor="#f2f8ff"> 
    <td height="25">歌手名</td>
    <td>字母</td>
    <td>修改</td>
    <td>删除</td>
  </tr>
  <%
  set geshours=server.CreateObject("adodb.recordset")
  geshousql="select dalei from geshou group by dalei "
  geshours.open geshousql,conn,1,1
  do while not geshours.eof 
  %>
  <tr bgcolor="#eeeeee"> 
    <td height="25" colspan="4" align="center"><b><font color="#FF0000"><%=geshours("dalei")%></font></b></td>
  </tr>
  <%
  set rs=server.createobject("adodb.recordset")
  sql="select * from geshou where dalei='"&geshours("dalei")&"' order by zibo"
  rs.open sql,conn,1,1
  do while not rs.eof 
  %>
  <tr align="center" bgcolor="#FFFFFF"> 
    <td height="25"><%=rs("geshou")%></td>
    <td height="25"><%=rs("zibo")%></td>
    <td height="25"><a href="geshouedit.asp?id=<%=rs("id")%>">修改</a></td>
    <td height="25"><a href="geshoudel.asp?id=<%=rs("id")%>">删除</a></td>
  </tr>
  
  <%
  rs.movenext
  loop
  rs.close
  geshours.movenext
  loop
  geshours.close
  %>
</table>