📄 admin_video_error.asp
字号:
<!-- #include file="include/onlogin.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim currentPage,MaxPerPage,rs2,rs3,rs4,totalPut,mpage,ti,bgcolor,sql2,sql3,sql4,pageno,pp,pno,p,filename,username2,username,password
tit="<a href='admin_video.asp?action='>影片列表</a> ┋ " & _
"<a href='admin_video.asp?action=addsever'>添加影片</a> ┋ " & _
"<a href='admin_video.asp?action=addserv'>添加服务器</a> ┋ <a href='admin_vsort.asp'>影片分类</a>｜<A href=admin_video_error.asp>错误电影</A>｜<a href=admin_video_move.asp>批量转移</a>｜<a href=admin_video_url.asp>批量转换</a>"
response.write header(18,tit)
titt="错误电影"
response.write admin_bar(titt,1,"99%")
if request("editt")="editok" then
if request("ername")<>"" then
call mail()
conn.execute("update video set error=error-1 where id="&request("id")&"")
conn.execute("update user_data set emoney=emoney+'"&request("emoney")&"' and integral=integral+'"&request("emoney")&"' and usercp=usercp+'"&request("emoney")&"' where username='"&request("ername")&"'")
conn.execute("delete from video_error where ername='"&request("ername")&"' and erid="&request("id")&"")
conn.close
set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
end if
if request("edit")<>"" then
if request("edit")="edit" then
if request("type")="allfile" then
conn.execute "update video set error=0"
conn.close
set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
else
conn.execute "update video set error=0 where id="&request("id")
conn.close
set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
end if
%>
<%if request("edit")="del" then
conn.execute("delete from video where id="&request("id")&"")
conn.execute("delete from videourl where nameid="&request("id")&"")
conn.close
set conn=nothing
%>
■■■■■■■■■■<br>■■■■■■■■■■<br>删除完成！
<script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();', 100);
// -->
</script><%end if%>
<%if request("edit")="dell" then
conn.execute("delete from videourl where id="&request("id")&"")
conn.close
set conn=nothing%>
■■■■■■■■■■<br>■■■■■■■■■■<br>删除下载地址完成！
<script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();', 100);
// -->
</script><%end if%>
<%else%>
<script language="javascript"><!--
function delcx(id)
{window.open("?edit=del&id="+id,"","width=200,height=100,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no");}
function delcxdown(id)
{window.open("?edit=dell&id="+id,"","width=200,height=100,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no");}
function makeHTML(id)
{window.open("down_makesoft.asp?type=page&id="+id,"","width=200,height=100,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no");}
// --></script>
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="1">
<table border="0" cellspacing="1" width="100%" bgcolor="#555555">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<%
if not isempty(request("page")) and request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
MaxPerPage=15 '###每页显示条数
set rs=server.CreateObject("ADODB.RecordSet")
set rs2=server.CreateObject("ADODB.RecordSet")
set rs3=server.CreateObject("ADODB.RecordSet")
sql="select * from video where error>0 order by tim desc"
rs.open sql,conn,1,1
set rs4=server.CreateObject("ADODB.RecordSet")
if rs.eof and rs.bof then
response.write "<p align='center'>还没有任何错误电影的报告</p>"
else
totalPut=rs.recordcount
rs.move (currentPage-1)*MaxPerPage
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount '得到总页数
%><table border="1" width="100%" cellspacing="0" bgcolor="#F4F4F4" bordercolor="#F4F4F4">
<tr>
<td width="8%" align="center">ID</td>
<td width="7%" align="center">
删除
</td>
<td width="50%">电 影 名 称 (<a href="?edit=edit&type=allfile">清除全部</a>)</td>
<td width="25%">会员</td>
<td width="10%">报数</td>
</tr>
<%
i=0
do while not rs.EOF
ti=ti+1
bgcolor="#ffffff"
if ti=2 then
ti=0
bgcolor="#F4F4F4"
end if%>
<tr bgcolor=<%=bgcolor%> valign="top">
<td width="8%">
<p align="center"><a target="_blank" href="video_view.asp?id=<%=rs("id")%>"><%=rs("id")%></a></td>
<td width="7%">
<p align="center"><a href="javascript:delcx(<%=rs("id")%>)" title="删除">删除</a></td>
<td width="50%">(<a href="?edit=edit&page=<%=request("page")%>&id=<%=rs("id")%>">电影无错清除错误报数</a>)<a href=admin_video.asp?action=video_edit&id=<%=rs("id")%>><%=rs("title")%></a>
<%
sql2="select * from videourl where nameid="&rs("id")&""
rs2.open sql2,conn,1,1
if not rs2.eof then
do while not rs2.eof%><br>[<a href="javascript:delcxdown(<%=rs2("id")%>)" title="删除当前下载地址"><font color="#808080">删</font></a>]<a href="<%=rs2("url")%>" target="_blank"><font color="#808080"><%=rs2("url")%></font></a><%
rs2.movenext
loop
end if
rs2.close
sql3="select * from video_error where erid="&rs("id")&""
rs3.open sql3,conn,1,1
%></td><td width="25%"><%sql4="select * from video_error where erid="&rs("id")&""
rs4.open sql4,conn,1,1
if not rs4.eof then
do while not rs4.eof%>
|<a title="<%=rs3("emoney")%><%response.write objv7.web_var(web_config,8)%>" href="?editt=editok&page=<%=request("page")%>&id=<%=rs("id")%>&emoney=<%=rs3("emoney")%>&ername=<%=rs4("ername")%>"><%=rs4("ername")%></a><%rs4.movenext
loop
end if%><%rs4.close
rs3.close%> </td>
<td width="10%">
<p align="center"><font color="#FF0000"><%=rs("error")%></font></td>
</tr>
<%i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop %>
<tr>
<td width="100%" colspan="5" bgcolor="#FFFFFF">
<%
call page()
sub page()%>页次：<b><font color="#FF0000"><%=currentPage%></font>/<%=mpage%></b>,每页<b><%=MaxPerPage%></b>个,当前电影<b><%=totalPut%></b>个<%
pageno=currentPage
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
pageno=1
end if
%>
[ <%if cint(pageno)>1 then%><a href=<%=filename%>?><%end if%><<-</a> <%if cint(pageno)>1 then%><a href=<%=filename%>?page=<%=pageno-1%>><%end if%><-</a><%
pp=cint(pageno)-3
if pp<1 then
pp=1
end if
for pno=pp to mpage
p=p+1
if pno=cint(pageno) then%> <font color="#FF0000"><%=pno%></font><%else%> <a href=<%=filename%>?page=<%=pno%>><%=pno%></a><%end if%>
<%
if p>=7 then exit for
next%> <%if cint(pageno)< mpage then%> <a href=<%=filename%>?page=<%=pageno+1%>><%end if%>-></a> <%if cint(pageno)< mpage then%><a href=<%=filename%>?page=<%=mpage%>><%end if%>->></a> ]<%
end sub%>
</td>
</tr>
</table>
<%end if%>
</td>
</tr>
</table>
</body>
</html>
<%
set rs2=nothing
set rs=nothing
conn.close
set conn=nothing%><%end if%>
<%
sub mail()
'------------自動發信
dim rs2
set rs2=server.createobject("adodb.recordset")
sql="select * from user_mail"
rs2.open sql,conn,1,3
rs2.addnew
username2=trim(request.form("username2"))
username=trim(request.form("username"))
password=trim(request.form("password"))
rs2("send_u")="[系统]"
rs2("accept_u")=""&request("ername")&""
rs2("topic")="报告错误电影有奖"
rs2("word")="[系统]奖励用户"&request("ername")&"报告本站电影错误,返还"&objv7.web_var(web_config,8)&" "&request("emoney")&" 个"
rs2("tim")=now()
rs2("types")=1
rs2("isread")=0
rs2.update
rs2.close
'------------自動發信
end sub%><%response.write admin_bar(titt,2,"99%")
response.write ender()%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -