admin_music_add.asp

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

<!-- #include file="include/admin_onlogin.asp" -->
<!-- #InclUDE file="include/jk_pagecute.asp" -->
<!--#include file="include/con_music_conn.asp"-->
<%
tit="歌曲管理"     
index_url="music"
call admin_master(0,0)
call admin_header(0,0)

dim askclassid,asksclassid,asknclassid,wma,musicname,classid,sclassid,nclassid,specialid,founerr,founderr
dim classic,conclassic,num,nclass,nrs,url1,nsql,act,singer,play,url,urlid

select case action
case "music_addone"
  call music_addone()
case "music_good"
  call music_good()
case "music_good1"
  call music_good1()
case "music_edit"
  call music_edit()
case "music_del"
  call music_del()
case "word_add"
  call word_add()
case else
  call music_add()
end select

sub music_addone()
page=trim(request.querystring("page"))
askclassid=trim(request.querystring("askclassid"))
asksclassid=trim(request.querystring("asksclassid"))
asknclassid=trim(request.querystring("asknclassid"))
url=trim(request.form("url"))
urlid=trim(request.form("urlid"))
wma=trim(request.form("wma"))
musicname=trim(request.form("musicname"))
classid=trim(request.form("classid"))
sclassid=trim(request.form("sclassid"))
nclassid=trim(request.form("nclassid"))
specialid=trim(request.form("specialid"))
play=request.form("play")

founerr=false
act=request("act")
	if musicname="" then
		response.write vbcrlf&"<scRIPT language=Javascript>alert('歌曲名称不能为空');</scRIPT>"
		founderr=true
	end if
		if trim(Request.Form("wma"))="" then
			wma=""
		else
			wma=request.form("wma")
		end if

if founderr=true then
	call error()
else
	set rs=server.createobject("adodb.recordset")
	if act<>"" then
		sql="select nclass from mv_nclass where nclassid="&nclassid
		rs.open sql,conn_mv,1,1
		singer=rs("nclass")
		rs.close
	end if
	if act="edit" and request("id")<>"" then
		sql="select * from mv_musiclist where id="&request("id")
		rs.open sql,conn_mv,1,3
                rs("url")=url
                rs("urlid")=urlid
		rs("wma")=trim(wma)
		rs("musicname")=musicname
		rs("classid")=classid
		rs("sclassid")=sclassid
		rs("nclassid")=nclassid
		rs("specialid")=specialid
		rs("singer")=trim(singer)
		rs("play")=play
		rs.update
		rs.close

		call Success
		Response.End 
	elseif act="add" then
		sql="select * from mv_musiclist where (id is null)" 
		rs.open sql,conn_mv,1,3
		rs.addnew
                rs("url")=url
                rs("urlid")=urlid
		rs("wma")=wma
		rs("musicname")=musicname
		rs("classid")=classid
		rs("sclassid")=sclassid
		rs("nclassid")=nclassid
		if specialid<>"" then rs("specialid")=specialid
		rs("singer")=singer
		rs("play")=play
		rs.update
		rs.close
		call Success
		Response.End 
		call error()
		Response.End
	end if
	set rs=nothing
	conn_mv.close
	set conn_mv=nothing
	Response.Redirect "admin_music_list.asp?classid="+askclassid+"&sclassid="+asksclassid+"&nclassid="+asknclassid+"&Page="+Page
end if
end sub

sub music_add()
set rs=server.createobject("adodb.recordset")
sql="select * from mv_musiclist"
rs.open sql,conn_mv,1,3
num=100
for i=1 to num
	classic=request.form("classic"&i)
	conclassic=split(classic,",")
	musicname=trim(request.form("musicname"&i))
	wma=trim(request.form("wma"&i))
        url=request.form("url")
        urlid=request.form("urlid")
	url1=request.form("url1")
	play=request.form("play")

	if musicname="" or isnull(musicname) or wma="" or isnull(wma) then
		num=i-1
		exit for
	end if
	
	set nrs=server.createobject("adodb.recordset")
	Nsql="select nclass from mv_nclass where nclassid="&conclassic(2)
	nrs.open Nsql,conn_mv,1,1
	if not nrs.eof then
		nclass=nrs("nclass")
	end if
	nrs.close

	rs.addnew
	rs("musicname")=musicname
	rs("Singer")=nclass
	rs("classid")=conclassic(0)
	rs("sclassid")=conclassic(1)
	rs("nclassid")=conclassic(2)
	rs("specialid")=conclassic(3)
        rs("url")=url
        rs("urlid")=urlid
	rs("wma")=url1&wma
	rs("play")=play
	rs.update
next
rs.close
call Success
end sub

sub Success
response.write vbcrlf&"<scRIPT language=Javascript>alert('操作成功！');javascript:history.go(-2);</scRIPT>"
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 music_good()
page=trim(request.querystring("page"))
askclassid=trim(request.querystring("askclassid"))
asksclassid=trim(request.querystring("asksclassid"))
asknclassid=trim(request.querystring("asknclassid"))
url=trim(request.form("url"))
urlid=trim(request.form("urlid"))
wma=trim(request.form("wma"))
musicname=trim(request.form("musicname"))
classid=trim(request.form("classid"))
sclassid=trim(request.form("sclassid"))
nclassid=trim(request.form("nclassid"))
specialid=trim(request.form("specialid"))
set rs=server.createobject("adodb.recordset")
founerr=false
if act<>"SetisGood" then
act=request("act")
end if

if act="SetisGood" then
		sql="select IsGood from mv_musiclist where id="&request("id") 
		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.write vbcrlf&"<scRIPT language=Javascript>alert('成功推荐一首歌曲！');javascript:history.go(-1);</scRIPT>"
end sub

sub music_good1()
page=trim(request.querystring("page"))
askclassid=trim(request.querystring("askclassid"))
asksclassid=trim(request.querystring("asksclassid"))
asknclassid=trim(request.querystring("asknclassid"))
url=trim(request.form("url"))
urlid=trim(request.form("urlid"))
wma=trim(request.form("wma"))
musicname=trim(request.form("musicname"))
classid=trim(request.form("classid"))
sclassid=trim(request.form("sclassid"))
nclassid=trim(request.form("nclassid"))
specialid=trim(request.form("specialid"))
set rs=server.createobject("adodb.recordset")
founerr=false
if act<>"Sethidden" then
act=request("act")
end if

if act="Sethidden" then
		sql="select hidden from mv_musiclist where id="&request("id") 
		rs.open sql,conn_mv,1,3