admin_dj.asp
来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 1,283 行 · 第 1/4 页
ASP
1,283 行
</td></tr></table>
<%end if
'================hx66.com.cn===============
if request.QueryString("action")="editdj" then
if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的歌曲ID参数！');history.back(1);</script>")
response.end
end if
end if
sql="select * from dj where dj_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if Check_Admin(rs("tjuser")) then
Response.Write("<script language=javascript>alert('你没有权限编辑其它管理员的添加的音乐！');history.back(1);</script>")
response.end
end if
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form2" method="post" action="">
<tr class=Hxcmsss>
<td colspan="2">修改歌曲</td>
</tr>
<tr class=Hxcmsds>
<td width="17%">歌曲选项：</td>
<td width="83%">
<select name="djcatid" size="1" onChange="window.open('admin_dj.asp?id=<%=rs("dj_id")%>&action=editdj&classid='+this.options[this.selectedIndex].value,'_self')">
<%
sql="select * from djcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("djcat_name")&"'>"
sql="select * from djcat where sid="&rs1("djcat_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
<option<%if cstr(request("classid"))=cstr(rs2("djcat_id")) and request("classid")<>"" then%> selected<%end if%> value="<%=rs2("djcat_id")%>" name=djcatid>├ <%=rs2("djcat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing%>
</select>
<select name="pic">
<option value="asf" <%if rs("dj_pic")="asf" then response.write "selected" end if%>>ASF音乐</option>
<option value="asfmtv" <%if rs("dj_pic")="asfmtv" then response.write "selected" end if%>>ASF影视</option>
<option value="rm" <%if rs("dj_pic")="rm" then response.write "selected" end if%>>RAM音乐</option>
<option value="rmmtv" <%if rs("dj_pic")="rmmtv" then response.write "selected" end if%>>RAM影视</option>
<option value="flash" <%if rs("dj_pic")="flash" then response.write "selected" end if%>>FLASH动画</option>
</select>
<select name="desc">
<option value="☆☆☆☆★">☆☆☆☆★</option>
<option value="☆☆☆★★">☆☆☆★★</option>
<option value="☆☆★★★" selected>☆☆★★★</option>
<option value="☆★★★★">☆★★★★</option>
<option value="★★★★★">★★★★★</option>
</select>
</td>
</tr>
<tr class=Hxcmsds>
<td width="17%">选择专辑：</td>
<td width="83%">
<%if request("classid")<>"" then%>
<select name="Specialid" size="1">
<option value="0" <%if rs("Specialid")="0" then%> selected<%end if%>>不属任何专辑</option>
<%
sql="select * from djspecial where classid="&request("classid")
set rs5=server.createobject("adodb.recordset")
rs5.open sql,conn,1,1
Do while not rs5.eof
%>
<option<%if cstr(rs("Specialid"))=CStr(rs5("Specialid")) then%> selected<%end if%> value="<%=CStr(rs5("Specialid"))%>" name=Specialid><%=rs5("name")%></option>
<%
rs5.MoveNext
Loop
rs5.close
else
%>
<select name="Specialid" size="1">
<option value="0" selected>不属任何专辑</option>
<%end if%>
</select>
</td>
</tr>
<tr class=Hxcmsds>
<td width="17%">歌曲名称：</td>
<td width="83%">
<input name="name" type="text" class="textarea" id="name" size="40" value="<%=rs("dj_name")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td width="17%">歌手姓名：</td>
<td width="83%">
<input name="user" type="text" class="textarea" id="user" size="20" value="<%=rs("dj_user")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td width="17%">视听地址：</td>
<td width="83%"><select name="d_path" size="1">
<option value="0"<%if rs("path")=0 Then response.write(" selected") End If%> >不设置路径</option>
<option value="1"<%if rs("path")=1 Then response.write(" selected") End If%> >* 上传路径 *</option>
<option value="2"<%if rs("path")=2 Then response.write(" selected") End If%> >其它路径(二)</option>
<option value="3"<%if rs("path")=3 Then response.write(" selected") End If%> >其它路径(三)</option>
<option value="4"<%if rs("path")=4 Then response.write(" selected") End If%> >其它路径(四)</option>
<option value="5"<%if rs("path")=5 Then response.write(" selected") End If%> >其它路径(五)</option>
</select>
<input name="url" type="text" id="url" size="48" value="<%=rs("dj_url")%>"><BR><FONT COLOR="red">→视听地址使用上传，路径一定得选“上传路径”!!!</FONT></td>
</tr>
<tr class=Hxcmsds>
<td> 上传歌曲： </td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=dj"></iframe></td>
</tr>
<tr class=Hxcmsds>
<td width="17%">同步歌词：</td>
<td width="83%">
<input type="text" name="lrc" size="50" value="<%=rs("dj_lrc")%>"> *没有请留空！
</td>
</tr>
<tr class=Hxcmsds>
<td> 上传歌词(.LRC格式)： </td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=djlrc"></iframe></td>
</tr>
<tr class=Hxcmsds>
<td width="17%">添加歌词：</td>
<td width="83%">
<textarea rows="6" name="Word" cols="60"><%=rs("dj_word")%></textarea>
</td>
</tr>
<tr>
<td class=Hxcmsds>下载等级：</td>
<td><select name="Grade" id="Grade">
<option value="0" <%if rs("Grade")="0" then response.write "selected" end if%>>游客下载</option>
<option value="1" <%if rs("Grade")="1" then response.write "selected" end if%>>普通用户</option>
<option value="2" <%if rs("Grade")="2" then response.write "selected" end if%>>VIP 用户</option>
</select> 扣除会员积分数：<input type="text" name="points" size="5" value="<%=rs("points")%>"> **数字整数</td>
</tr>
<tr class=Hxcmsds>
<td align="right">歌曲添加：</td>
<td><input type="text" name="tjuser" size="10" value="<%=rs("tjuser")%>">
</td>
</tr>
<tr class=Hxcmsqs align="center">
<td colspan="2"> <input name="istop" type="checkbox" id="istop" value="1" <%if rs("istop")=1 then response.write "checked" end if%>>
置顶 <input name="isbest" type="checkbox" id="isbest" value="1" <%if rs("isbest")=1 then response.write "checked" end if%>>
推荐
<input name="Submit" type="submit" id="Submit" value="确定修改">
<input type="reset" name="Reset" value="清空重填" >
[<a href="admin_dj.asp?action=dj">返回</a>] </td>
</tr><input type="hidden" name="id" value="<%=rs("dj_id")%>">
<input type="hidden" name="action" value="editdj">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsss>
<td>类型说明</td>
</tr>
<tr class=Hxcmsds>
<td>1."<FONT COLOR="#FF0000">.mp3.mid.wma.asf"纯音乐文件请选择<FONT COLOR="#0000FF">ASF音乐类型<br>2."<FONT COLOR="#FF0000">.wmv.asf.mpg.avi"影视文件选择<FONT COLOR="#0000FF">ASF影视类型.<br>3."<FONT COLOR="#FF0000">.ram.rm"纯音乐文件请选择<FONT COLOR="#0000FF">RAM音乐类型<br>4."<FONT COLOR="#FF0000">.ram.rm"影视文件请选择<FONT COLOR="#0000FF">RAM影视类型<br>5."<FONT COLOR="#FF0000">.swf"动画文件请选择<FONT COLOR="#0000FF">FLASH动画类型
</td></tr></table>
<%
rs.close
set rs=nothing
end if
'================hx66.com.cn===============
if request.QueryString("action")="editerror" then
if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的歌曲ID参数！');history.back(1);</script>")
response.end
end if
end if
sql="select * from dj where dj_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form2" method="post" action="">
<tr class=Hxcmsss>
<td colspan="2">
修改歌曲：</td>
</tr>
<tr class=Hxcmsds>
<td width="17%">歌曲名称：</td>
<td width="83%">
<input name="name" type="text" class="textarea" id="name" size="40" value="<%=rs("dj_name")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td width="17%">歌手姓名：</td>
<td width="83%">
<input name="user" type="text" class="textarea" id="user" size="20" value="<%=rs("dj_user")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td width="17%">歌曲分类：</td>
<td width="83%">
<select name="djcatid" id="djcatid">
<%
sql="select * from djcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("djcat_name")&"'>"
sql="select * from djcat where sid="&rs1("djcat_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
<option value="<%=rs2("djcat_id")%>"<%if rs2("djcat_id")=rs("djcat_id") then response.write "selected" end if%>>├ <%=rs2("djcat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing%>
</select>
<select name="pic">
<option value="asf" <%if rs("dj_pic")="asf" then response.write "selected" end if%>>ASF音乐</option>
<option value="asfmtv" <%if rs("dj_pic")="asfmtv" then response.write "selected" end if%>>ASF影视</option>
<option value="rm" <%if rs("dj_pic")="rm" then response.write "selected" end if%>>RAM音乐</option>
<option value="rmmtv" <%if rs("dj_pic")="rmmtv" then response.write "selected" end if%>>RAM影视</option>
<option value="flash" <%if rs("dj_pic")="flash" then response.write "selected" end if%>>FLASH动画</option>
</select>
<select name="desc">
<option value="☆☆☆☆★">☆☆☆☆★</option>
<option value="☆☆☆★★">☆☆☆★★</option>
<option value="☆☆★★★" selected>☆☆★★★</option>
<option value="☆★★★★">☆★★★★</option>
<option value="★★★★★">★★★★★</option>
</select>
</td>
</tr>
<tr class=Hxcmsds>
<td width="17%">视听地址：</td>
<td width="83%"><select name="d_path" size="1">
<option value="0"<%if rs("path")=0 Then response.write(" selected") End If%> >不设置路径</option>
<option value="1"<%if rs("path")=1 Then response.write(" selected") End If%> >* 上传路径 *</option>
<option value="2"<%if rs("path")=2 Then response.write(" selected") End If%> >其它路径(二)</option>
<option value="3"<%if rs("path")=3 Then response.write(" selected") End If%> >其它路径(三)</option>
<option value="4"<%if rs("path")=4 Then response.write(" selected") End If%> >其它路径(四)</option>
<option value="5"<%if rs("path")=5 Then response.write(" selected") End If%> >其它路径(五)</option>
</select>
<input name="url" type="text" id="url" size="48" value="<%=rs("dj_url")%>"><BR><FONT COLOR="red">→视听地址使用上传，路径一定得选“上传路径”!!!</FONT></td>
</tr>
<tr class=Hxcmsds>
<td> 上传歌曲： </td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=dj"></iframe></td>
</tr>
<tr class=Hxcmsds>
<td width="17%">同步歌词：</td>
<td width="83%">
<input type="text" name="lrc" size="50" value="<%=rs("dj_lrc")%>"> *没有请留空！
</td>
</tr>
<tr class=Hxcmsds>
<td>上传歌词： </td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=djlrc"></iframe></td>
</tr>
<tr class=Hxcmsds>
<td width="17%">添加歌词：</td>
<td width="83%">
<textarea rows="6" name="Word" cols="60"><%=rs("dj_word")%></textarea>
</td>
</tr>
<tr>
<td class=Hxcmsds colspan="2">
下载等级：
<select name="Grade" id="Grade">
<option value="0" <%if rs("Grade")="0" then response.write "selected" end if%>>游客下载</option>
<option value="1" <%if rs("Grade")="1" then response.write "selected" end if%>>普通用户</option>
<option value="2" <%if rs("Grade")="2" then response.write "selected" end if%>>VIP 用户</option>
</select> 扣除会员积分数：<input type="text" name="points" size="5" value="<%=rs("points")%>"> **数字整数
</td>
</tr>
<tr class=Hxcmsqs align="center">
<td colspan="2"> <input name="isbest" type="checkbox" id="isbest" value="1" <%if rs("isbest")=1 then response.write "checked" end if%>>
推荐
<input name="Submit" type="submit" id="Submit" value="确定修改">
<input type="reset" name="Reset" value="清空重填" >
[<a href="admin_dj.asp?action=dj">返回</a>] </td>
</tr>
<input type="hidden" name="id" value="<%=rs("dj_id")%>">
<input type="hidden" name="action" value="editerror">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<br>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsss>
<td>类型说明</td>
</tr>
<tr class=Hxcmsds>
<td>1."<FONT COLOR="#FF0000">.mp3.mid.wma.asf"纯音乐文件请选择<FONT COLOR="#0000FF">ASF音乐类型<br>2."<FONT COLOR="#FF0000">.wmv.asf.mpg.avi"影视文件选择<FONT COLOR="#0000FF">ASF影视类型.<br>3."<FONT COLOR="#FF0000">.ram.rm"纯音乐文件请选择<FONT COLOR="#0000FF">RAM音乐类型<br>4."<FONT COLOR="#FF0000">.ram.rm"影视文件请选择<FONT COLOR="#0000FF">RAM影视类型<br>5."<FONT COLOR="#FF0000">.swf"动画文件请选择<FONT COLOR="#0000FF">FLASH动画类型
</td></tr></table>
<%
rs.close
set rs=nothing
end if
end if
'****************************************************
' Hxcms Ver7.5 Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?