admin_music.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

<%end if%>
  &nbsp;页次:<strong><%=Currentpage%>/<%=n%></strong>页
  转到:<select name="page" size="1" onchange="javascript:submit()">
<%for i = 1 to n%>           
  <option value="<%=i%>" <%if cint(Currentpage)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>   
<%next%>   
  </select>        
</form>        
<%end function%>
    </td>
  </tr>
</table>
<%

sub music_add()
specialid=request.QueryString("specialid")
set rs=server.createobject("adodb.recordset")
i=0
sql="select * from mv_special where specialid="&cstr(specialid)
rs.open sql,conn_mv,1,3
if rs.EOF then
	call error()
	Response.End
else
i=i+1
%>
<table class=table cellspacing=1 cellpadding=2>
<tr align=center><td height="30" colspan=3><b>添 加 歌 曲</b></td></tr>
<tr align="left"><td height="50">
<form name="form1" method="POST" action="admin_music_add.asp?action=music_add"> 
<script language="javascript"> 
function setid() 
{ 
str=''; 
if(!window.form1.upcount.value) 
window.form1.upcount.value=1; 
for(i=1;i<=window.form1.upcount.value;i++) 
str+='<li>歌曲名称'+i+':<input  class=input name="musicname'+i+'" size=20>&nbsp;&nbsp;<input class=input  type="text" name="Wma'+i+'" value="'+i+'.Wma" size=8>&nbsp;&nbsp;<select class=input name="classic'+i+'" size="1"><option name=option<%=rs("classid")%><%=i%> selected value="<%=rs("classid")%>,<%=rs("sclassid")%>,<%=rs("nclassid")%>,<%=rs("specialid")%>"><%=rs("name")%></option></select></li>'; 
window.upid.innerHTML=str+''; 
} 
</script>
<li>添加歌曲的数量： 
<input type="text" name="upcount" class=input value="1"> 
<input type="button" name="Button" class=input onclick="setid();" value="设定"> 
</li>
<br>
<li>歌曲的文件格式： 
<input class=input  type="text" name="play" class="play" style="width:20" value="0"> 
<font color=gray>* 数字0代表wma格式 数字1代表rm格式 数字2代表mp3格式</font></li> 
<br>
<li>歌曲的公用地址：
<input class=input  type="text" name="url1" class="tx" style="width:198" value="http://"> 
<font color=gray>* 例如:http://dxybbs.host.idc163.cn/music/</font></li> 
<br>
<li>歌曲的公用地址：
<input class=input  type="text" name="url" class="tx" style="width:198" value=""> 
<font color=gray>* 例如:http://dxybbs.host.idc163.cn/</font></li> 
<br>
<li>歌曲的端口：
<input class=input  type="text" name="urlid" class="tx" style="width:198" value=""> 
<font color=gray>* 例如:8080</font></li>
</td> 
</tr> 
<tr align="center"><td align="left" id="upid" height="50"></td></tr> 
<tr align=center><td height="30">
<input class=input type="submit" name="Submit" value=" 提交 ">&nbsp;  
<input class=input type="reset" name="Submit2" value=" 清除 "> 
</td></tr>
</table></form>
<script language="javascript"> setid(); </script>
<%
end if
rs.close
end sub

sub disk_good()
act=request("act")
page=request.QueryString("page")
askclassid=request.QueryString("askclassid")
asksclassid=request.QueryString("asksclassid")
asknclassid=request.QueryString("asknclassid")
specialid=request.QueryString("specialid")
if act<>"Setisgood" then
	act=request("act")
end if
set rs=server.createobject("adodb.recordset")

if act="Setisgood" then
		
		sql="select Isgood from mv_special where specialid="&specialid
		rs.open sql,conn_mv,1,3
		if not rs.EOF then
			if rs("Isgood")=true then
				rs("Isgood")=false
			else
				rs("Isgood")=true
			end if
			rs.update

end if	
	rs.close
	else
		conn_mv.close
		set conn_mv=nothing
		call error()
		Response.End
	end if
	set rs=nothing
conn_mv.close
set conn_mv=nothing
Response.Redirect "?action=disk_list&classid="+askclassid+"&sclassid="+asksclassid+"&nclassid="+asknclassid+"&page="+page
end sub

sub error()
response.write vbcrlf&"<scRIPT language=Javascript>alert('操作错误！\n\n请到 丁香苑社区(http://dxybbs.host.idc163.cn/) 查阅相关贴子！\n\n点击返回... ');javascript:history.go(-1);</scRIPT>"
end sub

