📄 admin_flash_list.asp

📁 一个FLASH游戏的主页源码
💻 ASP
字号:
<!--#include file="Admin_Conn.asp"-->
<!--#include file="Admin_Session.asp"-->
<%on error resume next%>
<%
if request("action")<>"" then
FID=request("FID")
ChannelID=request("ChannelID")
ClassID=request("ClassID")

   if request("Action")="T" then
      conn.execute "Update Flash set IfTui='1' where FID=" & FID
   end if

   if request("Action")="F" then
      conn.execute "Update Flash set IfTui='0' where FID=" & FID
   end if

   if request("Action")="Del" then
      conn.execute "Delete * from Flash where FID=" & FID
      conn.execute "Update Class set ClassNO=ClassNO-1 where ClassID="&ClassID
      conn.execute "Update Channel set ChannelNO=ChannelNO-1 where ChannelID="&ChannelID
   end if
url="Admin_Flash_List.asp?page=" & pagecount
response.redirect url
end if
%>
<html>
<head>
<title>查看Flash 列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../Inc/Css.css" type="text/css">
</head>
<body bgcolor="#F1F1F1" leftmargin="0" topmargin="0">
<!--#include file="Admin_Menu.asp"-->
<table border="0" width="95%" bgcolor="#2566AD" cellspacing="1" cellpadding="5" class="table" align="center">
  <tr>
    <td bgcolor="#F1F1F1" colspan="4">
<SCRIPT LANGUAGE="JavaScript">
function GoList(strgoarticle) {
location.replace('Admin_Flash_List.asp?'+strgoarticle)
}
</SCRIPT>
        <select size="1" onChange=GoList(this.options[this.selectedIndex].value) name="ChannelID">
        <option selected>选择主栏目</option>
<%
sql="Select ChannelID,ChannelName from Channel order by ChannelID ASC"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1

do while not rs.eof
response.write "<option value='ChannelID="&rs(0)&"'>"&rs(1)&"</option>"
rs.movenext
loop

set rs=nothing

%></select> <select size="1" onChange=GoList(this.options[this.selectedIndex].value) name="ClassID">
        <option selected>选择子栏目</option>
<%
sql="Select ClassID,ClassName from Class order by ClassID ASC"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,3,1

do while not rs.eof
response.write "<option value='ClassID="&rs(0)&"'>"&rs(1)&"</option>"
rs.movenext
loop

set rs=nothing

%></select>
    </td>
<form action="Admin_Flash_List.asp" methop="Post">
    <td bgcolor="#F1F1F1" align="right" colspan="2"><b>动画查询:</b><input type="text" name="Name" size="20"> <input border=0 onFocus=if(this.blur)this.blur() name=Submit src="Image/B_Search.gif" align="absmiddle" type=image></td>         
  </tr>
 </form>
  <tr>
    <td width="8%" bgcolor="#BED7F1" align="center"><b>编号</b></td>
    <td width="25%" bgcolor="#BED7F1" align="center"><b>文件名称</b></td>
    <td width="12%" bgcolor="#BED7F1" align="center"><b>查看次数</b></td>
    <td width="13%" bgcolor="#BED7F1" align="center"><b>是否推荐</b></td>
    <td width="25%" bgcolor="#BED7F1" align="center"><b>添加时间</b></td>
    <td width="18%" bgcolor="#BED7F1" align="center"><b>相关操作</b></td>
  </tr>
<%
Name=request("Name")
ChannelID=request("ChannelID")
ClassID=request("ClassID")
Flasher=request("Flasher")
SpecialID=request("SpecialID")

sql="select * from Flash "
if Name<>"" then sql=sql & " where Name like '%"&Name&"%'"
if ChannelID<>"" then sql=sql & " where ChannelID="&ChannelID&""
if ClassID<>"" then sql=sql & " where ClassID="&ClassID&""
if Flasher<>"" then sql=sql & " where Flasher='"&Flasher&"'"
if SpecialID<>"" then sql=sql & " where SpecialID="&SpecialID&""
sql=sql & " order by FID desc"
'response.write sql
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,3

