📄 admin_tj.asp

📁 这是一个非常好的留言版程序
💻 ASP
字号:
<!--#include file=conn.asp--> 
<!--#include file=char.asp--> 
<!--#include file=Admin_page.asp--> 

<%

if session("AdminName") = "" then
	Session.Abandon
    response.Redirect "Admin_Login.asp"
end if

if Session("AdminName")<>"admin" then
			response.write"<SCRIPT language=JavaScript>alert('对不起您无权访问本页！');"
			response.write"javascript:location.href='Admin_login.asp';</SCRIPT>"
			response.end
   end if

dim Flag
Flag=Request.QueryString("Flag")  
%>

<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../index.css" rel="stylesheet" type="text/css">
<title>后台管理</title>
<script language="javascript">
function SelectAllItemNS(status, chkname)
{
        var a = document.forms[1].elements;
        var i;

        for(i=0;i<a.length;i++) {
                if(a[i].name == chkname)
                        a[i].checked = status;
        }
}

function SelectAllItem(status, chkname)
{
        if(navigator.appName=="Netscape") SelectAllItemNS(status, chkname);
        else SelectAllItemIE(status, chkname);
}
function SelectAllItemIE(status, chkname)
{
        var a = document.all.item(chkname);
        var i;

        if(a!=null) {
                if(a.length!=null) {
                        for (i=0; i<a.length; i++) {
                                a(i).checked = status;
                        }
                }else{
                        a.checked = status;
                }
        }
}
</script>

</head>

<body>
<p>
<%
if flag="del" then

	 For each item in Request("id")                     
	                        
	   set rs=conn.execute("select * from zhai where id="&item)
	   filename="../article/"&trim(rs("filepath"))&"/"&trim(rs("htmurl"))

	   sql="delete from zhai where id="&item
	   conn.execute(sql)  

		Set fso = Server.CreateObject("Scripting.FileSystemObject")   
		if fso.FileExists(server.mappath(filename)) then   
			fso.DeleteFile(server.mappath(filename))
		end if
                     
	 Next  

	response.redirect "admin_tj.asp?flag=man"
	response.end
		 
end if
%>
<%
if flag="tj" then

	 For each item in Request("id")                     
	                        
	sql="update zhai set hot=1 where id="&item
	conn.execute(sql)
             
	 Next  

	response.redirect "admin_tj.asp?flag=man&sort="&request("sort")&"&key="&request("key")
	response.end
		 
end if
%>
<%
if flag="man" then
zt=request("zt")
if zt="del" then
    
	sql="delete from zhai where id="&request("id")
	filename="../article/"&trim(request("filepath"))&"/"&trim(request("htmurl"))
	conn.execute(sql)

	Set fso = Server.CreateObject("Scripting.FileSystemObject")   
	if fso.FileExists(server.mappath(filename)) then   
		fso.DeleteFile(server.mappath(filename))
	end if
	sql="update myuser set ZhaiNum=ZhaiNum-1 where UserID='"&request("userid")&"'"
	set rsupdate=conn.execute(sql)

	response.redirect "admin_tj.asp?flag=man&pageno="&request("pageno")
	response.end
end if
if zt="sh" then
	sql="update zhai set ispub=1 where id="&request("id")
	conn.execute(sql)

	response.redirect "admin_tj.asp?flag=man&pageno="&request("pageno")
	response.end
end if
if zt="tj" then
	sql="update zhai set hot=1 where id="&request("id")
	conn.execute(sql)

	response.redirect "admin_tj.asp?flag=man&pageno="&request("pageno")
	response.end
end if
if zt="btj" then
	sql="update zhai set hot=0 where id="&request("id")
	conn.execute(sql)

	response.redirect "admin_tj.asp?flag=man&pageno="&request("pageno")
	response.end
end if
%>
<br>
</p>
<div align="center">
 
	<table border="1" width="95%" cellspacing="0" cellpadding="3" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" id="table3">
		<tr height =30>
			<td bgcolor="#C0C0C0">&nbsp;推荐网摘 - 
			<%
			set rs=conn.execute("select * from sort order by sortid asc")
			do while not rs.eof 
			response.write "<a href='admin_tj.asp?flag=man&sort="&rs("sortID")&"' title='"&rs("sortname")&"'>"&rs("sortname")&"</a>"&"&nbsp;"
			rs.movenext
			loop
			rs.close
			%>
			</td>
		</tr>
		<%
		pageno=request.querystring("pageno")                        
		if pageno="" then pageno=1
		sort=trim(request.querystring("sort"))
		key=trim(request("key"))
		set rs=server.createobject("adodb.recordset")
		if sort="" then
			sql="select * from zhai where title like '%"&key&"%' order by ispub desc,id desc"
		else
			sql="select * from zhai where title like '%"&key&"%' and sort='"&sort&"' order by ispub desc,id desc"
		end if
		rs.open sql,conn,1,1
		
		if not rs.bof and not rs.eof then                        
			rs.pagesize=12                      
			rs.absolutepage=pageno                        
		
		for i=1 to rs.pagesize
		if rs.eof then exit for		
		%>
		<form method="POST" action="admin_tj.asp?Flag=tj&key=<%=key%>&sort=<%=sort%>" name="form1">
		<tr height =30>
			<td bgcolor="#EAEAEA">
			<input type="checkbox" name="id" value="<%=rs("id")%>">·<b><a target="_blank" href="<%=rs("FromURL")%>"><font color="#0000FF"><%=rs("title")%></font></a> </b>
			<font color="#575757">
			<%if rs("hot")=0 then%><a href="admin_tj.asp?flag=man&zt=tj&id=<%=rs("ID")%>&pageno=<%=pageno%>">推荐</a><%else%><a href="admin_tj.asp?flag=man&zt=btj&id=<%=rs("ID")%>&pageno=<%=pageno%>">不推荐</a><%end if%> </font></td>
		</tr>
		<%
		rs.movenext
		next
		%>
		<tr height =30>
			<td bgcolor="#EAEAEA"><input                      
                  onClick="javascript:if(this.checked==true) SelectAllItem(true, 'id'); else SelectAllItem(false, 'id');"                      
                  type=checkbox value=1 name=select_all >                     
                全选 
			<input type="button" value=" 推荐选定的文章" name="B3" onclick="javaScript:if (confirm('确定要推荐选中的文章吗！ ')) form1.submit();" >                                                                                                                          
          </td>
		</tr>		
		</form>
         <form method="POST" action="admin_tj.asp?flag=man">
		<tr height =30>
			<td bgcolor="#EAEAEA">                                                                                                                                 
				<p>&nbsp;查询关键字：<input type="text" name="key" size="20">
				<input type="submit" value="查询" name="B2"></p>
			
			</td>
		</tr>
		</form>
		<tr height =30>
			<td bgcolor="#EAEAEA">                                                                                                                                 
                        
          	<%                                                                                                     
	          tj="flag=man&sort="&sort&"&key="&key                         
     	      page "admin_tj.asp",tj,pageno,rs.pagecount,rs.pagesize,rs.recordcount                        
            %></td>
		</tr>
		<%else%>
		<tr height =30>
			<td bgcolor="#EAEAEA">暂无内容</td>
		</tr>
		<%end if%>
	</table>
</div>
<%end if%>
</body>

</html>
⌨️ 快捷键说明

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