www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > i5808/admin_flash.asp
<!--#include file="../Conn.asp" -->
<!--#include file="seeion.asp"-->
<!--#include file="page.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" id="css" href="images/style.css">
<title>FLASH幻灯管理</title>
</head>
<body>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" >
<tr>
<td height="30" background="images/bg_list.gif"><div style="padding-left:10px; font-weight:bold; color:#0075a9">FLASH幻灯管理</div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td bgcolor="#FFFFFF"><%
set rs=server.createobject("adodb.recordset")
exec="select * from flash order by px_id asc"
rs.open exec,conn,1,1
if rs.eof then
response.write ("<div style=""padding:10px;"">暂无记录!</div>")
else
rs.PageSize =300 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
<%
for i=1 to rs.pagesize
j=i
if j mod 2=0 then
bg="#F1F5F8"
else
bg="#FFFFFF"
end if
%> </td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='<%=bg%>'" bgcolor="<%=bg%>">
<td colspan="2"><table width="100%" border="0" cellpadding="5" cellspacing="0">
<tr>
<td width="10%" class="td">ID：<%=rs("id")%></td>
<td width="17%" height="25" class="td"><a href="xiugai_flash.asp?id=<%=rs("id")%>" style="color:#003399"><%=rs("title")%></a></td>
<td width="18%" class="td">[<a href="../<%=rs("img")%>" target="_blank" style="color:#003399">预览</a>]</td>
<td width="21%" class="td">排序:<%=rs("px_id")%></td>
<td width="19%" class="td"><%=rs("tim")%></td>
<td width="7%" class="td">
<input type="button" name="Submit3" value="修改" onclick="window.location.href='xiugai_flash.asp?id=<%=rs("id")%>' " class="btn"/></td>
<td width="8%" class="td">
<input type="button" name="Submit" value="删除" onclick="javascript:if(confirm('确定删除？删除后不可恢复!')){window.location.href='?id=<%=rs("id")%>&del=ok';}else{history.go(0);}" class="btn"/></td>
</tr>
</table>
<%
rs.movenext
if rs.eof then exit for
next
%>
<%
end if
%></td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='<%=bg%>'" bgcolor="<%=bg%>">
<td height="30"><table width="100%" border="0" cellpadding="5" cellspacing="0">
<tr>
<td bgcolor="#F1F5F8"><%call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")
rs.close
set rs=nothing
%></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
if request("del")="ok" then
set rs=server.createobject("adodb.recordset")
id=Request.QueryString("id")
sql="select * from flash where id="&id
rs.open sql,conn,2,3
rs.delete
rs.update
Response.Write "<script>alert('删除成功！');window.location.href='admin_flash.asp';</script>"
end if
%>