⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 editflash.asp

📁 FLASH吧网站源码 v2.0栏目版： 功能不是很强大
💻 ASP
字号:
🔍 
<!--#include file="validate.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name="Author" content="程序设计制作:小哥 联系QQ:54298">
<title>FLASH动画管理</title>
<LINK href="css.css" type=text/css rel=stylesheet>
<STYLE type=text/css>
BODY {
	BACKGROUND: #799ae1; MARGIN: 0px; FONT: 9pt 宋体
}
TABLE {
	BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px
}
TD {
	FONT: 12px 宋体
}
IMG {
	BORDER-RIGHT: 0px; BORDER-TOP: 0px; VERTICAL-ALIGN: bottom; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px
}
A {
	FONT: 12px 宋体; COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
	COLOR: #428eff; TEXT-DECORATION: underline
}
.sec_menu {
	BORDER-RIGHT: white 1px solid; BACKGROUND: #d6dff7; OVERFLOW: hidden; BORDER-LEFT: white 1px solid; BORDER-BOTTOM: white 1px solid
}
.menu_title {
	
}
.menu_title SPAN {
	FONT-WEIGHT: bold; LEFT: 8px; COLOR: #215dc6; POSITION: relative; TOP: 2px
}
.menu_title2 {
	
}
.menu_title2 SPAN {
	FONT-WEIGHT: bold; LEFT: 8px; COLOR: #428eff; POSITION: relative; TOP: 2px
}
</STYLE>
</head>
<body><br>
<table width="90%" border="0" align="center" cellpadding="20" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td>

	  <table border="1" align="center" cellpadding="6" cellspacing="0" bordercolor="#CCCCCC" style="border-collapse: collapse">
        <tr>
          <td height="25" align="center"><font size="2"> 类别:<a href="editflash.asp">全部</a>  <a href="?lb=游戏类">游戏类</a> <a href="?lb=音乐类">音乐类</a> <a href="?lb=短片类">短片类</a></font>          
        </tr>
        <tr>
          <td height="25" align="center">