if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if

rs.pagesize=15
rs.AbsolutePage=pagecount

do while not rs.eof
%> 
  <tr>
    <td bgcolor="#FFFFFF" align="center"><%=rs("FID")%></td>
    <td bgcolor="#FFFFFF"><%=rs("Name")%></td>
    <td bgcolor="#FFFFFF" align="center"><%=rs("Click")%></td>
    <td bgcolor="#FFFFFF" align="center"><%If rs("IfTui")=1 Then%><a href="Admin_Flash_List.Asp?FID=<%=rs("FID")%>&Action=F">已推荐</a><%else%><a href="Admin_Flash_List.Asp?FID=<%=rs("FID")%>&Action=T">未推荐</a><%end if%></td>
    <td bgcolor="#FFFFFF" align="center"><%=rs("AddTime")%></td>
    <td bgcolor="#FFFFFF" align="center"> 
    <a href="Admin_Flash_Edit.asp?FID=<%=rs("FID")%>"><img src="Image/B_Modi.gif" border="0" align="absmiddle"></a> 
      <a href="Admin_Flash_List.asp?Action=Del&FID=<%=rs("FID")%>&ClassID=<%=rs("ClassID")%>&ChannelID=<%=rs("ChannelID")%>"><img src="Image/B_Del.gif" border="0" align="absmiddle"></a></td>    
  </tr>
<%
rs.movenext
n=n+1
if n>=rs.pagesize then exit do
loop
%> 
<form action="Admin_Flash_List.asp" method="post">
  <tr>
    <td bgcolor="#FFFFFF" colspan="6" align="right">
共 <b><%=rs.recordcount%></b>  条, 页次: <b><font  color=red><%=pagecount%></font>/<%=rs.pagecount%></b>, 
当前从第 <%  
if pagecount<=1 then
response.write "<font color=red>1</font>"
else
response.write "<font color=red>" & pagecount*rs.pagesize-rs.pagesize+1 & "</font>"
end if
%>  条开始。  
              <% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
              <a href="Admin_Flash_List.asp?ChannelID=<%=ChannelID%>&ClassID=<%=ClassID%>&SpecialID=<%=SpecialID%>&Flasher=<%=Flasher%>&page=<%=cstr(pagecount+1)%>">下一页</a>  
              <% end if %> <% if rs.pagecount>1 and rs.pagecount=pagecount then %>  
              <a href="Admin_Flash_List.asp?ChannelID=<%=ChannelID%>&ClassID=<%=ClassID%>&SpecialID=<%=SpecialID%>&Flasher=<%=Flasher%>&page=<%=cstr(pagecount-1)%>">  
              上一页</a> <%end if%> <% if pagecount<>1 and rs.pagecount<>pagecount then%>  
              <a href="Admin_Flash_List.asp?ChannelID=<%=ChannelID%>&ClassID=<%=ClassID%>&SpecialID=<%=SpecialID%>&Flasher=<%=Flasher%>&page=<%=cstr(pagecount-1)%>">  
              上一页</a> <a href="Admin_Flash_List.asp?ChannelID=<%=ChannelID%>&ClassID=<%=ClassID%>&SpecialID=<%=SpecialID%>&Flasher=<%=Flasher%>&page=<%=cstr(pagecount+1)%>">  
              下一页</a> <% end if%>&nbsp; 直接到第  
              <select name="page">
                <%for i=1 to rs.pagecount%> <%
iselected=""
if i=pagecount then iselected="selected"
%> 
                <option value="<%=i%>" <%=iselected%>><%=i%></option>
                <%next%> 
              </select>  页  
              <input type="submit" style="height:20px" name="go" value="Go">
              <input type="hidden" name="SpecialID" value="<%=SpecialID%>">
              <input type="hidden" name="ChannelID" value="<%=ChannelID%>">
              <input type="hidden" name="ClassID" value="<%=ClassID%>">
              <input type="hidden" name="Flasher" value="<%=Flasher%>"></td></tr>  
</form>
<%
rs.close
set rs=nothing
%>
</table>
<!--#include file="CopyRight.asp"-->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -