flashlist.asp

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

<!--#include file="admin.asp"-->
<!--#include file="conn1.asp"-->
<!-- #include file="../Inc/Head.asp" -->
<%
SpecialId=request("SpecialId")
set rs=createobject("adodb.recordset")
sql="select Flashid, Flashname,specialid from Flash where specialId="&specialId
rs.open sql,conn,1,1
if rs.eof and rs.bof then 
	response.write "暂时没有收集"
else
Response.Write "<br><table width=""60%"" align=""center"" 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("FlashName")&"</td>"&_
          "<td><a href=Flashedit.asp?FlashId="&rs("FlashId")&">编辑</a></td>"&_
		  "<td><a href=""Flashsave.asp?Flashid="&rs("FlashId")&"&action=del"">删除</a></td>"&_
        "</tr>"
 rs.movenext
 loop
     Response.Write " </table>"
end if 
rs.close 

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