admin_dj.asp

学校网站管理系统

</select></td></tr>
<tr height="25" class=bg><td>&nbsp;是否通过：<input name="pass" type="radio" value="true" <%if rs("pass")=true then response.write "checked" end if%>>&nbsp;通过&nbsp;<input name="pass" type="radio" value="false" <%if rs("pass")=false then response.write "checked" end if%>>&nbsp;不通过</td></tr>
<tr height="25" class=bg><td>&nbsp;是否推荐：<input name="best" type="radio" value="true" <%if rs("best")=true then response.write "checked" end if%>>&nbsp;推荐&nbsp;<input name="best" type="radio" value="false" <%if rs("best")=false then response.write "checked" end if%>>&nbsp;不推荐</td></tr>
<tr height="25" class=bg><td>&nbsp;查看权限：<input name="read" type="radio" value="0" <%if rs("read")=0 then response.write "checked" end if%>>&nbsp;访问游客&nbsp;<input name="read" type="radio" value="1"  <%if rs("read")=1 then response.write "checked" end if%>>&nbsp;普通会员&nbsp;<input name="read" type="radio" value="2"  <%if rs("read")=2 then response.write "checked" end if%>>&nbsp;VIP会员</td></tr>
<tr><td height="30"><%call html()%></td></tr><tr><td class="hr"></td></tr>
<tr height="30" class=foot><td align="center">
<input name="id" type="hidden" id="id" value="<%=rs("id")%>">
<input name="edit" type="submit" class="adminbutton" id="edit" value="修 改">&nbsp;<input name="Submit2" type="reset" class="adminbutton" value="清 空" onclick="ClearReset()"></td></tr>
<textarea name="content" id="content" style=display:none><%=Server.HtmlEncode(rs("content"))%></textarea></table></form>
<%rs.close
set rs=nothing
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◇功  能：处理编辑记录            ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
case "editok"
set rs7=server.CreateObject("adodb.recordset")
sql7="select * from [YC_djclass] where id="&Cint(Trim(request.Form("class")))
rs7.open sql7,conn,1,1
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_dj where id="&request("id")
rs.open sql,conn,1,3
rs("title")=trim(replace(request.Form("title"),"'",""))  
rs("color")=trim(replace(request.Form("color"),"'",""))
rs("bigclass")=Trim(rs7("class"))
rs("class")=trim(replace(request.Form("class"),"'",""))
rs("url")=trim(replace(request.Form("url"),"'",""))
rs("pic")=trim(replace(request.Form("pic"),"'",""))
rs("size")=trim(replace(request.Form("size"),"'",""))
rs("singer")=trim(replace(request.Form("singer"),"'",""))
rs("player")=trim(replace(request.Form("player"),"'",""))
rs("content")=request.Form("content")
rs("pass")=trim(replace(request.Form("pass"),"'",""))
rs("best")=trim(replace(request.Form("best"),"'",""))
rs("read")=trim(replace(request.Form("read"),"'",""))
rs("lrc")=request.Form("lrc")
rs.update
rs.close
rs7.close
set rs7=nothing
response.Redirect"admin_dj.asp"
set rs=nothing
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◇功  能：编辑错误记录            ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
case "editerror"
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_dj where id="&request.QueryString("id")
rs.open sql,conn,1,3%>
<script language="javascript">
function error(){
IframeID.document.body.innerHTML=document.all("content").value;
document.all("content").value="";}
function chk(){
document.all("content").value=IframeID.document.body.innerHTML;
if(document.form.title.value==""){
alert("娱乐标题不能为空");
document.form.title.focus();
return false;}
if(document.form.url.value==""){
alert("娱乐地址不能为空");
document.form.url.focus();
return false;}
if(IframeID.document.body.innerHTML==""){
alert("娱乐内容不能为空");
IframeID.document.body.focus();
return false;}
return true;}
</Script>
<form method="post" name="form" id="form" onsubmit="return chk();" action="?action=editerrorok">
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" bordercolor="<%=border%>" rules=none class=3d>
<tr><td height="22"  class=title><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;娱乐名称：<input name="title" type="text" id="title" value="<%=rs("title")%>" size="20" class=yecao style="width:120px"><%call edityecaocolor()%></td></tr>
<tr class=bg height="25"><td>&nbsp;娱乐作者：<input name="singer" type="text" id="singer" value="<%=rs("singer")%>" size="20" class=yecao style="width:120px">&nbsp;<button onClick="singer.value='未知'" class=button>未知</button>&nbsp;<button onClick="singer.value='<%=webceo%>'" class=button><%=webceo%></button></td></tr>
<tr class=bg height="25"><td>&nbsp;娱乐大小：<input name="size" type="text" id="size"  value="<%=rs("size")%>" size="20" class=yecao style="width:120px"></td></tr>
<tr height="25" class=bg><td>&nbsp;娱乐地址：<input name="url" type="text" id="url" value="<%=rs("url")%>"  size="20" class=yecao style="width:300px">&nbsp;<button onclick="document.all.updj.style.display=(document.all.updj.style.display=='none')?'':'none'" class=button>重新上传娱乐文件</button></td></tr>
<tr class=bg height="25"><td>
  <p align="left">&nbsp;歌词地址：<input name="lrc" type="text" id="lrc1" value="<%=rs("lrc")%>"  size="20" class=yecao style="width:300px">&nbsp;<button onclick="document.all.uplrc.style.display=(document.all.uplrc.style.display=='none')?'':'none'" class=button>重新上传娱乐歌词</button></td></tr>
