admin_from.asp

网页酷吧全站系统在此之前提供了一个新闻系统V1.0,反应十分热烈,并有不少网友提供了不少意见例如在线编辑器等问题,并强烈要求本部提供全部程序,顺应广大网友的强烈要求,并希望本人的QQ能够闲下来(因为实

<%if session("username")="" or session("userkey")="" then
response.redirect "../../"
end if%>
<!--#include file="mozeenconn.asp"-->
<link href=../css/main.css rel=stylesheet>
<!--#include file="./inc/const.asp"-->
<!--#include file="./inc/char.asp"-->
<%call main()%>

<%sub main()%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
  <tr> 
    <td height="20" bgcolor="#eeeeee">当前位置：<a href=main.asp>管理首页</a> >> <a href=admin_from.asp>文章来源管理</a></td>
  </tr>
</table>
<%
if Request("action") = "addfrom" then
	call addfrom()
elseif request("action") = "savefrom" then
	call savefrom()
elseif request("action") = "delfrom" then
	call delfrom()
elseif request("action") = "editfrom" then
	call editfrom()
elseif request("action") = "saveeditfrom" then
	call saveeditfrom()
else
	call fromlist()
end if
%>
<%end sub%>

<%sub fromlist()%>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor="#999999" align="center">
<tr bgcolor=#cccccc><td><center><b>文章来源列表</td></tr>
<tr bgcolor=#ffffff><td>【<a href=admin_from.asp?action=addfrom><font color=#cc0000>增加来源</font></a>】</td></tr>
<tr bgcolor=#eeeeee><td>
<%Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "select * from [from] order by fromid DESC"
RS.Open sql, Conn, 1, 1
if rs.eof and rs.bof then
response.write("<center><font color=red>目前还没有文章来源！</font> 请<a href=admin_from.asp?action=addfrom>点击这里</a>添加")
else
do while not rs.EOF%>
<a href=<%=rs("fromurl")%> target=_blank><font color=blue><%=rs("fromname")%></font></a> <%if session("userkey")=4 then%>(<a href=admin_from.asp?action=editfrom&fromid=<%=rs("fromid")%>>修</a>|<a href=admin_from.asp?action=delfrom&fromid=<%=rs("fromid")%>>删</a>)<%end if%>；&nbsp;
<%
RS.MoveNext()
loop
end if
rs.close
set rs=nothing%>
</td></tr></table>
<%end sub%>


<%sub addfrom()%>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor="#999999" align="center">
<form action="admin_from.asp?action=savefrom" method=POST name=addfrom>
<tr bgcolor=#cccccc><td><center><b>添加文章来源</td></tr>
<tr bgcolor=#eeeeee><td><center>
名称：<input type=text name=fromname size=15>
网址：<input type=text name=fromurl size=40>
&nbsp;<input type="submit" name="Submit" value="确定"> &nbsp;<input type="Reset" name="Reset" value="重填">
</td></tr></form></table>
<%end sub%>



<%sub savefrom()%>
<%if request("fromname")="" then%>
<script language=javascript>  
alert( "错误：请输入来源名称！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif request("fromurl")="" then%>
<script language=javascript>  
alert( "错误：请输入来源网址！"  );
location.href = "javascript:history.back()"  
</script>
<%else%>
<%
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from [from]"
	rs.Open sql,conn,1,3
	rs.AddNew
	rs("fromname") = Request("fromname")
	rs("fromurl") = Request("fromurl")
	rs.Update 
	rs.Close 
set rs=nothing
%>
<script language=javascript>  
alert( "恭喜：文章来源添加成功"  );
location.href = "admin_from.asp"  
</script>
<%end if%>
<%end sub%>



<%sub delfrom()
sql="delete from [from] where fromid="&cstr(request("fromid"))
conn.execute(sql)
%>
<script language=javascript>  
alert( "文章来源删除成功"  );
location.href = "admin_from.asp"  
</script>
<%end sub%>



<%sub editfrom()%>
<%
     set rs=server.createobject("adodb.recordset")
   sql="select * from [from] where fromid="&request("fromid")
   rs.open sql,conn,1,1
%>

<table width="95%" cellspacing="1" cellpadding="5" bgcolor="#999999" align="center">
<form action="admin_from.asp?action=saveeditfrom&fromid=<%=rs("fromid")%>" method=POST name=editfrom>
<tr bgcolor=#cccccc><td><center><b>修改文章来源</td></tr>
<tr bgcolor=#eeeeee><td><center>
名称：<input type=text name=fromname size=15 value=<%=rs("fromname")%>>
网址：<input type=text name=fromurl size=40 value=<%=rs("fromurl")%>>
&nbsp;<input type="submit" name="Submit" value="确定"> &nbsp;<input type="Reset" name="Reset" value="重填">
</td></tr></form></table>
<%end sub%>


<%sub saveeditfrom()%>
<%if request("fromname")="" then%>
<script language=javascript>  
alert( "错误：请输入来源名称！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif request("fromurl")="" then%>
<script language=javascript>  
alert( "错误：请输入来源网址！"  );
location.href = "javascript:history.back()"  
</script>
<%else%>
<%sql="update [from] set fromname='"&request("fromname")&"',fromurl='"&request("fromurl")&"' where fromid="&cstr(request("fromid"))
conn.execute(sql)%>
<script language=javascript>  
alert( "文章来源修改成功！"  );
location.href = "admin_from.asp"  
</script>
<%end if%>
<%end sub%>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>