admin_djspecial.asp

安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!

<td align="center"><%=rs("zjuser")%></td>
<td  align="center"><%=year(rs("dateandtime"))%>-<%=month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%></td>
<td  align="center"> <a href="admin_djspecial.asp?id=<%=rs("SpecialID")%>&action=editdj">编辑</a></td>
        </tr> 
<%
rscat.close
set rscat=nothing   
j=j+1
rs.movenext
loop
end if%>
        <form name="form1" method="post" action="admin_djspecial.asp?action=dj&djcat_id=<%=request.querystring("djcat_id")%>">
          <tr class=Hxcmsqs> <td class=Hxcmsqs colspan="7">
            <input type=hidden value=DEL name=operation>
	 <input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON">选中本页所有 <input type=submit value=批量删除 onClick="return confirm('确定删除选中的专集吗?');"> </td>
            </tr></form>
<%
Response.Write(MultiPages)
Response.Write("</table>")
end if

if request.querystring("action")="newdj" then%>
     <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 type="text" name="name" size="20">
            </td>
          </tr>
          <tr class=Hxcmsds> 
            <td width="17%">专集作者：</td>
            <td width="83%"> 
              <input type="text" name="zjuser" size="20" value="花香音乐">
            </td>
          </tr>
          <tr class=Hxcmsds> 
            <td width="17%">专集分类：</td>
            <td width="83%"> 
              <select name="ClassID">
                <%
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")%>">├ <%=rs2("djcat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
              </select>
            </td>
          </tr>
          <tr class=Hxcmsds> 
            <td width="17%">所属语言：</td>
            <td width="83%"> 
              <select name="Yuyan">
                <option value="国语" selected>国语</option>
                <option value="粤语">粤语</option>
                <option value="英文">英文</option>
                <option value="日韩">日韩</option>
                <option value="韩文">韩文</option>
                <option value="日语">日语</option>
                <option value="国/粤语">国/粤语</option>
                <option value="中/英文">中/英文</option>
                <option value="中/日文">中/日文</option>
                <option value="中/韩文">中/韩文</option>
              </select>
&nbsp;&nbsp;&nbsp; 唱片公司：<input type="text" name="Gongsi" size="20">
            </td>
          </tr>
          <tr class=Hxcmsds> 
            <td width="17%">专集图片：</td>
            <td width="83%"> 
              <input type="text" name="showpic" size="60">
            </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=djpic"></iframe></td>
            </tr>       

          <tr class=Hxcmsds> 
            <td width="17%">专集介绍：</td>
            <td width="83%"> 
              <textarea rows="6" name="Word" cols="60">暂无介绍</textarea>
            </td>
          </tr>
          
          <tr class=Hxcmsqs align="center"> 
            <td colspan="2"> 
              <input type="checkbox" name="istop" value="1">
              置顶&nbsp;&nbsp;&nbsp;<input type="checkbox" name="isbest" value="1">
              推荐&nbsp;&nbsp;&nbsp; 
              <input type="submit" name="Submit" value="确定新增" class="button">
              <input type="reset" name="Reset" value="清空重填" class="button">
              [<a href="admin_djspecial.asp?action=dj">返回</a>] </td>
          </tr>
		  <input type="hidden" name="action" value="newdj">
		<input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
      <%end if
	  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 djspecial where SpecialID="&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("name")%>">
            </td>
          </tr>
          <tr class=Hxcmsds> 
            <td width="17%">专集作者：</td>
            <td width="83%"> 
              <input name="zjuser" type="text" class="textarea" id="zjuser" size="20" value="<%=rs("zjuser")%>">
            </td>
          </tr>
          <tr class=Hxcmsds> 
            <td width="17%">专集分类：</td>
            <td width="83%"> 
            <select name="ClassID" 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("ClassID") then response.write "selected" end if%>>├ <%=rs2("djcat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
              </select>
            </td>
          </tr>
          <tr class=Hxcmsds> 
            <td  width="17%">所属语言：</td>
            <td  width="83%"> 
              <select name="Yuyan">
<option value="国语" <%if rs("Yuyan")="国语" then response.write "selected" end if%>>国语</option>
<option value="粤语" <%if rs("Yuyan")="粤语" then response.write "selected" end if%>>粤语</option>
<option value="英文" <%if rs("Yuyan")="英文" then response.write "selected" end if%>>英文</option>
<option value="日韩" <%if rs("Yuyan")="日韩" then response.write "selected" end if%>>日韩</option>
<option value="韩文" <%if rs("Yuyan")="韩文" then response.write "selected" end if%>>韩文</option>
<option value="日语" <%if rs("Yuyan")="日语" then response.write "selected" end if%>>日语</option>
<option value="国/粤语" <%if rs("Yuyan")="国/粤语" then response.write "selected" end if%>>国/粤语</option>
<option value="中/英文" <%if rs("Yuyan")="中/英文" then response.write "selected" end if%>>中/英文</option>
<option value="中/日文" <%if rs("Yuyan")="中/日文" then response.write "selected" end if%>>中/日文</option>
<option value="中/韩文" <%if rs("Yuyan")="中/韩文" then response.write "selected" end if%>>中/韩文</option>
</select> &nbsp;&nbsp;&nbsp; 唱片公司：<input type="text" name="Gongsi" size="20" value="<%=rs("Gongsi")%>">
            </td>
          </tr>
          <tr class=Hxcmsds> 
            <td  width="17%">专集图片：</td>
            <td  width="83%"> 
              <input name="showpic" type="text" id="showpic" size="60" value="<%=rs("pic")%>">
            </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=djpic"></iframe></td>
            </tr>
          <tr class=Hxcmsds> 
            <td width="17%">专集简介：</td>
            <td width="83%"> 
              <textarea rows="6" name="Word" cols="60"><%=rs("intro")%></textarea>
            </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%>>
              置顶&nbsp;&nbsp;&nbsp;<input name="isbest" type="checkbox"  id="isbest" value="1" <%if rs("isbest")=1 then response.write "checked" end if%>>
              推荐&nbsp;&nbsp;&nbsp; 
              <input name="Submit" type="submit" id="Submit" value="确定修改"> 
              <input type="reset" name="Reset" value="清空重填" >
              [<a href="admin_djspecial.asp?action=dj">返回</a>] </td>
          </tr>
		  <input type="hidden" name="id" value="<%=rs("SpecialID")%>">
          <input type="hidden" name="action" value="editdj">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
<%end if
if request.QueryString("action")="pltj" then
Specialid=request.QueryString("Specialid")
set rs=server.createobject("adodb.recordset")
sql="select * from djSpecial where Specialid="&cstr(Specialid)
rs.open sql,conn,1,3
if rs.EOF then
  Response.Write("<script language=javascript>alert('服务器出错！请联系管理员！');history.back(1);</script>")
  response.end
else
%>
<script language="javascript"> 
function setid() 
{ 
str='<br>'; 
if(!window.form1.upcount.value) 
window.form1.upcount.value=1; 
	  if(window.form1.upcount.value>50){
	  	alert("您一次最多添加50首歌曲\n\n如果歌曲太多,请分次进行.");
	  	window.form1.upcount.value = 50;
	  	setid();
	  }
	  if(window.form1.upcount.value<1){
	  	alert("您最少要添加1首歌曲");
	  	window.form1.upcount.value = 1;
	  	setid();
	  }
else{
for(i=1;i<=window.form1.upcount.value;i++) 
str+='歌名'+i+':<input name="MusicName'+i+'" size=20>　　文件名:<input type="text" name="Wma'+i+'" value="'+i+'.wma" size=9> <br>歌词: <textarea rows="3" name="MusicWord'+i+'" cols="40">暂无</textarea> <br><br>'; 
}
window.upid.innerHTML=str; 
} 
</script> 
<form name="form1" method="post" action=""> 
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsss> 
<td colspan="2">批 量 添 加 歌 曲</td>
</tr>
<tr class=Hxcmsds> 
<td>专辑名称:《<b><%=rs("name")%></b>》 <input type=hidden name="Classic" value="<%=rs("Classid")%>,<%=rs("Specialid")%>">&nbsp; 需要添加几首                                               
<input type="text" name="upcount" value="1" size="3">
<input type="button" name="Button" class="bt" onClick="setid();" value="设定"> </td>
</tr>
<tr class=Hxcmsds> 
 <td>播放类型、推荐等级：<select name="pic">
<option value="asf">播放类型</option>
<option value="asf">ASF音乐</option>
<option value="asfmtv">ASF影视</option>
<option value="rm">RAM音乐</option>
<option value="rmmtv">RAM影视</option>
<option value="flash">FLASH动画</option>
              </select>
<select name="desc">
<option value="☆☆★★★">推荐等级</option>
<option value="☆☆☆☆★">☆☆☆☆★</option>
<option value="☆☆☆★★">☆☆☆★★</option>
<option value="☆☆★★★">☆☆★★★</option>
<option value="☆★★★★">☆★★★★</option>
<option value="★★★★★">★★★★★</option>
              </select>                                            
 </td>
</tr> 
<tr class=Hxcmsds> 
 <td>防盗链公共路径设置：<select name="d_path" size="1">
 <option value="0" >不设置路径</option>
 <option value="1" >* 上传路径 *</option>
 <option value="2" >其它路径(二)</option>
 <option value="3" >其它路径(三)</option>
 <option value="4" >其它路径(四)</option>
 <option value="5" >其它路径(五)</option>
 </select> *对本专集所有歌曲批量有效，为不写入数据库的路径。
 </td>
</tr>
<tr class=Hxcmsds> 
 <td>公用绝对或相对路径: <input type="text" name="url" value="" size="20">                             
 (公用路径/歌曲文件名)*此为对下列添歌批量写入数据库的路径。                                            
 </td>
</tr> 
<tr align="center" valign="middle" class=Hxcmsds> 
<td align="left" height="11" id="upid"></td> 
</tr>
<tr align="center" valign="middle" class=Hxcmsqs> 
<td height="25"> 
<input type="submit" name="Submit" value=" 提交 ">&nbsp; <input type="reset" name="Submit2" value=" 重执 "> 
<input type="hidden" name="SpecialID" value="<%=rs("SpecialID")%>">
<input type="hidden" name="action" value="pltj">
<input type="hidden" name="MM_insert" value="true"></td> 
</tr> 
</table> 
</form> 
<script language="javascript"> setid();</script>
<%
end if
conn.close
set conn=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.
'****************************************************
%>