?? editxl.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>專輯管理</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
}
.style7 {
color: #215DC6;
font-weight: bold;
}
</STYLE>
</head>
<body>
<p> </p>
<table width="80%" 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>FLASH專輯管理</strong></td>
</tr>
<tr>
<form name="form1" method="post" action="editxl.asp">
<td height="25" colspan="4" align="center"><span class="style2">搜索：</span> <input name="name" type="text" id="name">
<input type="submit" name="Submit" value="查找"></td>
</form>
<td width="14%" height="25" align="center"><a href="editxl3.asp">添加專輯</a></td>
</tr>
<tr>
<td width="9%" height="25" align="center">ID號</td>
<td width="41%" height="25" align="center">專輯名稱</td>
<td width="24%" align="center">更新時間</td>
<td width="12%" height="25" 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
Set rs= Server.CreateObject("ADODB.Recordset")
if request("name")<>"" then
sql="select id,name,tj,time from xg_special where (name like '%"& request("name") &"%') order by id desc"
else
sql="select id,name,tj,time from xg_special order by id desc"
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,"editxl.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"editxl.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"editxl.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""><a href=editflash3.asp?xlflash="&rs("id")&"&name="&rs("name")&">"&rs("name")&"</a></td><td align=""center"">"&rs("time")&"</td><td align=""center"">"
if rs("tj")=true then
Response.Write"已推薦"
else
Response.Write"未推薦"
end if
Response.Write "</td><td align=""center""><a href=editxl2.asp?id="&rs("id")&">修改</a> <a href='javascript:if(confirm(""確定要刪除"&rs("name")&"專輯及相關FLASH動畫？""))location=""save.asp?editxl=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=""editxl.asp""><td height=""30"" colspan=""5"">"
if CurrentPage<2 then
Response.Write "首頁 上一頁 "
else
Response.Write " <a href="&filename&"?page=1>首頁</a> <a href="&filename&"?page="&CurrentPage-1&">上一頁</a> "
end if
if n-currentpage<1 then
Response.Write " 下一頁 尾頁 "
else
Response.Write "<a href="&filename&"?page="&CurrentPage+1&">下一頁</a> <a href="&filename&"?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 + -