admin_pic.asp

全能学校管理网站源码,小草网络提供,下载试用下

<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
rs("title")=request.Form("title")
rs("content")=request.Form("content")

response.Write "<script>alert('评论修改成功');</script>"
response.Write "<script>location.href='admin_pic.asp';</script>"
case else
     call list()
end select
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◇功  能：图片列表                ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub list()
dim pic
sql="select * from YC_pic order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
pic=rs.recordcount
sql="select * from YC_pic 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;图片管理 [当前共有<%=pic%>张图片,其中等待审核的有<%=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_pic] 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 align=center>
<input name='SoftID' type='checkbox' onclick="unselectall()" id="SoftID" value='<%=rs("id")%>'></td>
<td>[<%set rs3=server.CreateObject("adodb.recordset")
if tab=""then
sql3="select * from YC_picclass where id="&rs("class")&" order by id desc"
else		  
sql3="select * from YC_picclass where id="&cint(tab)&" order by id desc"
end if
rs3.open sql3,conn,1,3
if not rs3.bof and not rs3.eof then
response.Write rs3("classname")
end if
rs3.close
set rs3=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 width="10%"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="showpic.asp?id=<%=rs("id")%>" target=_blank>查看</a>&nbsp;<%response.Write adminpl("pic",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_pic">
<input name="url" type="hidden" id="url" value="admin_pic.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
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_pic 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='pic' 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_pic.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()%>