<tr class=bg height="25"><td>&nbsp;娱乐分类：<%call adminselecttype("YC_djclass",rs("class"))%></td></tr>
<tr class=bg height="25"><td>&nbsp;播放选择：<select name=player class=yecao style="width:120px">
<option value="media" <%if rs("player")="media" then response.write "selected"%>>media视听</option>
<option value="mediamtv" <%if rs("player")="mediamtv" then response.write "selected"%>>media视频</option>
<option value="medialrc">media歌词</option>
<option value="real" <%if rs("player")="real" then response.write "selected"%>>real视听</option>
<option value="realmtv" <%if rs("player")="realmtv" then response.write "selected"%>>real视频</option>
<option value="reallrc">real歌词</option>
<option value="flash" <%if rs("player")="flash" then response.write "selected"%>>FLASH</option>
</select></td></tr>
<tr height="25" class=bg><td>&nbsp;是否通过：<input name="pass" type="radio" value="true" <%if rs("pass")=true then response.write "checked" end if%>>&nbsp;通过&nbsp;<input name="pass" type="radio" value="false" <%if rs("pass")=false then response.write "checked" end if%>>&nbsp;不通过</td></tr>
<tr height="25" class=bg><td>&nbsp;是否推荐：<input name="best" type="radio" value="true" <%if rs("best")=true then response.write "checked" end if%>>&nbsp;推荐&nbsp;<input name="best" type="radio" value="false" <%if rs("best")=false then response.write "checked" end if%>>&nbsp;不推荐</td></tr>
<tr height="25" class=bg><td>&nbsp;查看权限：<input name="read" type="radio" value="0" <%if rs("read")=0 then response.write "checked" end if%>>&nbsp;访问游客&nbsp;<input name="read" type="radio" value="1"  <%if rs("read")=1 then response.write "checked" end if%>>&nbsp;普通会员&nbsp;<input name="read" type="radio" value="2"  <%if rs("read")=2 then response.write "checked" end if%>>&nbsp;VIP会员</td></tr>
<tr><td height="30"><%call html()%></td></tr><tr><td class="hr"></td></tr>
<tr height="30" class=foot><td align="center">
<input name="id" type="hidden" value="<%=rs("id")%>">
<input name="error" type="submit" class="adminbutton" id="error" value="恢 复">&nbsp;<input name="Submit2" type="reset" class="adminbutton" value="清 空" onclick="ClearReset()"></td></tr>
<textarea name="content" id="content" style=display:none><%=rs("content")%></textarea></table></form>
<%rs.close
set rs=nothing 
case "goerrorok" 
conn.execute("UPDATE [YC_dj] SET error='0'")
response.Write"<script>alert('您已经成功的把所有报错的娱乐修复完毕了！');this.location.href='admin_dj.asp';</script>"
response.end
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◇功  能：处理编辑错误记录        ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
case "editerrorok" 
set rs7=server.CreateObject("adodb.recordset")
sql7="select * from [YC_djclass] where id="&Cint(Trim(request.Form("class")))
rs7.open sql7,conn,1,1
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_dj where id="&request.Form("id")
rs.open sql,conn,1,3
rs("title")=trim(replace(request.Form("title"),"'",""))  
rs("color")=trim(replace(request.Form("color"),"'",""))
rs("bigclass")=Trim(rs7("class"))
rs("class")=trim(replace(request.Form("class"),"'",""))
rs("url")=trim(replace(request.Form("url"),"'",""))
rs("pic")=trim(replace(request.Form("pic"),"'",""))
rs("size")=trim(replace(request.Form("size"),"'",""))
rs("singer")=trim(replace(request.Form("singer"),"'",""))
rs("player")=trim(replace(request.Form("player"),"'",""))
rs("content")=request.Form("content")
rs("pass")=trim(replace(request.Form("pass"),"'",""))
rs("best")=trim(replace(request.Form("best"),"'",""))
rs("read")=trim(replace(request.Form("read"),"'",""))
rs("lrc")=request.Form("lrc")
rs.update
conn.execute("UPDATE YC_dj SET error=0 where id="&request.Form("id")&"")
rs.close
set rs=nothing
rs7.close
set rs7=nothing
response.write"<script>location.href='admin_dj.asp';</script>"
case "errorlist" 		
     call errorlist()
case "pllist" 		
     call pllist()
case "pledit" 		
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_pl where id="&request("id")
rs.open sql,conn,1,1%>
<form name="form1" method="post" action="?action=pleditok">
</form>
<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" rows="1" cols="20"><%=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>&nbsp;</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")
rs.update
response.Write "<script>alert('评论修改成功');</script>"
response.Write "<script>location.href='admin_dj.asp';</script>"
case else
     call list()
end select
sub list()
dim dj,errordj
sql="select * from YC_dj order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
dj=rs.recordcount
sql="select * from YC_dj where error>0 order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
errordj=rs.recordcount
sql="select * from YC_dj 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;娱乐管理 [当前共有<%=dj%>个娱乐，其中等待审核的有<%=nopass%>个,网友报错的有<%=errordj%>个]</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_dj] 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)