wordconadd.asp

971音乐站全站程序

<%PageName="SongConAdd"%>
<!--#include file="function.asp"-->
<%CheckAdmin1%>
<!--#include file="conn.asp"-->
<%
Specialid=request.QueryString("Specialid")

If request.QueryString("action")="save" Then
	SaveSongWord
Else
	EditsongWord
End If

%>
<!--#include file="top.asp"-->
<center>
<%
Sub SaveSongWord
	Dim MusicWord_rs,MusicWord
	set rs=server.createobject("adodb.recordset")
	sql="select ID,MusicName from [MusicList] where SpecialID="&cstr(Specialid)
	rs.open sql,conn,1,1
	i=0
	Do while not rs.eof
		MusicWord=trim(Request.Form("MusicWord"&rs(0)))
		If MusicWord <> "" Then 	
			Set MusicWord_rs=conn.execute("select MusicWord from [MusicWord]  where MusicID="&rs(0))
				If MusicWord_rs.eof Then
					conn.execute("insert into [MusicWord] (MusicId,MusicWord,AddUser,ISShow) values ("&rs(0)&",'"&MusicWord&"','master',true)")
				Else
					conn.execute("update [MusicWord] set isshow=true,MusicWord='"&MusicWord&"' where MusicId="&rs(0))
				End If
			MusicWord_rs.close
			Set MusicWord_rs=nothing
			i=i+1
		End If
		rs.movenext
	Loop
	rs.close
	set rs=nothing
%>
<center>
<p>
<br><br><br><br>
<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" height="59">
        <tr align="center">
         <td width="100%" height="10" colspan=2 bgcolor="#96C5DE" align=center><font color="white">歌词批量添加成功&nbsp;&nbsp;共添加了 <%=i%>   
          首歌词</font></td> 
        </tr>
        <tr>
          <td align=center height="25"><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>
</center>
<%	
End Sub

Sub EditSongWord
Dim MusicWord_rs,MusicWord

set rs=server.createobject("adodb.recordset")
sql="select ID,MusicName from [MusicList] where SpecialID="&cstr(Specialid)
rs.open sql,conn,1,1
if rs.EOF then
	errmsg= "<li>服务器出错！请联系管理员</li>"
	call error()
	Response.End
End If
%>
<center>
<form name="form1" method="POST" action="wordconadd.asp?action=save&Specialid=<%=Specialid%>"> 
 <input type=hidden name="Classic" value=""> 
<table border="1" width="80%" cellspacing="0" cellpadding="3" class="TableLine" bordercolor="#A4CEE4" bordercolordark="#FFFFFF" height="110">
<tr> 
 <td width="594" height="1" bgcolor="#96C5DE" align=center><font color="white">批 量 添 加  
  歌 词</font></td>  
</tr> 
<%
Do while not rs.eof
	MusicWord=""
	Set MusicWord_rs=conn.execute("select MusicWord from [MusicWord]  where MusicID="&rs(0))
		If not(MusicWord_rs.bof or MusicWord_rs.eof) Then
			MusicWord=MusicWord_rs(0)
		End If
	MusicWord_rs.close
	Set MusicWord_rs=nothing
%>
<tr align="center" valign="middle"> 
	<td align="left" height="11" width="594" >《<%=rs(1)%>》<br>&nbsp;歌词: <textarea rows="3" name="MusicWord<%=rs(0)%>" cols="40"><%=MusicWord%></textarea></td>                         
</tr>
<%
	rs.movenext
Loop
%>
<tr align="center" valign="middle" bgcolor="#A4CEE4"> 
<td bgcolor="#A4CEE4" height="25" width="594"> 
<input type="submit" name="Submit" value=" 提交 ">&nbsp; <input type="reset" name="Submit2" value=" 重执 ">&nbsp;   
<input type="button" name="Submit3" value=" 返回 " onclick="javascript:history.back()">                              
</td> 
</tr> 
</table> 
</form>
</center>
<%
rs.close
set rs=nothing
End Sub
conn.close
set conn=nothing
%>