📄 movie.asp
字号:
<!-- #include file="conn.asp"-->
<!-- #include file="logincheck.asp"-->
<%
sql="select * from movie"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
l=1
k=5
dim currentpage,page_count,Pcount
dim totalrec,endpage
perpage=10
if request("page")="" then
currentPage=1
else
currentPage=cint(request("page"))
end if
rs.PageSize = perpage
rs.AbsolutePage=currentpage
page_count=0
totalrec=rs.recordcount
%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
-->
</style>
<link href="../css/style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="1" align="center" cellpadding="4" cellspacing="0" bordercolorlight="#DDDDDD" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
<tr align="center">
<td width="185" height="22" bgcolor="#EEEEEE"><strong>影片名称</strong></td>
<td width="177" bgcolor="#EEEEEE"><b>影片类型</b></td>
<td width="176" bgcolor="#EEEEEE"><strong>影片格式</strong></td>
<td width="186" bgcolor="#EEEEEE"><strong>图片介绍</strong><strong></strong></td>
<td width="233" bgcolor="#EEEEEE"><b>编辑功能</b></td>
</tr>
<tr>
<%do while (not rs.eof) and (not page_count = rs.PageSize)%>
<td width="185" align="center"><%=rs("mc")%></td>
<td align="center" width="177"><%=rs("lx")%> </td>
<td width="176" align="center"><%=rs("geshi")%></td>
<td align="center"><img src="../<%=rs("tupian")%>" width="72" height="85"></td>
<td align="center" width="233"> <a href="xgmovie.asp?id=<%=rs("id")%>&mc=<%=rs("mc")%>"><img src="../image/edit.gif" width="50" height="19" border="0"></a>
<script language=javascript>
function qd(id) {
question = confirm("您确定要删除这条栏目吗?")
if (question){
window.location.href="delmovie.asp?id="+id
}
}
</script> <a href="javascript:qd(<%=rs("ID")%>)"><img src="../image/del.gif" width="50" height="19" border="0"></a></td>
</tr>
<%rs.movenext
page_count = page_count + 1
loop
%>
<tr background="../image/bg11.gif">
<td colspan="5" align="center"><strong><a href="tjmovie.asp">添加影片</a> | <a href="moviebig.asp">查看大类</a> </strong></td>
</tr>
</table>
<table width="76%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<div align="center"><font color="#333333">
<%
If currentPage <> 1 Then
Response.Write "<a href=movie.asp?page=1&lx="&lx&">[第一页]</A> "
Response.Write "<A HREF=movie.asp?Page=" & (currentPage-1) &"&lx="&lx&">[上一页]</A> "
End If
If currentPage <> rs.PageCount Then
Response.Write "<A HREF=movie.asp?Page=" & (currentPage+1) & "&lx="&lx&">[下一页]</A> "
Response.Write "<A HREF=movie.asp?Page=" & rs.PageCount & "&lx="&lx&">[最后一页]</A> "
End If
%>
</font>页次:[<font color="#663300"><%=currentPage%></font>/<font color="#663300"><%=rs.PageCount%></font>]页,共<font color="#663300"><%=totalrec%></font>个影片 跳到： <font size="2">
<select name="select32" onchange='javascript:window.open(this.options[this.selectedIndex].value,"list")'>
<%For m = 1 To rs.PageCount + 1%>
<% if m = rs.PageCount + 1 then%>
<option value="movie.asp?page=<%=m%>&lx=<%=lx%>" selected>请选择</option>
<%else%>
<option value="movie.asp?page=<%=m%>&lx=<%=lx%>" selected>第<%=m%>页</option>
<% end if %>
<%
Next
%>
</select>
</font>页</div></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -