admin_songmodify.asp

青岛dj站程序,带后台管理 名字和密码都是:admin

<!--#include file="function.asp"-->
<%CheckAdmin1%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="top.asp"-->
<!--#include file="inc/char.inc"-->
<%
id=request.QueryString("id")
AskClassid=request.QueryString("AskClassid")
page=request.QueryString("page")
set rs=server.createobject("adodb.recordset")
sql="select * from MusicList where id="&id
rs.open sql,conn,1,1
if rs.eof then
	errmsg=errmsg+"<br>"+"<li>操作错误！请联系管理员"
	call error()
	Response.End 
else
	ListenUrl=rs("ListenUrl")
	MusicName=rs("MusicName")
	Classid=rs("Classid")
	Specialid=rs("Specialid")
end if
rs.close
%>

<div align="center">
  <center>
<table border="0" width="750" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" height="124">
  <tr>
    <td valign=top width=5 background="images/line_bg02.gif" height="115"></td>
    <td valign=top width=175 height="115">
    <!--#include file="admin_left.asp"-->
    </td>
    <td valign=top width=5 background="images/line_bg02.gif" height="115">　</td>
    <td valign=top width="551" height="115">
          <div align="center">
            <center>
          <table border="1" width="100%" cellspacing="0" cellpadding="0" class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>" style="border-collapse: collapse" bordercolor="#396086">
        <form method="POST" action="admin_SongSave.asp?id=<%=id%>&AskClassid=<%=AskClassid%>&AskSClassid=<%=AskSClassid%>&AskNClassid=<%=AskNClassid%>&page=<%=page%>">
          <tr>
            <td width="100%" height="20" colspan=2 bgcolor="<%=MainTColor%>" align=center><b>修 改 歌 曲</b></td>
          </tr>
          <tr>
            <td align="right" valign="top">类型：</td>
            <td>一级栏目：
              <select class="smallSel" name="classid" size="1" onchange="window.open('admin_SongModify.asp?id=<%=request("id")%>&AskClassid=<%=Askclassid%>&AskSClassid=<%=AskSclassid%>&AskNClassid=<%=AskNclassid%>&page=<%=page%>&Classid='+this.options[this.selectedIndex].value,'_self')">
                <option value="">==恢复==</option>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from class"
rs.open sql,conn,1,1
do while not 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"))%>" name=classid><%=rs("class")%></option>

<%
rs.movenext
loop
rs.close
%>
              </select>
                

                </td>
          </tr>
          <tr>
            <td align=right>专辑：</td>
            <td>
<%
if request("Classid")<>"" or request("Specialid")<>"" then
	if request("Classid")<>"" then
%>
              <select name="Specialid" size="1" onchange="window.open('admin_SongModify.asp?id=<%=request("id")%>&AskClassid=<%=Askclassid%>&AskSClassid=<%=AskSclassid%>&AskNClassid=<%=AskNclassid%>&page=<%=page%>&Classid=<%=request("Classid")%>&Specialid='+this.options[this.selectedIndex].value,'_self')">

<%	else%>
              <select name="Specialid" size="1" onchange="window.open('admin_SongModify.asp?id=<%=request("id")%>&AskClassid=<%=Askclassid%>&AskSClassid=<%=AskSclassid%>&AskNClassid=<%=AskNclassid%>&page=<%=page%>&Classid=<%=Classid%>Specialid='+this.options[this.selectedIndex].value,'_self')">
<%	end if%>
                <option value="" <%if request("Specialid")="" then%> selected<%end if%>>
                选择专辑</option>
<%
	if request("Classid")<>"" then
		sql="select * from special where classid="&request("classid")
	else
		sql="select * from special where classid="&classid
	end if
	rs.open sql,conn,1,1
	Do while not rs.eof
%>
                <option<%if cstr(request("Specialid"))=CStr(rs("Specialid")) then%> selected<%end if%> value="<%=CStr(rs("Specialid"))%>" name=Specialid><%=rs("name")%></option>
<%
	rs.MoveNext
	Loop
	rs.close
else
%>
              <select name="Specialid" size="1" onchange="window.open('admin_SongModify.asp?id=<%=request("id")%>&AskClassid=<%=Askclassid%>&page=<%=page%>&Classid=<%=request("Classid")%>&Specialid='+this.options[this.selectedIndex].value,'_self')">
                <option value="">选择专辑</option>
<%
	sql="select * from special where classid="&classid
	rs.open sql,conn,1,1
	Do while not rs.eof
%>
                <option<%if cstr(Specialid)=cstr(rs("Specialid")) then%> selected<%end if%> value="<%=CStr(rs("Specialid"))%>" name=Specialid><%=rs("name")%></option>
<%
	rs.MoveNext
	Loop
	rs.close

end if%>
              </select>
            </td>
          </tr>
          <tr>
            <td width="15%" align="right">文件类型：</td>
            <td width="85%">
            <select size="1" name="musictype">
            <option value="1" selected>RealPlayer</option>
            <option value="2">MediaPlay</option>
            <option value="3">Flash</option>
            </select></td>
          </tr>
          <tr>
            <td width="15%" align="right">试听地址：</td>
            <td width="85%"><input type="text" name="ListenUrl" value="<%=ListenUrl%>" size="50"></td>
          </tr>
          <tr>
            <td align="right">歌曲名：</td>
            <td><input type="text" name="MusicName" size="15" class="smallinput" maxlength="100" value="<%=MusicName%>"></td>
          </tr>
          <tr>
            <td colspan=2 align=center>
              <input type="hidden" value="edit" name="act">
<%
if request("Classid")<>"" then
	if request("Specialid")="" then%>
              <input type="button" value=" 确 定 " name="cmdok" onclick="window.alert('请先选择专辑！')">&nbsp; 
<%
	else
%>
              <input type="submit" value=" 确 定 " name="cmdok">&nbsp; 
<%
	end if
else
%>
              <input type="submit" value=" 确 定 " name="cmdok">&nbsp; 
<%end if%>
              <input type="reset" value=" 清 除 "  name="cmdcancel">
            </td>
          </tr>
        </form>
      </table>
            </center>
          </div>
      </td>
    <td valign=top width="5" background="images/line_bg02.gif" height="115">　</td>
  </tr>
  <tr>
    <td valign=top width=750 colspan="5" background="images/line_bg01.gif" height="9">
    <img border="0" src="补间.gif" width="7" height="7"></td>
    </tr>
</table>
  </center>
</div>
<%
set rs=nothing
conn.close
set conn=nothing%></body></html>