admin_pic.asp

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

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

<%else%>
<script language=javascript>  
alert( "错误：您无权进行图片新闻管理！"  );
location.href = "javascript:history.back()"  
</script>
<%end if%>

<%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_pic.asp>图片新闻管理</a></td>
  </tr>
</table>
<%
if Request("action") = "addpic" then
	call addpic()
elseif request("action") = "savepic" then
	call savepic()
elseif request("action") = "delpic" then
	call delpic()
elseif request("action") = "picyes" then
	call picyes()
elseif request("action") = "picno" then
	call picno()
elseif request("action") = "editpic" then
	call editpic()
elseif request("action") = "saveeditpic" then
	call saveeditpic()
else
	call piclist()
end if
%>
<%end sub%>


<%sub piclist()%>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor=#999999 align=center>
  <tr bgcolor=#cccccc><td colspan=8><center><b>所有图片新闻列表</b></td></tr>
  <tr bgcolor=#ffffff><td colspan=8 height=20>【<a href=admin_pic.asp?action=addpic><font color=#cc0000>添加图片新闻</font></a>】</td></tr>
  <tr bgcolor=#dddddd align=center><td><b>ID</td><td><b>图片</td><td><b>标题</td><td><b>时间</td><td><b>管理操作</td></tr>
<%
dim pagecount,page,Spage,Epage,recordcount,i
page = request.querystring("page")
if page = "" or IsNull(page) then page = 1
if not IsNumeric(page) then page = 1
page = Cint(page)
Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "select * from picnews order by picid DESC"
RS.Open sql, Conn, 1, 1
recordcount = RS.RecordCount
RS.PageSize = PAGESIZE
pagecount = RS.PageCount
if page < 1 then
    page = 1
elseif page > pagecount then
    page = pagecount
end if
if RS.EOF  then
    Response.Write("<tr bgcolor=#ffffff><td colspan=7 height=20><center><br><font color=red>目前还没有图片新闻</font></td></tr>")
else
  if recordcount > 0 then RS.AbsolutePage = page
  for i = 1 to PAGESIZE
  if RS.EOF then exit for
Set RS_1 = Server.CreateObject("ADODB.RecordSet")
sql_1 = "select top 1 * from jsconst"
RS_1.Open sql_1, Conn, 1, 1
%>
   <tr align=center bgcolor=#eeeeee>
   <td><%=rs("picID")%></td>
   <td><a href=../<%=rs("picurl")%> target=_blank><img src=../<%=rs("imgurl")%> border=0 width=<%=rs_1("picwidth")%> height=<%=rs_1("picheight")%>></a></td>
   <td><a href=../<%=rs("picurl")%> target=_blank><%=rs("pictitle")%></a></td>
   <td><%=rs("addtime")%></td>
   <td>【<a href=admin_pic.asp?action=editpic&picid=<%=rs("picid")%>><font color=#cc0000>修改</font></a>】【<a href=admin_pic.asp?action=delpic&picid=<%=rs("picid")%>><font color=#cc0000>删除</font></a>】【<%if rs("ifshow")=1 then%><a href=admin_pic.asp?action=picno&picid=<%=rs("picid")%>><font color=#0000ff>已审</font></a><%else%><a href=admin_pic.asp?action=picyes&picid=<%=rs("picid")%>>待审</a><%end if%>】</td>
   </tr>
   
<%
rs_1.close
RS.MoveNext()
next
end if
%>
</table>
<%
if pagecount > 0 then
    response.write("<table width=""95%"" align=center cellspacing=3 cellpadding=3><tr><td align=right>")
    response.write("页次：<font color=red><b>" & page & "</font>/" & pagecount & "</b>&nbsp;&nbsp;每页<b>" & pagesize & "</b>&nbsp;&nbsp;共<b>" & recordcount & "</b>个管理用户&nbsp;&nbsp;分页：")
    Spage = page mod PARTSIZE
    if page > PARTSIZE then
        if Spage = 0 then Spage = PARTSIZE
        Spage = page - Spage + 1
    else
        Spage = 1
    end if
    Epage = Spage + PARTSIZE - 1
    if Epage > pagecount then Epage = pagecount
    if page > PARTSIZE then
        response.write("<a href=""admin_pic.asp?page=" & Spage - 1 & """>[<<]</a>")
    end if
    for i = Spage to Epage
        if i = page then
            response.write("[<font color=red><b>" & i & "</b></font>]")
        else
            response.write("[<a href=""admin_pic.asp?page=" & i & """>" & i & "</a>]")
        end if
    next
    if Epage < pagecount then
        response.write("<a href=""admin_pic.asp?page=" & Epage + 1 & """>[>>]</a>")
    end if
    if Spage <> 1 then response.write("[<a href=""admin_pic.asp?page=1"">首页</a>]")
    if Epage <> pagecount then response.write("[<a href=""admin_pic.asp?&page=" & pagecount & """>尾页</a>]")
    response.write("</td></tr></table>")    