<%
Set rs= Server.CreateObject("ADODB.Recordset")
select case request("lb")
case "游戏类"
lbid=1
Response.Write "<a href=""?lb=游戏类&xlb=休闲游戏"">休闲游戏</a> | <a href=""?lb=游戏类&xlb=打斗游戏"">打斗游戏</a> | <a href=""?lb=游戏类&xlb=益智游戏"">益智游戏</a> | <a href=""?lb=游戏类&xlb=搞笑游戏"">搞笑游戏</a> | <a href=""?lb=游戏类&xlb=体育游戏"">体育游戏</a> | <a href=""?lb=游戏类&xlb=综合游戏"">综合游戏</a>"
case "音乐类"
lbid=2
Response.Write "<a href=""?lb=音乐类&xlb=流行音乐"">流行音乐</a> | <a href=""?lb=音乐类&xlb=经典怀旧"">经典怀旧</a> | <a href=""?lb=音乐类&xlb=说唱摇滚"">说唱摇滚</a> | <a href=""?lb=音乐类&xlb=配乐小品"">配乐小品</a> | <a href=""?lb=音乐类&xlb=网友原创"">网友原创</a> | <a href=""?lb=音乐类&xlb=其他音乐"">其他音乐</a>"
case "短片类"
lbid=3
Response.Write "<a href=""?lb=短片类&xlb=幽默故事"">幽默故事</a> | <a href=""?lb=短片类&xlb=情感小品"">情感小品</a> | <a href=""?lb=短片类&xlb=童话传奇"">童话传奇</a> | <a href=""?lb=短片类&xlb=生活故事"">生活故事</a> | <a href=""?lb=短片类&xlb=动作竞技"">动作竞技</a> | <a href=""?lb=短片类&xlb=其他短片"">其他短片</a>"
case else
sql="select id from xg_server order by id asc"
rs.open sql,conn,1,1
do while not rs.eof
i=i+1
response.write "<a href=""?server="&rs("id")&"&i="&i&""">第"&i&"/"&rs("id")&"组服务器</a> "
rs.movenext
loop
rs.close
end select
if request("lb")="游戏类" or request("lb")="音乐类" or request("lb")="短片类" then
if request("xlb")<>"" then
flashname=request("lb")&"->"&request("xlb")
sql="select id,name,xlb,time,hits from xg_file where xlb='"&request("xlb")&"' order by id desc"
else
flashname=request("lb")&"FLASH列表"
sql="select id,name,xlb,time,hits from xg_file where lb="&lbid&" order by id desc"
end if
elseif request("server")<>"" then
flashname="第"&request("i")&"/"&request("server")&"组服务器"
sql="select id,name,xlb,time,hits from xg_file where urla="&request("server")&" order by id desc"
elseif request("name")<>"" then
flashname="搜索->"&request("name")
sql="select id,name,xlb,time,hits from xg_file where (name like '%"&request("name")&"%') order by id desc"
else
flashname="全部FLASH列表"
sql="select id,name,xlb,time,hits from xg_file order by id desc"
end if
%>
        </tr>
      </table>
	  <br>
	  <table width="90%" border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#CCCCCC" id="AutoNumber1" style="border-collapse: collapse">
      <tr>
        <td height="25" colspan="6" align="center"><strong><%=flashname%></strong></td>
        </tr>
      <tr>
	  <form name="form" method="post" action="editflash.asp">
        <td height="25" colspan="5" align="center"><span class="style2">搜索：</span><input name="name" type="text" id="name">　<input type="submit" name="Submit" value="查找"></td>
	  </form>
        <td width="11%" height="25" align="center"><a href="addflash.asp">添加动画</a></td>
      </tr>
      <tr>
        <td width="7%" height="25" align="center">ID号</td>
        <td width="45%" height="25" align="center">FLASH名称</td>
        <td width="10%" align="center">类别</td>
        <td width="20%" height="25" align="center">更新时间</td>
        <td width="7%" align="center">点击数</td>
        <td height="25" align="center">相关操作</td>
      </tr>
<%
MaxPerPage=15
page=request("page") 
if isnumeric(page)=true then 
if page>0 then
currentPage=int(page)
else
currentPage=1
end if
else 
currentPage=1
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
       response.end
   else
      totalPut=rs.recordcount
      if currentpage<1 then
       currentpage=1
      end if
      if (currentpage-1)*MaxPerPage>totalput then
	   if (totalPut mod MaxPerPage)=0 then
	     currentpage= totalPut \ MaxPerPage
	   else
	      currentpage= totalPut \ MaxPerPage + 1
	   end if
      end if
       if currentPage=1 then
            showContent
            showpage totalput,MaxPerPage,"editflash.asp"
       else
          if (currentPage-1)*MaxPerPage<totalPut then
            rs.move  (currentPage-1)*MaxPerPage
            bookmark=rs.bookmark
            showContent
            showpage totalput,MaxPerPage,"editflash.asp"
        else
	        currentPage=1
           showContent
           showpage totalput,MaxPerPage,"editflash.asp"
	      end if
	   end if
   end if
   sub showContent
i=1
do while not rs.eof
Response.Write "<tr><td height=""25"" align=""center"">"&rs("id")&"</td><td align=""center"">"&rs("name")&"</td><td align=""center"">"&rs("xlb")&"</td><td align=""center"">"&rs("time")&"</td><td align=""center"">"&rs("hits")&"</td><td align=""center""><a href=editflash2.asp?id="&rs("id")&">修改</a>　<a href='javascript:if(confirm(""确定要删除"&rs("name")&"FLASH动画？""))location=""save.asp?flash=del&id="&rs("id")&"""'>删除</a></td></tr>"
if i>=MaxPerPage then exit do
i=i+1
rs.movenext         
loop
rs.close 
end sub
function showpage(totalnumber,maxperpage,filename)
 if totalnumber mod maxperpage=0 then
     n= totalnumber \ maxperpage
  else
     n= totalnumber \ maxperpage+1
  end if
Response.Write "<tr align=""center""><form name=""form"" method=""post"" action=""editflash.asp?lb="&request("lb")&"&xlb="&request("xlb")&"&server="&request("server")&"&i="&request("i")&"&name="&request("name")&"&hits="&request("hits")&"""><td height=""30"" colspan=""6"">"
if CurrentPage<2 then
Response.Write "首页 上一页 "
else
Response.Write " <a href="&filename&"?lb="&request("lb")&"&xlb="&request("xlb")&"&server="&request("server")&"&i="&request("i")&"&name="&request("name")&"&hits="&request("hits")&"&page=1>首页</a> <a href="&filename&"?lb="&request("lb")&"&xlb="&request("xlb")&"&server="&request("server")&"&i="&request("i")&"&name="&request("name")&"&hits="&request("hits")&"&page="&CurrentPage-1&">上一页</a> "
end if
if n-currentpage<1 then
Response.Write " 下一页 尾页 "
else
Response.Write "<a href="&filename&"?lb="&request("lb")&"&xlb="&request("xlb")&"&server="&request("server")&"&i="&request("i")&"&name="&request("name")&"&hits="&request("hits")&"&page="&CurrentPage+1&">下一页</a> <a href="&filename&"?lb="&request("lb")&"&xlb="&request("xlb")&"&server="&request("server")&"&i="&request("i")&"&name="&request("name")&"&hits="&request("hits")&"&page="&n&">尾页</a> "
end if
Response.Write "页次：<strong>"&CurrentPage&"/"&n&"</strong>页 共<b>"&totalnumber&"</b>条记录 每页<b>"&MaxPerPage&"</b>条 转：<input name=""page"" type=""text"" size=""3"" onkeyup=""value=value.replace(/[^\d]/g,'') ""onbeforepaste=""clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"">页 <input type=""submit"" name=""Submit"" value=""确定"">"
end function
set rs=nothing
conn.close
set conn=nothing
Response.Write "</td></form></tr>"
%>
    </table></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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