www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_songadd.asp
<!--#include file="function.asp"-->
<%CheckAdmin1%>
<!--#include file="conn.asp"-->
<!--#include file="checkadmin.inc"-->
<html>
<head>
<title>迪吧后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<form method="POST" action="admin_SongSave.asp">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" id="AutoNumber2">
<tr class="topbg">
<td height="22" colspan="2" align="center"><strong>添 加 舞 曲</strong></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" id="AutoNumber3">
<tr class="tdbg">
<td width="20%" align="right"><strong>*分类选择：</strong></td>
<td width="80%">一级栏目:
<select name="classid" size="1" onchange="window.open('admin_Songadd.asp?classid='+this.options[this.selectedIndex].value,'_self')">
<option value="" <%if request("classid")="" then%> selected<%end if%>>选择栏目</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")<>"" then%> selected<%end if%> value="<%=CStr(rs("classID"))%>" name=classid><%=rs("class")%></option>
<%
rs.movenext
loop
rs.close
%>
</select></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong>加入专辑：</strong></td>
<td width="80%"><%if request("classid")<>"" then%>
<select name="Specialid" size="1">
<option value="" <%if request("Specialid")="" then%> selected<%end if%>>选择专辑</option>
<%
sql="select * from special where classid="&request("classid")
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">
<option value="" selected>选择专辑</option>
<%end if%>
</select></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong>文件类型：</td>
<td width="80%"><input type="text" name="Musictype" size="20" value="1">1默认播放,2视频播放,3Mp3播放,4FLASH播放</td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong>舞曲等级：</td>
<td width="80%"><input type="text" name="Level" size="20" value="3"></td>
<tr class="tdbg">
<td width="20%" align="right"><strong>RM下载点数：</td>
<td width="80%"><input type="text" name="Rm_Points" value="5"></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong>MP3下载点数：</td>
<td width="80%"><input type="text" name="Music_Points" value="10"></td>
<tr class="tdbg">
<td width="20%" align="right"><strong>站长推荐：</td>
<td width="80%"><input type="text" name="ZzGood" value="False"></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong>舞曲作者：</td>
<td width="80%"><input type="text" name="DjRen" size="20"></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong>*歌曲名：</strong></td>
<td width="80%"><input type="text" name="MusicName" size="60"></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong>试听服务器：</strong></td>
<td width="80%"><select class="smallSel" name="LS_ID" size="1">
<option value="">未选择</option>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from DJServer"
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="<%=CStr(rs("LServerID"))%>" name=ListenServer><%=rs("ListenServerURL")%></option>
<%
rs.movenext
loop
rs.close
%>
</select></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong>下载服务器：</strong></td>
<td width="80%"><select class="smallSel" name="Mp3DownID" size="1">
<option value="">未选择</option>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Mp3DownServer"
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="<%=CStr(rs("Mp3DownID"))%>" name=Mp3DownServerUrl><%=rs("Mp3DownServerUrl")%></option>
<%
rs.movenext
loop
rs.close
%>
</select></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong>*试听地址：</strong></td>
<td width="80%"><input type="text" name="ListenUrl" size="70"></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong>下载地址：</strong></td>
<td width="80%"><input type="text" name="DownUrl" size="70"></td>
</tr>
<tr class="tdbg">
<td width="20%" align="right"><strong>添加歌词：</strong></td>
<td width="80%"><TEXTAREA name=SongWords rows=9 cols="59" style="border: 1px solid #D7DEF7"><%=songwords%></TEXTAREA></td>
</tr>
<tr class="tdbg">
<td height="22" colspan="2" align="center" class="title">
<input type="hidden" value="add" name="act">
<%if request("Classid")="" then%>
<input type="button" value=" 确 定 " name="cmdok" onclick="window.alert('请先选择栏目！')">
<%else%>
<input type="submit" value=" 确 定 " name="cmdok">
<%end if%>
<input type="reset" value=" 清 除 " name="cmdcancel">
</td>
</tr>
</table>
</form>
</body>
</html>