www.gusucode.com > 盘锦DJ舞曲网 商业版源码程序 > admin/music_add.asp
<!--#include file="loginOK.asp"-->
<!--#include file="../conn.asp"-->
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkuserinfo()
{
if(checkspace(document.music_add.musicname.value)) {
document.music_add.musicname.focus();
alert("您忘了填写歌曲名称了！");
return false;
}
if(checkspace(document.music_add.musicurl.value)) {
document.music_add.musicurl.focus();
alert("请填写歌曲文件地址！");
return false;
}
}
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
//-->
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>添加歌曲</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
-->
</style>
</head>
<body>
<form name="music_add" method="post" action="savemusic.asp?action=music_add">
<table width="85%" height="157" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#1BA3D6">
<tr bgcolor="#2F6A8E">
<td height="25" colspan="2"><p align="center"><font color=#ffffff>添 加 音 乐</font></td>
</tr>
<tr>
<td width="100" height="25" align="center" bgcolor="#FFFFFF"><p align="center">歌曲类别 ：</td>
<td width="352" height="25" bgcolor="#FFFFFF"><select name="classname" size="1">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from class"
rs.open sql,conn,1,1
do while not rs.eof
sel="selected"
response.write "<option " & sel & " value='"&rs("classid")&"'>"+rs("class")+"</option>"+chr(13)+chr(10)
rs.movenext
loop
rs.close
%>
<option selected value="music_class">音乐类型</option>
</select><font color="red">
推荐：</font>
<input name="good" type="checkbox" id="good" value="1"> </td>
</tr>
<tr>
<td width="100" height="19" align="center" bgcolor="#FFFFFF">歌 曲 名 ：</td>
<td height="25" bgcolor="#FFFFFF"><label>
<input name="musicname" type="text" size="25">
</label></td>
</tr>
<tr>
<td width="100" height="25" align="center" bgcolor="#FFFFFF">服务器地址：</td>
<td height="25" nowrap bgcolor="#FFFFFF"><select name="serverlist" size="1">
<%
dim serverlist
set rs=server.createobject("adodb.recordset")
sql="select * from server"
rs.open sql,conn,1,1
do while not rs.eof
sel="selected"
response.write "<option " & serverlist & " value='"&rs("serverid")&"'>"+rs("servername")+"</option>"+chr(13)+chr(10)
rs.movenext
loop
rs.close
%>
<option selected value="server_url">服务器地址</option>
</select>
<label>
<input name="musicurl" type="text" size="40">
</label></td>
</tr>
<tr>
<td height="25" colspan="2" valign="center" bgcolor="#FFFFFF"><div align="center">
<input type="submit" value=" 添 加 " onClick="return checkuserinfo();" name="cmdok" class="buttonface">
<input type="reset" value=" 清 除 " name="cmdcancel" class="buttonface">
</div></td>
</tr>
</table>
</form>
</body>
</html>