?? editflash.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 + -