admin_music_class.asp

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

    rs("classid") = classid
    rs.Update
    rs.Close
     call admin_msg("已成功添加了一条"&tit_fir&"！","?classid="&classid,0)
  else
    call form_first()
    sql="select * from mv_Class where classid="&classid&" order by classid"
    set rs=joekoe_cms.exec(sql,1)
    tmp1=rs("class")
    rs.close
    temp1="<form method='POST' action='?action=addsclass&classid="&classid&"' name=add_frm><input type=hidden name=chk value='yes'><tr><td colspan=4 height=24 class=td>添加二级分类</td></tr><tr height=22><td  align=right>一级分类名称：</td><td>"&tmp1&"</td></tr><tr height=22><td align=right>二级分类名称：</td><td><input type='text' name='SClass' size='20'></td></tr>"
  Response.write temp1
  call submit_add()
end if
end sub
'---------------------------------------删除二级分类
sub sort_del_sclass()
  call joekoe_cms.exec("delete from mv_sclass where sclassid=" & sclassid,0)
  call joekoe_cms.exec("delete from mv_nclass where sclassid=" & sclassid,0)
  call joekoe_cms.exec("delete from mv_musiclist where sclassid=" & sclassid,0)
  call joekoe_cms.exec("delete from mv_Special where sclassid=" & sclassid,0)
  Response.Redirect "?classid="&classid
end sub
'---------------------------------------修改三级分类
sub sort_edit_nclass()
  if chk() then
  Classic=request.form("Classic")
  if Classic<>"" and not isnull(Classic) then
    ConClassic=split(Classic,",")
    classid=ConClassic(0)
    sclassid=ConClassic(1)
  end if
  if nclassname="" then
    call admin_error("歌手名称不能为空！")
    response.write "</table>"
    exit sub
  end if
  sql = "SELECT * FROM mv_nclass where nclassid="&nclassid
  call joekoe_cms.exec(sql,-1)
  rs.Open sql,conn, 1, 3
'修改栏目中的资料
  rs("nclass") = nclassname
  rs("classid") = classid
  rs("sclassid") = sclassid
  rs("abcd") = request("character")
  rs("ea") = trim(request("ea"))
  if trim(request("ew"))<>"" then
    rs("ew")=trim(request("ew"))
    call consview()
  else
    rs("ew")="1981/05/21"
  end if
  rs("pic") = trim(request("Pic"))
  rs("ef") = trim(request("ef"))
  rs("da") = request("da")
  rs.Update
  rs.Close
'修改歌曲列表中的资料
  sql= "SELECT * FROM mv_Musiclist where nclassid="&nclassid
  call joekoe_cms.exec(sql,-1)
  rs.Open sql,conn, 1, 3
  if not rs.eof then
    do while not rs.eof
      rs("Singer")=nclassname
      rs("classid")=classid
      rs("sclassid")=sclassid
      rs.update
    rs.movenext
    loop
  end if
  rs.close
'修改专辑列表中的资料
  sql = "SELECT * FROM mv_special where nclassid="&nclassid
  call joekoe_cms.exec(sql,-1)
  rs.Open sql,conn, 1, 3
  if not rs.eof then
    do while not rs.eof
      rs("nclass")=nclassname
      rs("classid")=classid
      rs("sclassid")=sclassid
      sql2 = "SELECT * FROM mv_Musiclist where sclassid="&sclassid
      set rs2=joekoe_cms.exec(sql2,1)
      rs("nclass")=rs2("singer")
      rs2.close
      rs.update
    rs.movenext
    loop
  end if
  rs.close
  call admin_msg("已成功修改了一条"&tit_fir&"！","?classid="&classid&"&sclassid="&sclassid,0)
else
  call form_first()
  dim ispic,i
  sql="select * from mv_Nclass where nclassid="&nclassid
  set rs=joekoe_cms.exec(sql,1)
  Tc_id=rs("classid")
  Ts_id=rs("sclassid")
  NClassname=rs("nclass")
  Sex=rs("ea")
  birthday=rs("ew")
  Photo=rs("pic")
  da=rs("da")
  comp=rs("ef")
  character=rs("abcd")
  rs.close
  sql="select * from mv_class"
  set rs=joekoe_cms.exec(sql,1)
  i=0
  do while not rs.eof
    classname=rs("class")
    classid=rs("classid")
    SClassSql="select * from mv_sclass where classid="&classid
    set SClassrs=joekoe_cms.exec(SClasssql,1)
    Do while not SClassRs.eof
      sclassname=SClassRs("sclass")
      sclassid=SClassRs("sclassid")
      if Tc_id&","&Ts_id=classid&","&sclassid then
        k=" selected"
      else
        k=""
      end if
      remember=remember&"<option name='option"&classid&i&"'"&k&" value="&classid&","&sclassid&">"&ClassName&"-"&SClassname&"</option>"
    SClassRs.movenext
    loop
    SClassRs.close
  rs.movenext
  loop
  rs.close
  call admin_td("修改&nbsp;"&NClassname&"&nbsp;的资料")
