admin_dj.asp

学校网站管理系统

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")
sql3="select * from YC_djclass where id="&rs("class")&" order by id desc"
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="showdj.asp?id=<%=rs("id")%>" target=_blank>查看</a>&nbsp;<%response.Write adminpl("dj",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 class=bg height=30><td align=""center""colspan=""3"">当前还没有报错娱乐</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_dj">
<input name="url" type="hidden" id="url" value="admin_dj.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> 
<%end if%>
</td></tr>
</form></table>
<%
rs.close
set rs=nothing
end sub
sub errorlist()%>
<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;娱乐错误报告管理 &emsp;[<a href="?action=goerrorok"><font color=#ffffff>全部修复</font></a>]</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="70%" align=center>标题</td>
<td width="5%"align=center>报错</td>
<td width="15%" align=center>操作</td></tr><tr><td class="hr" colspan="6"></td></tr>
<%sql="select * from YC_dj where error>0 order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
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")
sql3="select * from YC_djclass where id="&rs("class")&" order by id desc"
rs3.open sql3,conn,1,1
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></td>
<td align=center><%=rs("error")%>次</td>
<td>&nbsp;<a href="?action=editerror&id=<%=rs("id")%>">编辑</a>&nbsp;
<a href="showdj.asp?id=<%=rs("id")%>" target=_blank>查看</a>&nbsp;<%response.Write adminpl("dj",rs("id"))%></td></tr>
<tr><td class="hr" colspan="6"></td></tr>
<%rs.movenext
loop
if rs.eof and rs.bof then
Response.Write("<tr class=bg height=30><td align=""center""colspan=""3"">当前还没有报错娱乐</td></tr>")
else%>
<tr class=bg><td width="5%" height="23" align=center><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox"></td>
<td height="30" colspan="6">
<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_dj">
<input name="url" type="hidden" id="url" value="admin_dj.asp"></td>
</tr><tr><td class="hr" colspan="6"></td></tr></form></table>
<%
end if
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_dj] 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='dj' 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_dj.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>
<%end if%>
</td></tr>
</form></table>
<%
rs.close
set rs=nothing
end sub
sub edityecaocolor()
end sub
call closedata()%>