www.gusucode.com > 要听音乐网完美修正版 1.0源码程序 > admin/Admin_special_1.asp
<!--#include file="../inc/const.asp"-->
<!--#include file="inc/char.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=site_info(0)%></title>
<link href="css.css" type="text/css" rel="stylesheet">
<meta http-equiv="Content-Type" content="text/html; chaRset=gb2312">
<script src="../js/checkform.js"></script>
</head>
<body text=#000000 leftmargin=0 topmargin=0 marginheight="0" marginwidth="0" bgcolor="#E5E5E5">
<br>
<%
Dim Action,ID,SpecialName,SpecialRead,ClassID,strClass,Previewimg
If Not CheckAdmin(ScriptName) Then
strMsg="<Li>您没有管理本页面的权限。"
Call Msg()
Else
SELECT Case Request("Action")
Case "edit"
Call Edit()
Case "edit_save"
Call Edit_Save()
Case "SetNoGood"
Call SetNoGood()
Case "SetIsGood"
Call SetIsGood()
Case "del"
Call Del()
Case "add_save"
Call Add_Save()
Case "conadd"
Call ConAdd()
Case "conadd_save"
Call ConAdd_save()
Case Else
Call add()
End Select
End If
DataClose()
Sub add()
%>
<div align="center">
<center>
<table border="0" width="90%" cellspacing="1" cellpadding="1">
<tr>
<td align=center valign=top>
<table border="1" width="100%" cellspacing="0" cellpadding="2" class="TableLine" bordercolor="#A4CEE4" bordercolordark="#FFFFFF">
<form name="myform" method="post" action="?">
<tr>
<td width="100%" height="20" colspan=2 bgcolor="#96C5DE" align=center><font color="white"><b>添 加 歌 曲</b></font></td>
</tr>
<tr>
<td align="right">* 类型：</td>
<td>一级栏目:
<select name="classid" size="1" onchange="window.open('Admin_special_1.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>
二级栏目:
<%if request("classid")<>"" then%>
<select name="sclassid" size="1" onchange="window.open('Admin_special_1.asp?classid=<%=request("classid")%>&sclassid='+this.options[this.selectedIndex].value,'_self')">
<option value="" <%if request("sclassid")="" then%> selected<%end if%>>选择栏目</option>
<%
sql="select * from sclass where classid="&request("classid")
rs.open sql,conn,1,1
Do while not rs.eof
%>
<option<%if cstr(request("sclassid"))=cstr(rs("sclassid")) and request("sclassid")<>"" then%> selected<%end if%> value="<%=CStr(rs("sclassid"))%>" name=Sclassid><%=rs("sclass")%></option>
<%
rs.MoveNext
Loop
rs.close
%>
<%else%>
</select>
<select name="sclassid" size="1">
<option value="" selected>选择栏目</option>
<%end if%>
</select>
三级栏目:
<%if request("Sclassid")<>"" then%>
<select name="Nclassid" size="1" onchange="window.open('Admin_special_1.asp?classid=<%=request("classid")%>&SClassid=<%=request("SClassid")%>&nclassid='+this.options[this.selectedIndex].value,'_self')">
<option value="" <%if request("Nclassid")="" then%> selected<%end if%>>选择栏目</option>
<%
sql="select * from Nclass where Sclassid="&request("Sclassid")
rs.open sql,conn,1,1
Do while not rs.eof
%>
<option<%if cstr(request("Nclassid"))=cstr(rs("Nclassid")) and request("Nclassid")<>"" then%> selected<%end if%> value="<%=CStr(rs("Nclassid"))%>" name=Nclassid><%=rs("Nclass")%>
<%
rs.MoveNext
Loop
rs.close
%>
<%else%>
</select>
<select name="Nclassid" size="1">
<option value="" selected>选择栏目</option>
<%end if%>
</select>
</td>
</tr>
<tr>
<td width="15%" align="right">加入专辑：</td>
<td>
<%if request("Nclassid")<>"" then%>
<select name="Specialid" size="1">
<option value="" <%if request("Specialid")="" then%> selected<%end if%>>选择专辑</option>
<%
sql="select * from special where Nclassid="&request("Nclassid")
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")%>
<%
rs.MoveNext
Loop
rs.close
else
%>
</select>
<select name="Specialid" size="1">
<option value="" selected>选择专辑</option>
<%end if%>
</select>
</td>
</tr>
<tr>
<td align="right"><font color="red">歌曲名：</font></td>
<td><input type="text" name="MusicName" size="20"></td>
</tr>
<tr>
<td width="15%" align="right">Wma地址：</td>
<td width="85%"><input type="text" name="wma" size="30"></td>
</tr>
<tr>
<td width="15%" align="right">歌词：</td>
<td width="85%">
<font color="#FFFFFF"><textarea rows="4" name="songwords" cols="44"></textarea>
</font></td>
</tr>
<tr>
<td colspan=2 align=center>
<input name="Action" type="hidden" id="Action" value="add_save">
<input name="GoUrl" type="hidden" id="GoUrl" value="<%=Url%>">
<input type="submit" name="Submit" value="提交" class="button"> <input type="reSet" name="Submit2" value="重置" class="button">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%
End Sub
Sub ConAdd()
Specialid=request.QueryString("specialid")
set rs=server.createobject("adodb.recordset")
sql="select * from Special where Specialid="&cstr(Specialid)
rs.open sql,conn,1,3
if rs.eof and rs.bof then
strMsg="<Li>没有专辑"
Call Msg()
else
%>
<html>
<head>
<title>批量加歌</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td { font-size: 9pt}
a { color: #000000; text-decoration: none}
a:hover { text-decoration: underline}
.tx { height: 16px; width: 30px; border-color: black black #000000; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px; font-size: 9pt; background-color: #A4CEE4; color: #0000FF}
.bt { font-size: 9pt; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; height: 16px; width: 80px; background-color: #A4CEE4; cursor: hand}
.tx1 { height: 20px; width: 30px; font-size: 9pt; border: 1px solid; border-color: black black #000000; color: #0000FF}
input,textarea,select {border-width: 1; border-color: #000000; background-color: #efefef; font-family: 宋体; font-size: 9pt; font-style: bold;}
-->
</style>
<script language="javascript">
function setid()
{
str='<br>';
if(!window.form1.upcount.value)
window.form1.upcount.value=1;
if(window.form1.upcount.value>50){
alert("您一次最多添加50首歌曲\n\n如果歌曲太多,请分次进行.");
window.form1.upcount.value = 50;
setid();
}
if(window.form1.upcount.value<1){
alert("您最少要添加1首歌曲");
window.form1.upcount.value = 1;
setid();
}
else{
for(i=1;i<=window.form1.upcount.value;i++)
str+='歌名'+i+':<input name="MusicName'+i+'" size=20> 文件名:<input type="text" name="Wma'+i+'" value="'+i+'.wma" size=9> <br>歌词: <textarea rows="5" name="MusicWord'+i+'" cols="50"></textarea> <br><br>';
}
window.upid.innerHTML=str;
}
</script>
</head>
<center>
<form name="form1" method="post" action="?">
<table border="1" width="99%" cellspacing="0" cellpadding="3" class="TableLine" bordercolor="#A4CEE4" bordercolordark="#FFFFFF" height="164">
<tr>
<td width="100%" height="12" colspan=3 bgcolor="#96C5DE" align=center><font color="white"><b>批 量 添 加 歌 曲</b></font></td>
</tr>
<tr align="left" valign="middle" bgcolor="#A4CEE4">
<td bgcolor="#A4CEE4" height="84">
专辑名称:《<b><%=rs("name")%></b>》 <input type=hidden name="Classic" value="<%=rs("Classid")%>,<%=rs("SClassid")%>,<%=rs("NClassid")%>,<%=rs("Specialid")%>"> 需要添加几首
<input type="text" name="upcount" value="1" size="3">
<input type="button" name="Button" class="bt" onClick="setid();" value="· 设定 ·">
<br>
<br>
公用路径:
<input type="text" name="url" value="/" size="20">
(例如：/2005/5/1/andy/)
</td>
</tr>
<tr align="center" valign="middle">
<td align="left" height="11" id="upid"></td>
</tr>
<tr align="center" valign="middle" bgcolor="#A4CEE4">
<td bgcolor="#A4CEE4" height="25">
<input name="Action" type="hidden" id="Action" value="conadd_save">
<input name="GoUrl" type="hidden" id="GoUrl" value="<%=Url%>">
<input type="submit" name="Submit" value=" 提交 "> <input type="reset" name="Submit2" value=" 重执 ">
</td>
</tr>
</table>
</form>
<script language="javascript"> setid();</script>
<%
end if
rs.close
%>
<%
End Sub
Sub Edit()
ID=CheckStr(Request.QueryString("ID"))
SQL="SELECT * FROM "& Tablespecials &" WHERE SpecialID="&ID
Set Rs=Conn.Execute(SQL)
'Set Rs=Nothing
%>
<form name="myform" method="post" action="?">
<table border="1" width="99%" cellspacing="0" cellpadding="0" class="TableLine" bordercolor="#A4CEE4" bordercolordark="#FFFFFF">
<tr>
<td width="100%" height="20" bgcolor="#96C5DE" align=center><font color="white"><b>修 改 专 辑</b></font></td>
</tr>
<tr>
<td width="100%" height="25" align=left>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="15%" height="25" align="right">专辑名称：</td>
<td width="85%"><input type="text" name="name" size="20" value="<%=rs("name")%>"></td>
</tr>
<tr>
<td width="15%" height="25" align="right">所属语言：</td>
<td width="85%"><select name="Yuyan" size="1">
<option value="<%=rs("Yuyan")%>" selected><%=rs("Yuyan")%></option>
<option value="国语">国语</option>
<option value="粤语">粤语</option>
<option value="英文">英文</option>
<option value="日韩">日韩</option>
<option value="韩文">韩文</option>
<option value="日语">日语</option>
<option value="国/粤语">国/粤语</option>
<option value="中/英文">中/英文</option>
<option value="中/日文">中/日文</option>
<option value="中/韩文">中/韩文</option>
</select></td>
</tr>
<tr>
<td width="15%" height="25" align="right">唱片公司：</td>
<td width="85%"><input type="text" name="Gongsi" value="<%=rs("Gongsi")%>" size="20">←<a href="javascript:" onClick="document.myform.Gongsi.value='不详'">不详</a></td>
</tr>
<tr>
<td width="15%" height="25" align="right">发行日期：</td>
<td width="85%"><input type="text" name="Times" value="<%=rs("Times")%>" size="20"></td>
</tr>
<tr>
<td width="15%" height="25" align="right">专辑图片：</td>
<td width="85%"><input type="text" name="pic" size="20" value="<%=rs("pic")%>">『<a href="javascript:Upload('special')">上传文件</a>』</td>
</tr>
<tr>
<td width="15%" height="25" align="right">专辑简介：</td>
<td width="85%"><TEXTAREA name="intro" rows=10 cols="60"><%=rs("intro")%></TEXTAREA></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="100%" height="22" bgcolor="A4CEE4" align=center>
<input name="Action" type="hidden" id="Action" value="edit_save">
<input name="GoUrl" type="hidden" id="GoUrl" value="<%=Url%>">
<input name="ID" type="hidden" id="ID" value="<%=ID%>">
<input type="submit" name="Submit" value="提交" class="button"> <input type="reSet" name="Submit2" value="重置" class="button"></td>
</tr>
</form>
</table>
</form>
<%
End Sub
Sub Add_Save()
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"))
MusicWord=trim(request.form("songwords"))
set rs=server.createobject("adodb.recordset")
sql="select NClass from NClass where NClassid="&Nclassid
rs.open sql,conn,1,1
singer=rs("Nclass")
rs.close
sql="select * from MusicList where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("wma")=Wma
rs("MusicName")=MusicName
rs("Singer")=singer
rs("ClassID")=classid
rs("SClassID")=Sclassid
rs("NClassID")=Nclassid
rs("SpecialID")=Specialid
rs("songwords")=MusicWord
rs.update
rs.close
Set Rs=Nothing
Response.Redirect Url
End Sub
Sub Edit_Save()
ID=CheckStr(Request.Form("ID"))
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from Special where Specialid="&ID
rs.open sql,conn,1,3
rs("name")=Request.Form("name")
rs("Yuyan")=Request.Form("Yuyan")
rs("Gongsi")=Request.Form("Gongsi")
rs("pic")=Request.Form("pic")
rs("intro")=Request.Form("intro")
rs("Times")=Request.Form("Times")
rs.update
rs.close
Set Rs=Nothing
Response.Redirect Request.Form("GoUrl")
End Sub
Sub ConAdd_save()
upcount=request.form("upcount")
url=request.form("url")
Classic=request.form("Classic")
ConClassic=split(Classic,",")
If InStrRev(url,"/")<>len(url) Then
url=url&"/"
End If
set NRs=server.createobject("adodb.recordset")
Nsql="select NClass from NClass where NClassid="&ConClassic(2)
NRs.open Nsql,conn,1,1
if not NRs.eof then
NClass=NRs("NClass")
end if
NRs.close
set rs=server.createobject("adodb.recordset")
sql="select * from MusicList"
rs.open sql,conn,1,3
Num=upcount
for i=1 to Num
MusicName=trim(request.form("MusicName"&i))
Wma=trim(request.form("Wma"&i))
MusicWord=trim(request.form("MusicWord"&i))
if MusicName="" or isnull(MusicName) or Wma="" or isnull(Wma) then
Num=i-1
exit for
end if
rs.addnew
rs("wma")=url&Wma
rs("MusicName")=MusicName
rs("Singer")=NClass
rs("Classid")=ConClassic(0)
rs("SClassid")=ConClassic(1)
rs("NClassid")=ConClassic(2)
rs("Specialid")=ConClassic(3)
rs("songwords")=MusicWord
rs.update
next
rs.close
call Success
End Sub
Sub Del()
ID=CheckStr(Request.QueryString("ID"))
SQL="DELETE FROM "& Tablespecials &" WHERE SpecialID="&ID
Conn.Execute(SQL)
SQL="DELETE FROM "& TableClass &" WHERE SpecialID="&ID
Conn.Execute(SQL)
Response.Redirect Url
End Sub
Sub SetIsGood()
ID=CheckStr(Request.QueryString("ID"))
SQL="UPDATE "& Tablespecials &" SET IsGood=1 WHERE SpecialID="&ID
Conn.Execute(SQL)
Response.Redirect Url
End Sub
Sub SetNoGood()
ID=CheckStr(Request.QueryString("ID"))
SQL="UPDATE "& Tablespecials &" SET IsGood=0 WHERE SpecialID="&ID
Conn.Execute(SQL)
Response.Redirect Url
End Sub
sub Success
Num=request.form("upcount")
%>
<BR><BR><BR><BR><BR>
<div align="center">
<center>
<table border="0" width="60%" cellspacing="1" cellpadding="1">
<tr>
<td>
<table border="1" width="100%" cellspacing="0" cellpadding="5" class="TableLine" bordercolor="#A4CEE4" bordercolordark="#FFFFFF">
<tr align="center">
<td width="100%" height="20" colspan=2 bgcolor="#96C5DE" align=center><font color="white"><b>歌曲批量添加成功<br>共添加了 <%=Num%> 首歌曲</b></td>
</tr>
<tr>
<td align=center><input type="button" name="button1" value="返回" onclick="javascript:history.go(-2)"> <input type="button" name="button2" value="继续添加" onclick="javascript:history.go(-1)"></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<%
end sub
%>
</body>
</html>