admin_art.asp

学校网站管理系统

<form name="form1" method="post" action="?action=pleditok">
<table width="400" align=center border="0" cellpadding="0" cellspacing="0" bordercolor="<%=border%>" rules=none class=3d>
<tr><td height="22"  class=title colspan=2><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;修改评论</b></td></tr>
<tr class=bg height=25><td>&nbsp;评论者：</td><td><input name="title" type="text" id="title" value="<%=rs("title")%>" size="20" class=yecao style="width:120px"></td></tr>
<tr class=bg height=25><td valign=top>&nbsp;内&emsp;容：</td><td><textarea name="content" style="width:300px;height:65px;" id="content"><%=rs("content")%></textarea></td></tr>
<tr class=bg height=25><td align=center colspan=2>
<input name="id" type="hidden" id="editpl" value="<%=rs("id")%>">
<input name="editpl" type="submit" id="editpl" value="修 改" class=adminbutton></form>
</td></tr></table>
<%case "pleditok" 		
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_pl where id="&request("id")
rs.open sql,conn,1,3
if request.Form("editpl")<>""then
rs("title")=request.Form("title")
rs("content")=request.Form("content")
rs.update
response.Write "<script>alert('评论修改成功');location.href='admin_art.asp';</script>"
end if
case else
     call list()
