📄 editflash3.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 width="90%" border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#CCCCCC" id="AutoNumber1" style="border-collapse: collapse">
<tr>
<td height="25" colspan="5" align="center"><strong>专辑动画列表-><%=request("name")%></strong></td>
<td width="11%" height="25" align="center"><a href="javascript:history.back(-1)">返回上页</a></td>
</tr>
<tr>
<td width="7%" height="25" align="center">ID号</td>
<td width="46%" height="25" align="center">FLASH名称</td>
<td width="9%" align="center">类别</td>
<td width="20%" height="25" align="center">更新时间</td>
<td width="7%" align="center">点击数</td>
<td height="25" align="center">相关操作</td>
</tr>
<%
xlflash=replace(request("xlflash"), " ", "'")
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
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select id,name,xlb,time,hits from xg_file where xlflash="&xlflash&" order by id desc"
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,"editflash3.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"editflash3.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"editflash3.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=""editflash3.asp?xlflash="&xlflash&"&name="&request("name")&"""><td height=""30"" colspan=""6"">"
if CurrentPage<2 then
Response.Write "首页 上一页 "
else
Response.Write " <a href="&filename&"?xlflash="&xlflash&"&name="&request("name")&"&page=1>首页</a> <a href="&filename&"?xlflash="&xlflash&"&name="&request("name")&"&page="&CurrentPage-1&">上一页</a> "
end if
if n-currentpage<1 then
Response.Write " 下一页 尾页 "
else
Response.Write "<a href="&filename&"?xlflash="&xlflash&"&name="&request("name")&"&page="&CurrentPage+1&">下一页</a> <a href="&filename&"?xlflash="&xlflash&"&name="&request("name")&"&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 + -