songadd.asp

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

<!--#include file="function.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="top1.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from user"
rs.open sql,conn,1,1
if rs("sc")=0 then
	response.write "<br><br><br><br><br><br><br><div align=center><font color=#FFFFFF>你没有添加舞曲权限，请联系管理员！</font></div>"
	Response.End 
	else
	end if
%>
<%'if request("id")<>"" then
	if isnull(session("DJ58User")) or isnull(session("HappyMusicPwd")) or session("DJ58User")="" or session("HappyMusicPwd")="" then
		errmsg="<li>请登陆！只有会员才能。</li>"
		call error()
		response.end
	else
		set rs=server.createobject("adodb.recordset")
		sql="select * from user where UserName='"&Session("DJ58User")&"' and PassWord='"&Session("HappyMusicPwd")&"'"
		rs.Open sql,conn,1,3
		if not rs.eof then
			rs("Listens")=rs("Listens")+1
			rs.Update
		else
			errmsg="<li>会员不存在！请联系管理员或重新注册。</li>"
			call error()
			response.end
		end if
		rs.close
	'end if%>
<br><br><table border="0" width="98%" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" height="124" align="center">
  <tr> 
        <td valign=top width=5 background="images/line_bg02.gif" height="115"></td>
        <td valign=top height="115"> 　 
          <table border="1" width="100%" cellspacing="0" cellpadding="0" class="TableLine" style="border-collapse: collapse" bordercolor="#2B7B93">
            <form method="POST" action="SongSave.asp" id=form2 name=form2>
              <tr> 
                
            <td height="20" colspan=2 align=center><b>添 加 歌 曲</b></td>
              </tr>
              <tr> 
                
            <td align="right" width="32%">* 类型：</td>
                
            <td width="68%">一级栏目: 
              <select name="classid" size="1" onchange="window.open('Songadd.asp?classid='+this.options[this.selectedIndex].value,'_self')">
                <option value="" <%if request("classid")="" then%> selected<%end if%> selected>选择栏目</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>
                </td>
              </tr>
              <tr> 
                
            <td width="32%" align="right">加入专辑：</td>
                
            <td width="68%"> 
              <%if request("classid")<>"" then%>
              <select name="Specialid" size="1">
                <option value="" <%if request("Specialid")="" then%> selected<%end if%> selected>选择专辑</option>
                <%
	sql="select * from special where classid="&request("classid")
	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")%></option>
                <%
	rs.MoveNext
	Loop
	rs.close
else
%>
                <%end if%>
				<select name="" size="1">
                    <option value="">选择专辑</option>
                  </select>
         
            </td>
              </tr>
              <tr> 
                
            <td width="32%" align="right">文件类型：</td>
                
            <td width="68%"> 
              <select size="1" name="musictype">
                    <option value="1" selected>RealPlayer</option>
                    <option value="2">MediaPlay</option>
                    <option value="3">Flash</option>
                  </select>
                </td>
              </tr>
              <tr> 
                
            <td width="32%" align="right">* 服务器：</td>
                
            <td width="68%"> 
              <select name="ServerUrl" size="1">
                    <option value="" >选择服务器</option>
                    <%
	sql="select * from DJServer "
	rs.open sql,conn,1,1
	Do while not rs.eof
%>
                    <option value="<%=rs("ServerUrl")%>" selected><%=rs("Servername")%></option>
                    <%
	rs.MoveNext
	Loop
	rs.close

%><select name="ServerUrl" size="1">
                    <option value="">选择服务器</option>
                  </select>
                </td>
              </tr>
              <tr> 
                
            <td width="32%" align="right">* 试听地址：</td>
                
            <td width="68%"> <iframe name="11" frameborder=0 width="100%" height=48 scrolling=no src="uploadspecial1.asp?id=<%=id%>"></iframe>
              <input type="text" name="ListenUrl" size="30" value="<%=ListenUrl%>">
			
                </td>
              </tr>
              <tr> 
                
            <td align="right" width="32%"><font color="red">* 歌曲名：</font></td>
                
            <td width="68%"> 
              <input type="text" name="MusicName" size="30" class="smallinput" maxlength="100" style="color: #FF0000; border: 1px solid #000000; ">
                </td>
              </tr>
              <tr> 
                <td colspan=2 align=center> 
                  <input type="hidden" value="add" name="act">
                  <%if request("Classid")="" then%>
                  <input type="button" value=" 确 定 " name="cmdok" onclick="window.alert('请先选择栏目！')">
                  &nbsp; 
                  <%else%>
                  <input type="submit" value=" 确 定 " name="cmdok">
                  &nbsp; 
                  <%end if%>
                  <input type="reset" value=" 清 除 "  name="cmdcancel">
                </td>
              </tr>
            </form>
          </table>
        </td>
        <td valign=top width="5" background="images/line_bg02.gif" height="115">　</td>
      </tr>
      <tr> 
        <td valign=top width=750 colspan="3" background="images/line_bg01.gif" height="9"> 
          <img border="0" src="补间.gif" width="7" height="7"></td>
      </tr>
    </table>
 <%end if%> 
<%
set rs=nothing
conn.close
set conn=nothing%>