📄 admin_i.asp

📁 这是一个非常好的留言版程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#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_i.asp?flag=man"
	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
	
	response.redirect "admin_i.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_i.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_i.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_i.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_i.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"))
		
		set rs=server.createobject("adodb.recordset")
		if sort="" then
			sql="select * from zhai order by ispub desc,id desc"
		else
			sql="select * from zhai where 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_i.asp?Flag=del" 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><span style="font-size: 7pt"><font color="#FF0000">
			</font></span>
			<a onClick="return confirm('确定要删除此条记录吗？');" href="admin_i.asp?flag=man&zt=del&id=<%=rs("ID")%>&pageno=<%=pageno%>&htmurl=<%=rs("htmurl")%>&filepath=<%=rs("filepath")%>">
			<font color="#575757">删除</font></a> 
			<font color="#575757">
			<a href="admin_i.asp?flag=edit&id=<%=rs("id")%>&pageno=<%=pageno%>">修改</a> 
			<%if rs("ispub")=False then%><a href="admin_i.asp?flag=man&zt=sh&id=<%=rs("ID")%>&pageno=<%=pageno%>">审核</a><%end if%> 
			<%if rs("hot")=0 then%><a href="admin_i.asp?flag=man&zt=tj&id=<%=rs("ID")%>&pageno=<%=pageno%>">推荐</a><%else%><a href="admin_i.asp?flag=man&zt=btj&id=<%=rs("ID")%>&pageno=<%=pageno%>"><font color="#FF0000">不推荐</font></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_i.asp?flag=so">
		<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"                         
     	      page "admin_i.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%>
<%
if flag="mans" 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
	
	response.redirect "admin_i.asp?flag=mans&pageno="&request("pageno")
	response.end
end if
%>
<br>
<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_i.asp?flag=mans&sort="&rs("sortID")&"' title='"&rs("sortname")&"'>"&rs("sortname")&"</a>"&"&nbsp;"
			rs.movenext
			loop
			rs.close
			%>
			</td>
		</tr>
		<%
		pageno=request.querystring("pageno")                        
		if pageno=0 then pageno=1  
		sort=trim(request.querystring("sort"))
		
		set rs=server.createobject("adodb.recordset")
		if sort="" then
			sql="select * from zhai order by id desc"
		else
			sql="select * from zhai where sort='"&sort&"' and order by 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		
		%>
		<tr height =30>
			<td bgcolor="#EAEAEA">·<b><a target="_blank" href="<%=rs("FromURL")%>"><font color="#0000FF"><%=rs("title")%></font></a></b><span style="font-size: 7pt"><font color="#FF0000">
			</font></span>
			<a onClick="return confirm('确定要删除此条记录吗？');" href="admin_i.asp?flag=mans&zt=del&id=<%=rs("ID")%>&pageno=<%=pageno%>&htmurl=<%=rs("htmurl")%>&filepath=<%=rs("filepath")%>">
			<font color="#575757">删除</font></a> 
			<font color="#575757">修改 
			<%if rs("hot")=0 then%><a href="admin_i.asp?flag=man&zt=tj&id=<%=rs("ID")%>&pageno=<%=pageno%>">推荐</a><%else%><a href="admin_i.asp?flag=man&zt=btj&id=<%=rs("ID")%>&pageno=<%=pageno%>"><font color="#FF0000">不推荐</font></a><%end if%> </font></td>
		</tr>
		<%
		rs.movenext
		next
		%>
		<tr height =30>
			<td bgcolor="#EAEAEA">                                                                                                                                 
                        
          	<%                                                                                                     
	          tj="flag=mans"                         
     	      page "admin_i.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%>
<%

if flag="add" then

zt=request("zt")

if zt="add" then

	title=trim(request("title"))
	wz=trim(request("wz"))
	bz=trim(request("bz"))

	set rs=server.createobject("adodb.recordset")
	sql="select * from link"
	rs.open sql,conn,1,2

	rs.addnew
	rs("title")=title
	rs("wz")=wz
	rs("bz")=bz
	rs.update
    response.redirect "admin_i.asp?flag=linkman"
    response.end						
	
end if

%>
<br>
<div align="center">
	<script language="vbscript">
	sub chat()
	
	if formadd.Title.value="" then
	msgbox "请输入网站名称！",48,"注意！"
	formadd.Title.focus()
	exit sub
	end if
	
	if formadd.wz.value="" then
	msgbox "请输入网站地址！",48,"注意！"
	formadd.wz.focus()
	exit sub
	end if
		
	formadd.submit()
	end sub
	-->
	</script>                           
	<form method="POST" action="admin_i.asp?flag=add&zt=add" name="formadd">
	<table border="1" width="95%" cellspacing="0" cellpadding="3" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" id="table2">
		<tr height =30>
			<td bgcolor="#EAEAEA" width="77">
				网站名称：</td>
			<td bgcolor="#EAEAEA" width="405">
				<input type="text" name="title" size="22"> *</td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="77">
				<font color="#0000FF">网址：</font></td>
			<td bgcolor="#EAEAEA" width="405">
				<font color="#0000FF"><input type="text" name="wz" size="51"> *</font></td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="77">
				说明：</td>
			<td bgcolor="#EAEAEA" width="405">
				<textarea rows="6" name="bz" cols="50"></textarea></td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="77">
				相关操作：</td>
			<td bgcolor="#EAEAEA" width="405">
				<input type="button" value="添加" name="B1" onClick="chat()"></td>
		</tr>
	</table>
	</form>

</div>

<%end if%>
<%

if flag="linkedit" then

set rs=conn.execute("select * from link where id="&cint(request("id")))
title=rs("title")
wz=rs("wz")
bz=rs("bz")
rs.close

zt=request("zt")

if zt="add" then

	title=trim(request("title"))
	wz=trim(request("wz"))
	bz=trim(request("bz"))

	set rs=server.createobject("adodb.recordset")
	sql="select * from link where id="&cint(request("id"))
	rs.open sql,conn,1,2


	rs("title")=title
	rs("wz")=wz
	rs("bz")=bz
	rs.update
    response.redirect "admin_i.asp?flag=linkman&pageno="&request("pageno")
    response.end						
	
end if

%>
<br>
<div align="center">
	<script language="vbscript">
	sub chat()
	
	if formadd.Title.value="" then
	msgbox "请输入网站名称！",48,"注意！"
	formadd.Title.focus()
	exit sub
	end if
	
	if formadd.wz.value="" then
	msgbox "请输入网站地址！",48,"注意！"
	formadd.wz.focus()
	exit sub
	end if
		
	formadd.submit()
	end sub
	-->
	</script>                           
	<form method="POST" action="admin_i.asp?flag=linkedit&zt=add&id=<%=request("id")%>&pageno=<%=request("pageno")%>" name="formadd">
	<table border="1" width="95%" cellspacing="0" cellpadding="3" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" id="table2">
		<tr height =30>
			<td bgcolor="#EAEAEA" width="77">
				网站名称：</td>
			<td bgcolor="#EAEAEA" width="405">
				<input type="text" name="title" size="22" value="<%=title%>"> *</td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="77">
				<font color="#0000FF">网址：</font></td>
			<td bgcolor="#EAEAEA" width="405">
				<font color="#0000FF">
				<input type="text" name="wz" size="51" value="<%=wz%>"> *</font></td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="77">
				说明：</td>
			<td bgcolor="#EAEAEA" width="405">
				<textarea rows="6" name="bz" cols="50"><%=bz%></textarea></td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="77">
				相关操作：</td>
			<td bgcolor="#EAEAEA" width="405">
				<input type="button" value="添加" name="B1" onClick="chat()"></td>
		</tr>
	</table>
	</form>

</div>

<%end if%>
<%
if flag="linkman" then
zt=request("zt")
if zt="del" then
12 下一页
⌨️ 快捷键说明

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