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

📄 admin_list.asp

📁 1、采用4.5修改而成。 2、添加了求片区
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->
<!-- #include file="check.asp" --> 
<!-- #include file="../inc/Fso_Cls.asp" --> 
<%'====================================================================
'=              Copyright (c) 2005-2007 ,马克斯(QQ448265)开发             =
'=                      All rights reserved.                        =
'=------------------------------------------------------------------=
'=                     文件名称：admin_list.asp                   =
'=                     摘    要：后台—数据列表                 =
'=------------------------------------------------------------------=
'=                     用   途：免费电影系统                         =
'=                     最后更新：2007-07-1                         =
'====================================================================%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理中心</title>
<LINK href="admin.css" type=text/css rel=stylesheet>
</head>
<body>
<div align=center>
<script language="JavaScript">
<!--//
function Juge(myform)
{

if (myform.keyword.value == "")
	{
		alert("请输入要查询的关键字!");
		myform.keyword.focus();
		return (false);
	}
}
d=escape(document.URL);
function CheckOthers(form)
{
	for (var i=0;i<form.elements.length;i++)
	{
		var e = form.elements[i];
//		if (e.name != 'chkall')
			if (e.checked==false)
			{
				e.checked = true;// form.chkall.checked;
			}
			else
			{
				e.checked = false;
			}
	}
}
//-->
</script>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
    <tr>
      <th colspan="9">数据管理</th></tr>
    <tr><form method=get name="myform" action="admin_search.asp" onSubmit="return Juge(this)">
      <td class=forumrow height="22" colspan="9">
查询关键字： <input align="absmiddle" name="keyword" type="text" id="keyword" size="20"> &nbsp;查询类别:
                    <select size="1" name="key"><option value="0">所有分类</option><%set rs=server.createobject("adodb.recordset")
sql="SELECT zt_typeid,zt_typename FROM zt_type order by zt_typeid"
rs.Open sql,conn,1,1
do while not rs.eof%><option value="<%=rs("zt_typeid")%>"><%=rs("zt_typename")%></option><%  
rs.movenext  
loop 
rs.Close
set rs=nothing
%></select>
                    <input type="submit" name="Submit" align="absmiddle" value="查 询..." class=button>&nbsp;&nbsp;<select size="1" name="key" onchange=javascript:window.location.href=this.options[this.selectedIndex].value><option value="">查看分类</option><%set rs=server.createobject("adodb.recordset")
sql="SELECT zt_typeid,zt_typename FROM zt_type order by zt_typeid"
rs.Open sql,conn,1,1
do while not rs.eof%><option value="?zt_typeid=<%=rs("zt_typeid")%>"><%=rs("zt_typename")%></option><%  
rs.movenext  
loop 
rs.Close
set rs=nothing
%></select>&nbsp;【<a href=# onclick="javascript:self.location.reload()">刷新本页</a>】
     </td></tr></form>
   <tr>
      <th width="70%">标题　</th><th nowrap>来源</th><th nowrap>HTML选项</th><th nowrap>HTML状态</th><th nowrap>数据类别</th><th nowrap>设定推荐级别</th><th nowrap>修改数据</th><th nowrap>删除</th><th nowrap>整理时间</th></tr><form method="post" name="make_del" action="">
<%
'/*检测Html是否存在*/
Function CheckHtml(PlayDir,FileUrl)
	Dim Url,Fso
	Url="/"&PlayDir&"/"&FileUrl&"/Index.html"
	Set Fso=New FsoCls
		If Fso.IsFileExists(Url)=True Then
			CheckHtml="<img src=Images/good.gif alt='Html存在'>"
		Else
			CheckHtml="<img src=Images/del.gif alt='Html不存在'>"
		End If
	Set Fso=Nothing
