songlist.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 32 行

<!--#include file="admin.asp"-->
<!--#include file="conn1.asp"-->
<!-- #include file="../Inc/Head.asp" -->
<%
Special_Id=request("Special_Id")
set rs=createobject("adodb.recordset")
sql="select song_id, Song_name,special_id from Song where special_Id="&special_Id
rs.open sql,conn,1,1
if rs.eof and rs.bof then 
	response.write "暂时没有收集"
else
Response.Write "<br><table width=""70%"" border=""0"" cellspacing=""1"" cellpadding=""3"" bgcolor=""#f0f0f0"">"
       
do while not rs.eof
        Response.Write "<tr bgcolor=""#FFFFFF"" align=""center"">"&_
          "<td align=""left""><li>"&rs("Song_Name")&"</td>"&_
          "<td><a href=Songedit.asp?Song_Id="&rs("Song_Id")&">编辑</a></td>"&_
		  "<td><a href=""Songsave.asp?Song_id="&rs("Song_Id")&"&action=del"">删除</a></td>"&_
        "</tr>"
 rs.movenext
 loop
     Response.Write " </table>"
end if 
rs.close 

 
%>
	</td>
  </tr>
</table>
<!-- #include file="../Inc/Foot.asp" -->