www.gusucode.com > 玩玩小游戏FLASH系统 2.1码程序 > admin/flash.asp
<!--#include File="Conn.asp" -->
<!--#include file="Checkpost.asp"-->
<%
If Session("AdminName")="" and Session("adminpass")="" Then
Response.Redirect "Error.asp?id=005"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>FLASH管理</title>
<link href="inc/Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="34" bgcolor="#7B9AE7"> <div align="center">FLASH管理首页</div>
<div align="center"></div></td>
</tr>
<tr>
<td height="31" bgcolor="#FFFFFF">
<div align="center"><a href="flash.asp">查看全部FLASH</a>
<%
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From Class where classid='0'"
Rs.open Sql,Conn,1,3
Do While not Rs.Eof
%>
<a href=flash.asp?nclass=<%=rs("id")%>><font color=blue><%=rs("name")%></font></a>
<%
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
</div></td>
</tr>
<%
if request("nclass")<>""then
%>
<tr>
<td height="28" bgcolor="#E1F0F0">
<div align=center>
<%
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From Class where classid='"&request("nclass")&"'"
Rs.open Sql,Conn,1,3
Do While not Rs.Eof
%>
<a href=flash.asp?nclass=<%=request("nclass")%>&classid=<%=rs("id")%>><font color=blue><%=rs("name")%></font></a>
<%
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
</div></td>
</tr>
<%end if%>
</table>
<br>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="71" height="33" bgcolor="#C1DFDF"> <div align="center">ID号</div></td>
<td width="357" bgcolor="#C1DFDF"> <div align="center">名称</div></td>
<td width="58" bgcolor="#C1DFDF"> <div align="center">修改</div></td>
<td width="53" bgcolor="#C1DFDF"> <div align="center">删除</div></td>
<td width="55" bgcolor="#C1DFDF"> <div align="center">生成</div></td>
</tr>
<%
Page=Request("Page")
PageSize = 20
Set Rs=Server.Createobject("Adodb.Recordset")
if request("nclass")<>"" and request("classid")="" then
nclass=request("nclass")
Sql="Select * From flash where nclass='"&nclass&"' order by id desc"
elseif request("classid")<>""then
classid=request("classid")
Sql="Select * From flash where classid='"&classid&"' order by id desc"
else
Sql="Select * From flash order by id desc"
end if
Rs.open Sql,Conn,1,3
Rs.PageSize = PageSize
flashnum=Rs.RecordCount
Pgnum=Rs.Pagecount
If Page="" or Clng(Page)<1 Then Page=1
If Clng(Page) > Pgnum Then Page=Pgnum
If Pgnum>0 Then Rs.AbsolutePage=Page
Count=0
Do While not Rs.Eof And Count<Rs.PageSize
%>
<tr bgcolor="#f1f1f1">
<td height="30">
<div align="center"><%=rs("id")%>
</div></td>
<td> <a href="../flash/<%=rs("id")%>.htm" title=点击查看HTML页 target=_blank><%=rs("flashname")%></a></td>
<td> <div align="center"><a href="editflash.asp?id=<%=rs("id")%>">修改</a></div></td>
<td> <div align="center"><a href="saveflash.asp?del=<%=rs("id")%>">删除</a></div></td>
<td> <div align="center"><a href="html_makeflash.asp?id=<%=rs("id")%>" target=_blank>生成</a></div></td>
</tr>
<%
Rs.Movenext
Count=Count+1
Loop
%>
<tr bgcolor="#85C0C0">
<td height="27" colspan="5" align=center>
<%
Response.Write "<Form Method=""Post"" action=""flash.asp"">"
Response.Write "[第<Font Color=#FF0000>"& Page &"</font>页/共"& pgnum &"页] "
If Page=1 Then
Response.Write "[首 页] [上一页] "
Else
Response.Write "[<a href=""flash.asp?Page=1&nclass="&request("nclass")&"&ClassID="& request("classID") &""">首 页</a>] "
Response.Write "[<a href=""flash.asp?Page="& Page-1 &"&nclass="&request("nclass")&"&ClassID="& request("classID") &""">上一页</a>] "
End If
If Rs.PageCount-Page<1 Then
Response.Write "[下一页] [尾 页]"
Else
Response.Write "[<a href=""flash.asp?Page="& Page+1 &"&nclass="&request("nclass")&"&ClassID="& request("classID") &""">下一页</a>] "
Response.Write "[<a href=""flash.asp?Page="& Rs.PageCount &"&nclass="&request("nclass")&"&ClassID="& request("classID") &""">尾 页</a>]"
End If
Response.Write " 共[<Font Color=#FF0000>"& flashnum &"</font>]部flash"
Response.Write " 转到：<Input Type='Text' Name=""Page"" Size=2 Maxlength=10 value="""& Page &""" align=""center"">"
Response.Write "<Input Type=""Submit"" value=""Goto"" Size=2 Name=""Submit"">"
Response.Write "<Input Type=""Hidden"" value="""& request("ClassID") &""" Name=""classid"">"
Response.Write "<Input Type=""Hidden"" value="""& request("nclass") &""" Name=""nclass"">"
Rs.Close
Set Rs=nothing
%>
</tr>
</table>
<p> </p>
</body>
</html>