admin_songsave.asp

疯狂DJ联盟-v2.0 1.修改了V1.0的几个错误. 2.首页生成HTM 大大加快了访问速度 3.歌曲播放页面全部调用HTM播放器.减轻了服务器的负担. 4.增加了站内统计,全部访问次数

<!--#include file="function.asp"-->
<%CheckAdmin1%>
<!--#include file="conn.asp"-->
<!--#include file="inc/char.inc"-->
<%
page=trim(request.querystring("page"))
AskClassid=trim(request.querystring("AskClassid"))
ListenUrl=trim(request.form("ListenUrl"))
MusicName=trim(request.form("MusicName"))
classid=trim(request.form("classid"))
Specialid=trim(request.form("Specialid"))
ServerUrl=trim(request.form("ServerUrl"))
founerr=false
act=request("act")

if act<>"SetIsGood" then
	if ListenUrl="" then
		errmsg="<li>试听的路径不能为空</li>"
		founderr=true
	end if
	if MusicName="" then
		errmsg=errmsg+"<li>显示名称不能为空</li>"
		founderr=true
	end if
end if

if founderr=true then
	call error()
else
	set rs=server.createobject("adodb.recordset")		
if act="edit" and request("id")<>"" then
		sql="select * from MusicList where id="&request("id")
		rs.open sql,conn,1,3
		rs("ListenUrl")=trim(ListenUrl)
		rs("MusicName")=MusicName
		rs("classid")=classid
		rs("Specialid")=Specialid
		rs("ServerUrl")=ServerUrl
		rs("musictype")=trim(request("musictype"))
		rs("dateandtime")=now()
		rs.update
		rs.close

		sql="select * from collection where Musicid="&request("id")
		rs.open sql,conn,1,3
		if not rs.eof then
			rs("MusicName")=MusicName
			rs.update
		end if
		rs.close

		call Success
		Response.End 
	elseif act="add" then
		sql="select * from MusicList where (id is null)" 
		rs.open sql,conn,1,3
		rs.addnew
		rs("ListenUrl")=ListenUrl
		rs("MusicName")=MusicName
		rs("classid")=classid
		rs("musictype")=trim(request("musictype"))
		if Specialid<>"" then rs("Specialid")=Specialid
		rs("ServerUrl")=ServerUrl
		rs("IsChecked")=true
		rs("dateandtime")=now()
		rs.update
		rs.close
		call Success
		Response.End 
	elseif act="SetIsGood" then
		sql="select IsGood from MusicList where id="&request("id") 
		rs.open sql,conn,1,3
		if not rs.EOF then
			if rs("IsGood")=true then
				rs("IsGood")=false
			else
				rs("IsGood")=true
			end if
			rs.update
		end if
		rs.close
	else
		errmsg=errmsg+"<li>操作错误！请联系管理员</li>"
		call error()
		Response.End
	end if
	set rs=nothing
	conn.close
	set conn=nothing
	Response.Redirect "admin_SongMana.asp?Classid="+AskClassid+"&Page="+Page
end if
sub Success
%>
<%PageName="admin_SongSave"%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="top1.asp"-->
<br><br><br><br>
<div align="center">
  <center>

<table border="0" width="750" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
  <tr>
    <td>　
      <div align="center">
        <center>
      <table border="1" width="45%" cellspacing="0" cellpadding="0" class="TableLine" style="border-collapse: collapse" bordercolor="#111111">
        <tr align="center">
          <td width=100% align=center bgcolor="#315977" height=20>歌曲<%if act="add" then%>添加<%else%>修改<%end if%>成功</td>
        </tr>
        <tr>
          <td>
          <table width="100%" border="1" cellspacing="0" cellpadding="0" class="Tableline" style="border-collapse: collapse" bordercolor="#111111">
            <tr>
              <td width="25%" align="right" bgcolor="#4681AC">歌曲：</td>
              <td width="75%" bgcolor="#4681AC"><%=MusicName%>　</td>
            </tr>
            <tr>
              <td align="right" bgcolor="#4681AC">试听地址：</td>
              <td bgcolor="#4681AC"><%=ListenUrl%>　</td>
            </tr>
            
            <tr>
              <td colspan="2" height="15" align=center bgcolor="#315977"><input type="button" name="button1" value="返回" onclick="javascript:history.go(-2)">&nbsp;<input type="button" name="button2" value="继续<%if act="add" then%>添加<%else%>修改<%end if%>" onclick="javascript:history.go(-1)"></td>
            </tr>
          </table>
          </td>
        </tr>
      </table>
        </center>
    </div>
 　 </td>
  </tr>
</table>
  </center>
</div>
</div>
</body>
</html>
<%end sub%>