end if
rs.close
set rs=nothing
%>
<%end sub%>


<!---添加图片新闻--->
<%sub addpic()%>
<table width="95%" cellspacing="1" cellpadding="3" bgcolor="#999999" align="center">
<form action="admin_pic.asp?action=savepic" method=POST name=addpic>
  <tr bgcolor="#CCCCCC"><td colspan="2" align="center"><b>添加图片新闻</b></td></tr>
  <tr bgcolor=#eeeeee><td align=right width=35%>新闻标题：</td><td><input type=text name=pictitle size=45></td></tr>
  <tr bgcolor=#eeeeee><td align=right>图片地址：</td><td><input type=text name=imgurl size=45 value=http://></td></tr>
  <tr bgcolor=#eeeeee><td align=right>链接地址：</td><td><input type=text name=picurl size=45 value=http://></td></tr>
  <tr bgcolor=#eeeeee><td></td><td><input type="submit" name="Submit" value="确定"> &nbsp;&nbsp;<input type="Reset" name="Reset" value="重填"></td></tr>
</form></table>
<%end sub%>


<!---保存添加的图片新闻--->
<%sub savepic()%>
<%if request("pictitle")="" then%>
<script language=javascript>  
alert( "错误：请输入新闻标题！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif request("imgurl")="" then%>
<script language=javascript>  
alert( "错误：请输入图片地址！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif request("picurl")="" then%>
<script language=javascript>  
alert( "错误：请输入新闻链接地址！"  );
location.href = "javascript:history.back()"  
</script>
<%else%>
<%
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from picnews"
	rs.Open sql,conn,1,3
	rs.AddNew
	rs("pictitle") = Request("pictitle")
	rs("imgurl") = Request("imgurl")
	rs("picurl") = Request("picurl")
	rs("Addtime") = now()
	rs("ifshow") = 0
	rs.Update 
	rs.Close 
set rs=nothing
%>
<script language=javascript>  
alert( "图片新闻添加成功"  );
location.href = "admin_pic.asp"  
</script>
<%end if%>
<%end sub%>



<!---删除图片新闻--->
<%sub delpic()
sql="delete from picnews where picid="&cstr(request("picid"))
conn.execute(sql)
response.redirect (referer)
end sub%>


<!---修改图片新闻--->
<%sub editpic()%>
<%
set rs=server.createobject("adodb.recordset")
sql="select picid,pictitle,picurl,imgurl from [picnews] where picid="&request("picid")
rs.open sql,conn,1,1
%>
<table width="95%" cellspacing="1" cellpadding="3" bgcolor="#999999" align="center">
<form action="admin_pic.asp?action=saveeditpic&picid=<%=rs("picid")%>" method=POST name=addpic>
  <tr bgcolor="#CCCCCC"><td colspan="2" align="center"><b>修改图片新闻</b></td></tr>
  <tr bgcolor=#eeeeee><td align=right width=35%>新闻标题：</td><td><input type=text name=pictitle size=45 value=<%=rs("pictitle")%>></td></tr>
  <tr bgcolor=#eeeeee><td align=right>图片地址：</td><td><input type=text name=imgurl size=45 value=<%=rs("imgurl")%>></td></tr>
  <tr bgcolor=#eeeeee><td align=right>链接地址：</td><td><input type=text name=picurl size=45 value=<%=rs("picurl")%>></td></tr>
  <tr bgcolor=#eeeeee><td></td><td><input type="submit" name="Submit" value="我要修改"> &nbsp;&nbsp;<input type="Reset" name="Reset" value="重填"></td></tr>
</form></table>
<%end sub%>

<%sub picno()
sql="update picnews set ifshow=0  where picid="&cstr(request("picid"))
conn.execute(sql)
response.redirect (referer)
end sub%>

<%sub picyes()
sql="update picnews set ifshow=1  where picid="&cstr(request("picid"))
conn.execute(sql)
response.redirect (referer)
end sub%>


<!---保存修改图片新闻--->
<%sub saveeditpic()%>
<%if request("pictitle")="" then%>
<script language=javascript>  
alert( "错误：请输入新闻标题！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif request("imgurl")="" then%>
<script language=javascript>  
alert( "错误：请输入图片地址！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif request("picurl")="" then%>
<script language=javascript>  
alert( "错误：请输入新闻链接地址！"  );
location.href = "javascript:history.back()"  
</script>
<%else%>
<%
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from picnews where picid="&cstr(request("picid"))
	rs.Open sql,conn,1,3
if not rs.eof then
	rs("pictitle").value = Request("pictitle")
	rs("imgurl").value = Request("imgurl")
	rs("picurl").value = Request("picurl")
	rs.Update 
end if
rs.Close 
set rs=nothing
%>
<script language=javascript>  
alert( "图片新闻修改成功！"  );
location.href = "admin_pic.asp"  
</script>
<%end if%>
<%end sub%>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>