End Function
i=0
page = clng(request.querystring("page"))
zt_type=clng(request("zt_typeid"))
if zt_type="" or zt_type=0 then
usql=" order by zt_date desc"
else
usql=" where zt_type="&zt_type&" order by zt_date desc"
end if
set rs=server.createobject("adodb.recordset") 
sql="select zt_id,zt_name,zt_type,zt_pic,zt_date,zt_tj,zt_dy from zt_data"&usql
rs.open sql,conn,1,1
if rs.eof or rs.bof then
Response.Write("<tr><td colspan=7><p style=""margin: 20px auto"" align=center>还没有相关数据</p></td></tr>")
response.end
else
rs.pagesize = "30"
if page = "" or page < "1" then
page = "1"
end if
if rs.pagecount > "0" then
rs.absolutepage = page
end if
do while not rs.eof
i=i+1
if i > rs.pagesize then
exit do
end if
zt_typeid=clng(rs("zt_type"))
zt_id=rs("zt_id")
set rss=server.createobject("adodb.recordset") 
sqls="select * from zt_type where zt_typeid="&zt_typeid
rss.open sqls,conn,1,1
zt_typename=rss("zt_typename")
zt_en=rss("zt_en")
rss.close%> <tr><input type="hidden" name="zt_en" value="<%=get_classenname(zt_typeid)%>" />
      <td class=forumrow><input type="checkbox" name="zt_id" value="<%=zt_id%>" id="<%=zt_id%>" /><label for="<%=zt_id%>"><%=zt_id%>.<%=rs("zt_name")%></label> <%if rs("zt_pic")<>"" then response.write"<font color=#ff0000>[图]</font>"%>&nbsp;<%if rs("zt_tj")=1 then response.write"<font color=#ff0000>[推荐1]</font>"%>&nbsp;<%if rs("zt_tj")=2 then response.write"<font color=#ff0000>[推荐2]</font>"%></td>
	  <td class=forumrow align="center" nowrap><%=rs("zt_dy")%></td>
	  <td class=forumrow align="center" nowrap><a href="make_view_play.asp?zt_id=<%=zt_id%>">生成</a></td>
	  <td class=forumrow align="center" nowrap><%=CheckHtml(zt_en,zt_id)%></a></td>
	   <td class=forumrow align="center" nowrap><A HREF="?zt_typeid=<%=zt_typeid%>"><%=get_classname(zt_typeid)%></A></td>
	   <td class=forumrow align="center"><%if rs("zt_tj")=1 or rs("zt_tj")=2 then response.write"<a href=admin_p.asp?action=notj&zt_id="&zt_id&"><FONT COLOR=#990000>取消</FONT></a>" else response.write"<a href=admin_p.asp?action=tj&zt_id="&zt_id&">推荐1</a>&nbsp;<a href=admin_p.asp?action=tj2&zt_id="&zt_id&">推荐2</a>" end if%></td>
	  <td class=forumrow align="center"><a href=admin_p.asp?action=edit&zt_id=<%=zt_id%>>编 辑</a></td>
	  <td class=forumrow align="center"><a href=admin_p.asp?action=delete&zt_id=<%=zt_id%>&zt_en=<%=get_classenname(zt_typeid)%> onclick="return confirm('确定要删除吗?');">删除</a></td>
      <td class=forumrow align="center" nowrap><%if cstr(formatdatetime(rs("zt_date"),2))=cstr(date()) then response.write"<FONT COLOR=""#FF0000"">"&rs("zt_date")&"</FONT>" else response.write""&rs("zt_date")%></td></tr>
<%
if i>=rs.pagesize then exit do
rs.movenext
loop
end if%><TR>
	<TD class=forumrow colspan=8><input type="button" value="全/反选" onClick="CheckOthers(this.form)" /> <input type="submit" name="submit" value="批量删除" onclick="document.make_del.action='admin_p.asp?action=delall';" /> <input type="submit" name="make" value="批量生成内容页" onclick="document.make_del.action='make_view.asp?action=view_c';" /><%If maxz_18="1" Then %> <input type="submit" name="make" value="批量生成播放页" onclick="document.make_del.action='make_play.asp?action=play_c';" /><%End If %></TD>
</TR></table>
<table border="0" width="100%" height="25" cellspacing="0" cellpadding="0" class="tableBorder">
<tr>
<td width="15%" nowrap>&nbsp;页次：<b><%=page%></b>/<b><%=rs.pagecount%></b> 每页<b><%=rs.pagesize%></b> 总收录数据<b><font color=#ff0000><%=rs.recordcount%></font></b>条</td>
<td width="65%" nowrap><p align="center"><%if page = "1" then%>首页&nbsp;上一页<%else%>&nbsp;<a href="admin_list.asp" title="首页">首页</a> <a href="admin_list.asp?zt_typeid=<%=zt_type%>&page=<%=page-1%>" title="上一页">上一页</a><%end if%>&nbsp;<%if rs.pagecount-page < 1 then%>下一页&nbsp;尾页<%else%><a href="admin_list.asp?zt_typeid=<%=zt_type%>&page=<%=page+1%>" title="下一页">下一页</a> <a href="admin_list.asp?zt_typeid=<%=zt_type%>&page=<%=rs.pagecount%>" title="尾页">尾页</a><%end if%></p></td><td width="18%" nowrap><table cellpadding="0" cellspacing="0"><form onsubmit="window.location=this.KKK2.options[this.KKK2.selectedIndex].value; return false;"><tr><td nowrap>跳到 <select name="select" onchange="javascript:window.location.href=this.options[this.selectedIndex].value" style="FONT-SIZE: 9pt"><%for go=1 to Rs.pagecount%><option value=admin_list.asp?zt_typeid=<%=zt_type%>&page=<%=go%>>第<%=go%>页</option><%next%></select></td></tr></form></table></td></tr></table><TABLE>

</TABLE><%
call admin_footer()
%>

⌨️ 快捷键说明

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