%>
<form method=POST action='?action=editnclass&classid=<%=classid%>&sclassid=<%=sclassid%>&nclassid=<%=nclassid%>' name=edit_frm><input type=hidden name=chk value='yes'><tr><td width='100%' height='20' colspan=2 align=center>修改歌手资料</td></tr><tr><td width='15%' align=right>栏目：</td><td width='85%'><select name=Classic size=1><%=remember%></select></td></tr><tr><td align=right>字母索引：</td><td><select size=1 name=character>
<%
for i=65 to 90 Step 1
%>
<option value='<%=chr(i)%>'<%if character=chr(i) then%> selected<%end if%>><%=chr(i)%></option>
<%Next%>
</select></td></tr>
<tr><td align=right>歌手名：</td>
<td><input type=text name=NClass value='<%=NClassname%>' size=20></td></tr>
<tr><td align=right>性别：</td>
<td><select size=1 name=Sex><option value='男'<%if Sex="男" then%> selected<%end if%>>男</option><option value='女'<%if Sex="女" then%> selected<%end if%>>女</option><option value='组合'<%if Sex="组合" then%> selected<%end if%>>组合</option></select></td></tr>
<tr><td align=right>生日：</td><td><input type=text name=birthday value='<%=birthday%>' size=10>（格式：2000/01/01）</td></tr>
<tr><td align=right>唱片公司：</td><td width=442><input type=text name=comp value='<%=comp%>' size="20"></td></tr>
<tr><td align=right>相片地址：</td>
<td><input type=text name=pic value='<%=Photo%>' size=50></td></tr><tr><td align=right>上传相片：</td><td width=442><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=<%response.write index_url%>&upname=<%response.write ispic%>&uptext=pic'></iframe></td></tr>
<tr>
<td><%call frm_ubb_type("class=bg_td")%></td>
<td><%call frm_ubb("edit_frm","da","")%></td>
</tr>
<tr><td align=right valign=top>简介：</td>
<td><textarea name=da rows=5 cols=59><%response.write da%></textarea></td>
<% 
call submit_edit()
end if
end sub
'---------------------------------------添加三级分类
sub sort_add_nclass()
  dim errmsg
  if chk() then
    if nclassname="" then
      call admin_error("歌手名称不能为空！")
      response.write "</table>"
      exit sub
    end if
    sql = "SELECT * FROM mv_Nclass where (nclassid IS NULL)"
    call joekoe_cms.exec(sql,-1)
    rs.open sql,conn,1,3
    rs.AddNew
    rs("nclass") = nclassname
    rs("classid") = classid
    rs("sclassid") = sclassid
    rs("abcd") = request("character")
    rs("ea") = trim(request("Sex"))
    if trim(request("birthday"))<>"" then
    rs("ew") = trim(request("birthday"))
      else
    rs("ew")="1981/05/21"
    end if
    if trim(Request.Form("pic"))="" then
			rs("pic")="nophoto.gif"
		else
			rs("pic")=request.form("pic")		
		end if
    rs("da") = request.form("da")
    if trim(request("comp"))<>"" then
    rs("ef") = request.form("comp")
    else
    rs("ef")="秋月家园"
    end if
    rs.Update
    rs.Close
    call admin_msg("已成功添加了一条"&tit_fir&"！","?classid="&classid&"&sclassid="&sclassid,0)
  else
    call form_first()
    dim founderr,ispic
    sql="select * from mv_sclass where sclassid="&sclassid&" order by sclassid"
    set rs=joekoe_cms.exec(sql,1)
    sclassname=rs("sclass")
    rs.Close
    sql="select class from mv_class where classid="&classid&" order by classid"
    set rs=joekoe_cms.exec(sql,1)
    ClassName=rs("class")
    rs.close
    call admin_td("在&nbsp;"&ClassName&"-"&sClassName&"&nbsp;中添加歌手")
%>
<form method=POST action='?action=addnclass&classid=<%=classid%>&sclassid=<%=sclassid%>' name=add_frm><input type=hidden name=chk value='yes'>
<tr><td align=right width='15%'>字母索引：</td><td width='85%'><select size=1 name=character>
<%
for i=65 to 90 Step 1
%>
<option value='<%=chr(i)%>'<%if character=chr(i) then%> selected<%end if%>><%=chr(i)%></option>
<%Next%>       
</select></td></tr>
<tr>
<td align=right>歌手名：</td>
<td width=442><input type=text name=NClass size=20></td>
</tr>
<tr>
<td align=right>性别：</td>
<td width=442><select size=1 name=Sex><option value='男'>男</option><option value='女'>女</option><option value='组合'>组合</option></select></td>
</tr>
<tr>
<td align=right>生日：</td>
<td width=442><input type=text name=birthday size="10">（格式：2000/01/01）</td></tr>
<tr><td align=right>唱片公司：</td>
<td width=442><input type=text name=comp size="20"></td>
</tr>
<tr><td align=right>相片地址：</td>
<td width=442><input type=text name=pic size=30></td>
</tr>
<tr><td align=right>上传相片：</td>
<td width=442><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=<%response.write index_url%>&upname=<%response.write ispic%>&uptext=pic'></iframe></td>
</tr>
<tr>
<td><%call frm_ubb_type("class=bg_td")%></td>
<td><%call frm_ubb("add_frm","da","")%></td>
</tr>
<tr><td align=right>简介：</td>
<td width=442><TEXTAREA name=da rows=5 cols=59></TEXTAREA></td></tr>
<%
  call submit_add()
  end if
end sub

'---------------------------------------删除三级分类
sub sort_del_nclass()
  call joekoe_cms.exec("delete from mv_nclass where nclassid=" & nclassid,0)
  call joekoe_cms.exec("delete from mv_musiclist where nclassid=" & nclassid,0)
  call joekoe_cms.exec("delete from mv_Special where nclassid=" & nclassid,0)
  call admin_msg("已成功删除了一条"&tit_fir&"！","?classid="&classid&"&sclassid="&sclassid,0)
  end sub
%>