sub disk_edit()
classid=cstr(trim(request.QueryString("classid")))
sclassid=cstr(trim(request.QueryString("sclassid")))
nclassid=cstr(trim(request.QueryString("nclassid")))
specialid=request.QueryString("specialid")
askclassid=request.QueryString("askclassid")
asksclassid=request.QueryString("asksclassid")
asknclassid=request.QueryString("asknclassid")
set rs=server.createobject("adodb.recordset")
sql="select * from mv_special where specialid="&specialid
rs.open sql,conn_mv,1,1
if rs.eof then
	call error()
	Response.End 
else
	name=rs("name")
	classid=rs("classid")
	sclassid=rs("sclassid")
	nclassid=rs("nclassid")
	name=rs("name")
	pic=rs("pic")
	times=rs("times")
	yuyan=rs("yuyan")
	gongsi=rs("gongsi")
        gong=rs("gong")
	intro=rs("intro")
rs.close
end if
%>
<table class=table cellspacing=1 cellpadding=1>
<tr height="25" align=center><td>修 改 专 辑</td></tr>
<tr align=center><td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<form method="POST" action="admin_music_view.asp?specialid=<%=specialid%>&askclassid=<%=request("askclassid")%>&asksclassid=<%=request("asksclassid")%>&asknclassid=<%=request("asknclassid")%>&page=<%=request("page")%>" id=form2 name=form2>
<tr><td width="100%" height="22">&nbsp;一级栏目：
<select class=input  name="classid" size="1" onchange="window.open('?action=disk_edit&specialid=<%=specialid%>&askclassid=<%=askclassid%>&asksclassid=<%=asksclassid%>&asknclassid=<%=asknclassid%>&page=<%=request("page")%>&classid='+this.options[this.selectedIndex].value,'_self')">
<%
sql="select * from mv_class"
rs.open sql,conn_mv,1,1
Do until rs.eof
%>
<option<%if (cstr(request("classid"))=cstr(rs("classid")) and request("classid")<>"") or (cstr(classid)=cstr(rs("classid")) and request("classid")="") then%> Selected<%end if%> value="<%=Cstr(rs("classid"))%>"><%=rs("class")%></option>
<%rs.MoveNext
Loop
rs.close
%>
</select>&nbsp;二级栏目：
<%if request("classid")<>"" or request("sclassid")<>"" then
if request("classid")<>"" then%>
<select class=input  name="sclassid" size="1" onchange="window.open('?action=disk_edit&specialid=<%=request("specialid")%>&askclassid=<%=request("askclassid")%>&asksclassid=<%=request("asksclassid")%>&asknclassid=<%=request("asknclassid")%>&page=<%=request("page")%>&classid=<%=request("classid")%>&sclassid='+this.options[this.selectedIndex].value,'_self')">
<%else%>
<select class=input  name="sclassid" size="1" onchange="window.open('?action=diskl_edit&specialid=<%=request("specialid")%>&askclassid=<%=request("askclassid")%>&asksclassid=<%=request("asksclassid")%>&asknclassid=<%=request("asknclassid")%>&page=<%=request("page")%>&classid=<%=classid%>&sclassid='+this.options[this.selectedIndex].value,'_self')">
<%end if%>
<option value="" <%if request("sclassid")="" then%> selected<%end if%>>选择栏目</option>
<%
if request("classid")<>"" then
sql="select * from mv_sclass where classid="&request("classid")
else
sql="select * from mv_sclass where classid="&classid
end if
rs.open sql,conn_mv,1,1
Do while not rs.eof
%>
<option<%if (cstr(request("sclassid"))=cstr(rs("sclassid")) and request("sclassid")<>"") then%> selected<%end if%> value="<%=CStr(rs("sclassid"))%>" name=sclassid><%=rs("sclass")%></option>
<%
rs.MoveNext
Loop
rs.close
else
%>
<select  class=input name="sclassid" size="1" onchange="window.open('?action=disk_edit&specialid=<%=request("specialid")%>&askclassid=<%=request("askclassid")%>&asksclassid=<%=request("asksclassid")%>&asknclassid=<%=request("asknclassid")%>&page=<%=request("page")%>&classid=<%=request("classid")%>&sclassid='+this.options[this.selectedIndex].value,'_self')">
<option value="">选择栏目</option>
<%
sql="select * from mv_sclass where classid="&classid
rs.open sql,conn_mv,1,1
Do while not rs.eof
%>
<option<%if cstr(sclassid)=cstr(rs("sclassid")) then%> selected<%end if%> value="<%=CStr(rs("sclassid"))%>" name=sclassid><%=rs("sclass")%></option>
<%
rs.MoveNext
Loop
rs.close
end if
%>
</select>&nbsp;三级栏目：
<%if request("sclassid")<>"" or request("nclassid")<>"" then
if request("sclassid")<>"" then%>
<select class=input  name="nclassid" size="1" onchange="window.open('?action=disk_edit&specialid=<%=request("specialid")%>&askclassid=<%=request("askclassid")%>&asksclassid=<%=request("asksclassid")%>&asknclassid=<%=request("asknclassid")%>&page=<%=request("page")%>&classid=<%=request("classid")%>&sclassid=<%=request("sclassid")%>&nclassid='+this.options[this.selectedIndex].value,'_self')">
<%else%>
<select  class=input name="nclassid" size="1" onchange="window.open('?action=disk_edit&specialid=<%=request("specialid")%>&askclassid=<%=request("askclassid")%>&asksclassid=<%=request("asksclassid")%>&asknclassid=<%=request("asknclassid")%>&page=<%=request("page")%>&classid=<%=classid%>&sclassid=<%=request("sclassid")%>&nclassid='+this.options[this.selectedIndex].value,'_self')">
<%end if%>
<option value="" <%if request("nclassid")="" then%> selected<%end if%>>选择栏目</option>
<%
if request("sclassid")<>"" then
sql="select * from mv_nclass where sclassid="&request("sclassid")
else
sql="select * from mv_nclass where sclassid="&sclassid
end if
rs.open sql,conn_mv,1,1
Do while not rs.eof
%>
<option<%if (cstr(request("nclassid"))=cstr(rs("nclassid")) and request("nclassid")<>"") then%> selected<%end if%> value="<%=CStr(rs("nclassid"))%>" name=nclassid><%=rs("nclass")%>ff</option>
<%
rs.MoveNext
Loop
rs.close
else
%>
<select  class=input name="nclassid" size="1" onchange="window.open('?action=disk_edit&specialid=<%=request("specialid")%>&askclassid=<%=request("askclassid")%>&asknclassid=<%=request("asknclassid")%>&page=<%=request("page")%>&classid=<%=request("classid")%>&sclassid=<%=request("sclassid")%>&nclassid='+this.options[this.selectedIndex].value,'_self')">
<option value="">选择栏目</option>
<%
sql="select * from mv_nclass where sclassid="&sclassid
rs.open sql,conn_mv,1,1
Do while not rs.eof
%>
<option<%if cstr(nclassid)=cstr(rs("nclassid")) then%> selected<%end if%> value="<%=CStr(rs("nclassid"))%>" name=nclassid><%=rs("nclass")%></option>
<%
rs.MoveNext
Loop
rs.close
end if
%>
</select></td>
</tr></table></td></tr>
<tr><td width="100%" align=center>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td align=center width="12%">专辑名称：</td><td width="82%"><input class=input type="text" name="name" value="<%=name%>" size="20">&nbsp;&nbsp;&nbsp;&nbsp;所属语言：<input class=input  type="text" name="yuyan" value="<%=yuyan%>" size="20"></td></tr>
<tr><td align=center>唱片公司：</td><td><input class=input  type="text" name="gongsi" value="<%=gongsi%>" size="20">&nbsp;&nbsp;&nbsp;&nbsp;发行日期：<input  class=input type="text" name="times" value="<%=times%>" size="20"></td></tr>
<tr><td align="center">专辑图片：</td><td><input class=input  type="text" name="pic" value="<%=pic%>" size="20"><font color=red>*</font>&nbsp;&nbsp;所属地区：<input  class=input type="text" name="gong" value="<%=gong%>" size="20"></td></tr>
<tr><td align="center">重传图片：</td><td><iframe frameborder=0 width='100%' height=23 scrolling=no src='music_upload.asp'></iframe></td></tr>
<tr><td align=center>专辑简介：</td><td><TEXTAREA class=input  name="intro" rows=5 cols="60"><%response.write joekoe_cms.code_word(intro)%></TEXTAREA></td></tr>
</table></td></tr>
<tr><td height="25" align=center class=td><input type="hidden" class=input  value="edit" name="act"> <input type="submit" class=input  value=" 修 改 " name="cmdok2">&nbsp; <input type="reset" class=input  value=" 清 除 " name="cmdcance2l"></td></tr>
</form></table>
<%
end sub

sub disk_del()
specialid=request.QueryString("specialid")
set rs=conn_mv.execute("delete from mv_special where specialid="&specialid)
set rs=conn_mv.execute("delete from mv_musiclist where specialid="&specialid)
conn_mv.close
set conn_mv=nothing
response.write vbcrlf&"<scRIPT language=Javascript>alert('成功删除一张专辑！');javascript:history.go(-2);</scRIPT>"
end sub
%>