end select
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◇功  能：文章列表                ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub list()
dim art
sql="select * from YC_art order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
art=rs.recordcount
sql="select * from YC_art where pass=false order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
nopass=rs.recordcount%>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" bordercolor="<%=border%>" rules=none class=3d>
<tr><td height="22" colspan="6" class=title><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;文章管理 [当前共有<%=art%>篇,其中等待审核的有<%=nopass%>篇]</b></td></tr>
<tr class=bg height="25">
<form  method="post" name="form" id="form" action="del.asp" onsubmit="return downdel();">
<td width="5%"  align=center>选定</td>
<td width="65%" align=center>标题</td>
<td width="10%"align=center>审核</td>
<td width="5%"align=center>点击</td>
<td width="20%" align=center>操作</td></tr><tr><td class="hr" colspan="6"></td></tr>
<%
sql="select * from YC_art order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.pagesize=cint(adminpage)
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof%>
<tr height=25 class=bg onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#efefef'">
<td>&nbsp;<input name='SoftID' type='checkbox' onclick="unselectall()" id="SoftID" value='<%=rs("id")%>'></td>
<td>[<%set rsclass=server.CreateObject("adodb.recordset")
sqlclass="select * from YC_artclass where id="&rs("class")&" order by id desc"
rsclass.open sqlclass,conn,1,1
if not rsclass.bof and not rsclass.eof then
response.Write rsclass("classname")
end if
rsclass.close
set rsclass=nothing%>]<font color="<%=rs("color")%>"><%=rs("title")%></font>&nbsp;<%if rs("best")=true then%>『<font color=red>推荐</font>』<%end if%>&emsp;
<%if rs("pass")=false then%>
<button class=button onclick="{if(confirm('您再次确定要删除『<%=rs("user")%>』发布的这条新闻吗?\n\n注意：删除后不可恢复,并且会扣掉『<%=rs("user")%>』的10点！')){window.location='?action=delnopass&user=<%=rs("user")%>&id=<%=rs("id")%>'}return false;}">不通过</button>
<%end if%></td>
<td align=center><%if rs("pass")=false then%><font color=red><b>等待</b></font><%else%>通过<%end if%></td>
<td align=center><%=rs("click")%></td>
<td>&nbsp;<a href="?action=edit&id=<%=rs("id")%>">编辑</a>&nbsp;
<a href="showart.asp?id=<%=rs("id")%>" target=_blank>查看</a>&nbsp;<%response.Write adminpl("art",rs("id"))%></td></tr><tr><td class="hr" colspan="6"></td></tr>
<%
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
end if
if rs.eof and rs.bof then
response.write"<tr><td colspan=6 height=100 align=center>暂时没有公告！</td></tr>"
else%>
<tr class=bg><td  height=25 colspan=6>
<table width=100% border=0><tr><td width=200>
&nbsp;<input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
<input name="submit" type="submit" onClick="document.form.Action.value='Del'" value="删 除" class=adminbutton>
<input name="Action" type="hidden" id="Action" value="Del">
<input name="tab" type="hidden" id="tab" value="YC_art">
<input name="url" type="hidden" id="url" value="admin_art.asp">
</td><td>
&emsp;&emsp;共有文章<font color=red><%=rs.recordcount%></font>条，每页<font color=red><%=rs.pagesize%></font>条，分<font color=red><%=mypage%></font>/<%=rs.pagecount%>页&emsp;&emsp;&emsp;
<script language="javascript">
function showPageLink(sUrl,iPage,iCount){
var i;
i=Math.max(1,iPage-1);
document.write("<a href=\""+sUrl+"1\"><FONT face=Webdings>9</FONT></a> ");
document.write("<a href=\""+sUrl+i+"\"><FONT face=Webdings>7</FONT></a> <b>");
for(i=Math.max(1,iPage-5);i<iPage;i++){
document.write("<a href=\""+sUrl+i+"\">"+i+"</a> ");}
document.write("<font color='#ff3333'>"+iPage+"</font> ");
for(i=iPage+1;i<=Math.min(iCount,iPage+5);i++){
document.write("<a href=\""+sUrl+i+"\">"+i+"</a> ");}
i=Math.min(iCount,iPage+1);
document.write("</b><a href=\""+sUrl+i+"\"><FONT face=Webdings>8</FONT></a> ");
document.write("<a href=\""+sUrl+iCount+"\"><FONT face=Webdings>:</FONT></a> ");}
showPageLink("?action=list&page=",<%=mypage%>,<%=pages%>);
</script>
</td></tr>
</table>
</td></tr>
</form>
<%end if%>
</table>
<%
rs.close
set rs=nothing%></td></tr></table>
<%end sub
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◇功  能：平论列表                ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub pllist()%>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" bordercolor="<%=border%>" rules=none class=3d>
<tr><td height="22" colspan="6" class=title><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;评论管理 [关于《
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_art where id="&request("plid")
rs.open sql,conn,1,1
response.Write rs("title")
rs.close
set rs=nothing
%>》的评论]</b></td></tr>
<tr class=bg height="25">
<form  method="post" name="form" id="form" action="del.asp" onsubmit="return downdel();">
<td width="5%"  align=center>选定</td>
<td width="50%" align=center>评论内容</td>
<td width="25%"align=center>评论者</td>
<td width="15%" align=center>操作</td></tr><tr><td class="hr" colspan="6"></td></tr>
<%
sql="select * from YC_pl where pltype='art' and plid="&request("plid")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.pagesize=cint(adminpage)
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof%>
<tr height=25 class=bg onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#efefef'">
<td align=center>
<input name='SoftID' type='checkbox' onclick="unselectall()" id="SoftID" value='<%=rs("id")%>'></td>
<td><%=rs("content")%></td>
<td align=center><%=rs("title")%></td>
<td align=center><a href="?id=<%=rs("id")%>&action=pledit">编辑</a></td></tr><tr><td class="hr" colspan="6"></td></tr>
<%
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
end if
if rs.eof and rs.bof then
response.write"<tr><td colspan=6 height=100 align=center>暂时没有文章评论！</td></tr>"
else%>
<tr class=bg><td  height=25 colspan=6>
<table width=100% border=0><tr><td width=200>
&nbsp;<input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
<input name="submit" type="submit" onClick="document.form.Action.value='Del'" value="删 除" class=adminbutton>
<input name="Action" type="hidden" id="Action" value="Del">
<input name="tab" type="hidden" id="tab" value="YC_pl">
<input name="url" type="hidden" id="url" value="admin_art.asp">
</td><td>
&emsp;&emsp;共有文章评论<font color=red><%=rs.recordcount%></font>条，每页<font color=red><%=rs.pagesize%></font>条，分<font color=red><%=mypage%></font>/<%=rs.pagecount%>页&emsp;&emsp;&emsp;
<script language="javascript">
function showPageLink(sUrl,iPage,iCount){
var i;
i=Math.max(1,iPage-1);
document.write("<a href=\""+sUrl+"1\"><FONT face=Webdings>9</FONT></a> ");
document.write("<a href=\""+sUrl+i+"\"><FONT face=Webdings>7</FONT></a> <b>");
for(i=Math.max(1,iPage-5);i<iPage;i++){
document.write("<a href=\""+sUrl+i+"\">"+i+"</a> ");}
document.write("<font color='#ff3333'>"+iPage+"</font> ");
for(i=iPage+1;i<=Math.min(iCount,iPage+5);i++){
document.write("<a href=\""+sUrl+i+"\">"+i+"</a> ");}
i=Math.min(iCount,iPage+1);
document.write("</b><a href=\""+sUrl+i+"\"><FONT face=Webdings>8</FONT></a> ");
document.write("<a href=\""+sUrl+iCount+"\"><FONT face=Webdings>:</FONT></a> ");}
showPageLink("?action=pllist&page=",<%=mypage%>,<%=pages%>);
</script>
</td></tr>
</table>
</td></tr>
</form>
<%end if%>
</table>
<%
rs.close
set rs=nothing
end sub
call closedata()%>