📄 admindj_body.asp
字号:
<%sub admindj_body()
if rsadmin("admin_name")="" then
founderr=true
errmsg=errmsg+"<br>"+"<li>你必须填写分类名称！"
end if
%>
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/adminstyle.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="inc/open.js"></script>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<%=errmsg%>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey))>
<%if request.querystring("action")="djerror" then%>
<table cellpadding="2" cellspacing="1" border="0" width="760" cellpadding="4" align=center class="a2">
<tr>
<td colspan="3" class="a1">错误连接管理</td>
</tr>
<tr class="a4">
<td width="60%">影音名称</td>
<td width="20%" align="center">报错人次</td>
<td width="20%" align="center">操作</td>
</tr>
<%
sql="select * from dj where error > 0 order by dj_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%><tr class="a3"><td><a href="javascript:openwin('play.asp?dj_id=<%=rs("dj_id")%>')"><%=rs("dj_name")%></td>
<td align="center"><%=rs("error")%></td>
<td align="center"><a href="admin_dj.asp?id=<%=rs("dj_id")%>&action=editdj">edit</a> <a href="admin_dj.asp?id=<%=rs("dj_id")%>&action=deldj">del</a></td>
</tr>
<%rs.movenext
loop
if rs.eof and rs.bof then%>
当前还没有错误影音
<%end if%>
</table>
<%end if%>
<%if request.querystring("action")="djcat" then
sql="select * from djcat order by djcat_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table cellpadding="2" cellspacing="1" border="0" width="760" cellpadding="4" align=center class="a2">
<tr>
<td colspan="3" class="a1">影音分类管理</td>
</tr>
<tr class="a4" align="center">
<td width="10%">编号</td>
<td width="70%">分类名称</td>
<td width="20%">操作</td>
</tr>
<%do while not rs.eof%>
<tr class="a3">
<td align="center"><%=rs("djcat_id")%> </td>
<td><a href="dj.asp?djcat_id=<%=rs("djcat_id")%>" target="_blank"><%=rs("djcat_name")%></a> </td>
<td align="center"><a href="admin_dj.asp?id=<%=rs("djcat_id")%>&action=editdjcat">edit</a>
<a href="admin_dj.asp?id=<%=rs("djcat_id")%>&action=deldjcat">del</a> <a href="dj.asp?djcat_id=<%=rs("djcat_id")%>" target="_blank">view</a></td>
</tr>
<%rs.movenext
loop
if rs.bof and rs.eof then%>
<tr class="a3" align="center">
<td colspan="3">当前没有影音分类！</td>
</tr>
<%rs.close
set rs=nothing
end if%>
</table>
<br>
<%end if
if request.querystring("action")="newdjcat" then%>
<table cellpadding="2" cellspacing="1" border="0" width="760" cellpadding="4" align=center class="a2">
<form name="form1" method="post" action="">
<tr class="a1">
<td>新增影音分类</td>
</tr>
<tr class="a3">
<td>分类名称-
<input type="text" name="djcat_name" size="40">
</td>
</tr>
<tr class="a4">
<td height="30" align="center">
<input type="submit" name="Submit" value="确定新增">
<input type="reset" name="Reset" value="清空重填">
</td>
</tr>
<input type="hidden" name="action" value="newdjcat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.QueryString("action")="editdjcat" then
if request.querystring("id")="" then
errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
call diserror()
response.end
else
if not isinteger(request.querystring("id")) then
errmsg=errmsg+"<br>"+"<li>非法的影音分类ID参数！"
call diserror()
response.end
end if
end if
sql="select * from djcat where djcat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellpadding="2" cellspacing="1" border="0" width="760" cellpadding="4" align=center class="a2">
<form name="form1" method="post" action="">
<tr class="a1">
<td>修改影音分类</td>
</tr>
<tr>
<td class="a3">分类名称-
<input name="djcat_name" type="text" id="djcat_name" size="40" value="<%=rs("djcat_name")%>">
</td>
</tr>
<tr class="a4">
<td height="30" align="center"> <input name="Submit" type="submit" id="Submit" value="确定修改">
<input name="Reset" type="reset" id="Reset" value="清空重填"> </td>
</tr>
<input type="hidden" name="id" value="<%=rs("djcat_id")%>">
<input type="hidden" name="action" value="editdjcat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.QueryString("action")="deldjcat" then
if request.querystring("id")="" then
errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
call diserror()
response.end
else
if not isinteger(request.querystring("id")) then
errmsg=errmsg+"<br>"+"<li>非法的影音分类ID参数！"
call diserror()
response.end
end if
end if
sql="select * from djcat where djcat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellpadding="2" cellspacing="1" border="0" width="760" cellpadding="4" align=center class="a2">
<form name="form1" method="post" action="">
<tr class="a1">
<td>删除影音分类</td>
</tr>
<tr class="a3">
<td>分类名称- <%=rs("djcat_name")%>
</td>
</tr>
<tr class="a4">
<td height="30" align="center">
<input name="Submit" type="submit" id="Submit" value="确定删除">
</td>
</tr>
<input type="hidden" name="id" value="<%=rs("djcat_id")%>">
<input type="hidden" name="action" value="deldjcat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.querystring("action")="dj" then
sql="select * from dj order by dj_id desc"
if request.querystring("djcat_id")<>"" then
sql="select * from dj where djcat_id="&cint(request.querystring("djcat_id"))&" order by dj_id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totaldj=rs.recordcount
%>
<table cellpadding="2" cellspacing="1" border="0" width="760" cellpadding="4" align=center class="a2">
<tr class="a1">
<td>影音管理</td>
<form name="form3" method="post" action=""><td align="right" colspan="3">
<select name="go" onChange='window.location=form.go.options[form.go.selectedIndex].value'>
<option value="">选择显示方式</option>
<option value="admin_dj.asp?action=dj">显示所有影音</option>
<%sql="select * from djcat"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof%>
<option value="admin_dj.asp?action=dj&djcat_id=<%=rs2("djcat_id")%>"><%=rs2("djcat_name")%></option>
<%rs2.movenext
loop
if rs2.bof and rs2.eof then%><option value="">当前没有分类</option>
<%end if
rs2.close
set rs2=nothing%>
</select>
</td>
</form>
</tr>
<tr class="a4">
<td width="45%">影音名称</td>
<td width="25%" align="center">加入时间</td>
<td width="10%" align="center">点击</td>
<td width="20%" align="center">操作</td>
</tr>
<%
if not rs.eof then
rs.movefirst
rs.pagesize=djperpage
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totaldj=rs.recordcount
if currentpage<>1 then
if (currentpage-1)*djperpage<totaldj then
rs.move(currentpage-1)*djperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totaldj mod djperpage)=0 then
totalpages=totaldj\djperpage
else
totalpages=totaldj\djperpage+1
end if
i=0
do while not rs.eof and i<djperpage
%>
<tr class="a3">
<td><a href="javascript:openwin('play.asp?dj_id=<%=rs("dj_id")%>')"><%=rs("dj_name")%></td>
<td align="center"><%=rs("dj_date")%></td>
<td align="center"><%=rs("dj_count")%></td>
<td align="center"><a href="admin_dj.asp?id=<%=rs("dj_id")%>&action=editdj">edit</a> <a href="admin_dj.asp?id=<%=rs("dj_id")%>&action=deldj">del</a></td>
</tr>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
<tr class="a3">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -