songconsave.asp

971音乐站全站程序

<!--#include file="function.asp"-->
<%CheckAdmin1%>
<!--#include file="conn.asp"-->
<!--#include file="char.inc"-->
<%
upcount=request.form("upcount")
song_path=request.form("song_path")
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("MusicName")=MusicName
	rs("Singer")=NClass
	rs("Classid")=ConClassic(0)
	rs("SClassid")=ConClassic(1)
	rs("NClassid")=ConClassic(2)
	rs("Specialid")=ConClassic(3)
	rs("Wma")=url&Wma
	rs("song_path")=song_path
	rs.update
	If MusicWord<>"" Then
		MUSICID=rs("id")
		conn.execute("insert into [MusicWord] (MusicId,MusicWord,AddUser,ISShow) values ("&MUSICID&",'"&MusicWord&"','master',true)")
	End If
	
next
rs.close
call Success

sub Success
%>
<!--#include file="top.asp"-->
<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)">&nbsp;&nbsp;<input type="button" name="button2" value="继续添加" onclick="javascript:history.go(-1)"></td>
        </tr>
      </table>
 　 </td>
  </tr>
</table>
</div>
<%end sub
set rs=nothing
conn.close
set conn=nothing
%>