📄 admin_special_list.asp

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

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

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

   if request("Action")="Del" then
      conn.execute "Delete * from Special where SpecialID=" & SpecialID
   end if
url="Admin_Special_List.asp"
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="70%" bgcolor="#2566AD" cellspacing="1" cellpadding="5" class="table" align="center">
  <tr>
    <td width="10%" bgcolor="#BED7F1" align="center"><b>编号</b></td>
    <td width="45%" bgcolor="#BED7F1" align="center"><b>系列动画标题</b></td>
    <td width="15%" bgcolor="#BED7F1" align="center"><b>是否推荐</b></td>
    <td width="30%" bgcolor="#BED7F1" align="center"><b>相关操作</b></td>
  </tr>
<%
sql="select * from Special order by SpecialID desc"
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("SpecialID")%></td>
    <td bgcolor="#FFFFFF"><a href="Admin_Flash_List.Asp?SpecialID=<%=rs("SpecialID")%>"><%=rs("SpecialName")%></a></td>
    <td bgcolor="#FFFFFF" align="center"><%If rs("IfTui")=1 Then%><a href="Admin_Special_List.Asp?SpecialID=<%=rs("SpecialID")%>&Action=F">已推荐</a><%else%><a href="Admin_Special_List.Asp?SpecialID=<%=rs("SpecialID")%>&Action=T">未推荐</a><%end if%></td>
    <td bgcolor="#FFFFFF" align="center"> 
    <a href="Admin_Special_Edit.asp?SpecialID=<%=rs("SpecialID")%>"><img src="Image/B_Modi.gif" border="0" align="absmiddle"></a> 
      <a href="Admin_Special_List.asp?Action=Del&SpecialID=<%=rs("SpecialID")%>"><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_Special_List.asp" method="post">
  <tr>
    <td bgcolor="#FFFFFF" colspan="4" 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_Special_List.asp?page=<%=cstr(pagecount+1)%>">下一页</a>   
              <% end if %> <% if rs.pagecount>1 and rs.pagecount=pagecount then %>   
              <a href="Admin_Special_List.asp?page=<%=cstr(pagecount-1)%>">   
              上一页</a> <%end if%> <% if pagecount<>1 and rs.pagecount<>pagecount then%>   
              <a href="Admin_Special_List.asp?page=<%=cstr(pagecount-1)%>">   
              上一页</a> <a href="Admin_Special_List.asp?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"></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 + -