manage.asp

网页中的flash播放器

sn=""
'----------------------------------------------
end if
%>
<table border="0" align=center cellpadding="5" cellspacing="1" class="tableBorder">
  <form name="form_cmp_list_manage" action="?action=save_manage&save_manage=<%=manage%>" method="post">
    <tr>
      <th colspan="4" align="center"><%=pagetitle%></th>
    </tr>
    <tr>
      <td width="7%" align="right" nowrap class="cmsRow01"><strong>所属专辑:</strong></td>
      <td width="93%" class="cmsRow01"><select name="classid" id="JumpClass">
          <%
sql="select classid,classname from cmp_class order by sn"
set rs=conn.execute(sql)
	if rs.bof or rs.eof then
		Errmsg=Errmsg&"<li>至少需要一个专辑,请先<a href=""?action=class_manage""><strong>添加</strong></a>"
		cenfun_error()
		exit sub
	else
		do while not rs.eof
			response.write "<option value="&rs("classid")&""
				if rs("classid")=classid then
					response.write " selected"
				end if
			response.write ">"&rs("classname")&"</option>"			
			rs.movenext
		loop
	end if
rs.close
set rs=nothing
%>
        </select>
       </td>
    </tr>
    <tr>
      <td align="right" nowrap="nowrap" class="cmsRow01"><strong>音乐名称:</strong></td>
      <td class="cmsRow01"><input name="title" id="title" type="text" size="50" value="<%=title%>">
        <font color="red">*</font>
        <input type="button" value="检查重复" onClick="checktitle();">
        <%if request("manage")="edit" then%>
        <input name="id" type="hidden" value="<%=id%>">
        <%end if%></td>
    </tr>
    <tr>
      <td align="right" nowrap="nowrap" class="cmsRow01"><strong>音乐介绍:</strong></td>
      <td class="cmsRow01"><input name="content" type="text" size="50" value="<%=content%>"></td>
    </tr>
    <tr>
      <td align="right" nowrap="nowrap" class="cmsRow01"><strong>音乐地址:</strong></td>
      <td class="cmsRow01"><input name="url" type="text" value="<%=url%>" size="70">
        <font color="red">*</font></td>
    </tr>
    <tr>
      <td align="right" nowrap="nowrap" class="cmsRow01"><strong>总时间:</strong></td>
      <td class="cmsRow01"><input name="t" type="text" id="t" size="5" maxlength="5" value="<%=t%>" />
        (flv视频有效,填写整数,单位:秒) </td>
    </tr>
    <tr>
      <td align="right" nowrap="nowrap" class="cmsRow01"><strong>歌词地址:</strong></td>
      <td class="cmsRow01"><input name="lrc" id="lrc" type="text" size="70" value="<%=lrc%>">
        <input type="button" value="查看" onClick="showurl(document.getElementById('lrc'));">
        <input type="button" name="lrc_file" value="<%if request("manage")="edit" then%>编辑<%else%>添加<%end if%>歌词文件" onClick="showlrc();"/>
      </td>
    </tr>
    <tr>
      <td align="right" nowrap="nowrap" class="cmsRow01"><strong>图片地址:</strong></td>
      <td class="cmsRow01"><input name="pic" id="pic" type="text" size="70" value="<%=pic%>">
        <input type="button" value="查看" onClick="showurl(document.getElementById('pic'));"></td>
    </tr>
    <tr>
      <td align="right" nowrap="nowrap" class="cmsRow01"><strong>图片属性:</strong></td>
      <td class="cmsRow01">a(透明度):
        <input name="a" type="text" size="3" value="<%=a%>" />
        c(介绍):
        <input name="c" type="text" size="15" value="<%=c%>" /></td>
    </tr>
    <tr>
      <td align="right" nowrap="nowrap" class="cmsRow01"><strong>图片链接:</strong></td>
      <td class="cmsRow01"><input name="u" id="u" type="text" size="70" value="<%=u%>" />
        <input type="button" value="打开" onClick="showurl(document.getElementById('u'));" /></td>
    </tr>
    <tr>
      <td align="right" nowrap="nowrap" class="cmsRow01"><strong>场景地址:</strong></td>
      <td class="cmsRow01"><input name="scene" id="scene" type="text" size="70" value="<%=scene%>" />
        <input type="button" value="查看" onClick="showurl(document.getElementById('scene'));" /></td>
    </tr>
    <tr>
      <td align="right" nowrap="nowrap" class="cmsRow01"><strong>是否前置:</strong></td>
      <td class="cmsRow01"><select name="fg">
          <option value="">否</option>
          <option value="1" <%if fg="1" then%>selected="selected"<%end if%>>是</option>
        </select>
      </td>
    </tr>
    <tr <%if not request("manage")="edit" then%>style="display: none;"<%end if%>>
      <td align="right" nowrap="nowrap" class="cmsRow01"><strong>添加时间:</strong></td>
      <td class="cmsRow01"><input name="addtime" id="addtime" type="text" size="20" value="<%=addtime%>">
        <input name="SqlNowString" type="button" onClick="document.getElementById('addtime').value='<%=lasttime%>'" value="更新"/></td>
    </tr>
    <tr <%if not request("manage")="edit" then%>style="display: none;"<%end if%>>
      <td align="right" nowrap="nowrap" class="cmsRow01"><strong>更新时间:</strong></td>
      <td class="cmsRow01"><input name="lasttime" type="text" size="20" value="<%=lasttime%>"></td>
    </tr>
    <tr>
      <td colspan="4" align="center" class="cmsRow01"><input type="button" class=button name="submit_cmp_list_manage" value="<%=pagetitle%>" onClick="return check();">
      </td>
    </tr>
  </form>
</table>
<script LANGUAGE="javascript">
<!--
function showurl(obj){
	if(obj.value!=''){
		var this_url=obj.value;
		var t=this_url.indexOf("http://");
		//alert(t);
		if(t!=-1){
			window.open(this_url,'','status=no,scrollbars=1')
		}else{
			window.open("../"+this_url,'','status=no,scrollbars=1')
		}
	}
}
function checktitle(){
	var this_title=document.getElementById('title').value;
	if(this_title!=''){
		var win='width=400,height=150,left='+(window.screen.width/2-200)+',top='+(window.screen.height/2-100)+',status=no,scrollbars=1';
		window.open('?nomenu=1&action=check_music_name&music_name='+this_title,'',win);
	}
}
function showlrc(){
	var this_title=document.getElementById('title').value;
	if(this_title!=''){
		var win='width=760,height=500,left='+(window.screen.width/2-380)+',top='+(window.screen.height/2-275)+',status=no,scrollbars=1';
		window.open('?nomenu=1&action=make_lrc&lrc_name='+this_title,'lrc_edit',win);
	}
}
function checkspace(s) {
  var str = '';
  for(i = 0; i < s.length; i++) {
    str = str + ' ';
  }
  return (str == s);
}
function check()
{
  if(checkspace(document.form_cmp_list_manage.title.value)) {
	document.form_cmp_list_manage.title.focus();
    alert("音乐名不能为空!");
	return false;
  }
  if (document.form_cmp_list_manage.url.value=="")
  {
    alert("请填写音乐地址。");
	document.form_cmp_list_manage.url.focus();
	return false;
  }
	document.form_cmp_list_manage.submit();
  }
//-->
</script>
<%
end sub

Sub save_manage()
dim saveaction,sql
dim id,classid,title,url,lrc,content,pic,t,fg,a,c,u,scene,addtime,lasttime,sn
dim addtime_sql,lasttime_sql
	saveaction=request.QueryString("save_manage")
	classid=Request("classid")
		if classid="" then Errmsg=Errmsg&"<li>专辑不能为空!请返回重新填写信息!"
	title=Replace(trim(Request("title")),"'","")
		if title="" then Errmsg=Errmsg&"<li>名称不能为空!请返回重新填写信息!"
	url=Replace(trim(Request("url")),"'","")
		if url="" then Errmsg=Errmsg&"<li>地址不能为空!请返回重新填写信息!"
	lrc=Replace(trim(Request("lrc")),"'","")
	content=Replace(trim(Request("content")),"'","")
	pic=Replace(trim(Request("pic")),"'","")
	t=Replace(trim(Request("t")),"'","")
	fg=Replace(trim(Request("fg")),"'","")
	a=Replace(trim(Request("a")),"'","")
	c=Replace(trim(Request("c")),"'","")
	u=Replace(trim(Request("u")),"'","")
	scene=Replace(trim(Request("scene")),"'","")
	addtime=Request("addtime")
		if IsDate(addtime) then
			addtime_sql="addtime='"&addtime&"',"
		end if
	lasttime=Request("lasttime")
		if IsDate(lasttime) then
			lasttime_sql="lasttime='"&lasttime&"',"
		end if
	sn=Replace(trim(Request("sn")),"'","")
		if sn="" then sn=0
if saveaction="edit" then
	saveaction=""
	id=Request("id")
	If ErrMsg<>"" Then 
		cenfun_error()
	else
		conn.execute("Update cmp_list Set classid="&classid&",title='"&title&"',url='"&url&"',lrc='"&lrc&"',content='"&content&"',pic='"&pic&"',t='"&t&"',fg='"&fg&"',a='"&a&"',c='"&c&"',u='"&u&"',scene='"&scene&"',"&addtime_sql&""&lasttime_sql&"sn="&sn&" Where id="&id&"")
		SucMsg=SucMsg&"<li>修改资料成功!"
		Cenfun_suc("?")
	end if
end if

if saveaction="add" then
	saveaction=""
	If ErrMsg<>"" Then 
		cenfun_error()
	else
		sql="insert into cmp_list (classid,title,url,lrc,content,pic,t,fg,a,c,u,scene,addtime,lasttime,sn) values("&classid&",'"&title&"','"&url&"','"&lrc&"','"&content&"','"&pic&"','"&t&"','"&fg&"','"&a&"','"&c&"','"&u&"','"&scene&"',"&SqlNowString&","&SqlNowString&","&sn&")"
		conn.execute(sql)
		SucMsg=SucMsg&"<li>添加成功!"
		Cenfun_suc("?")
	end if
end if
end sub

sub class_manage()
%>
<table border="0" cellspacing="1" cellpadding="5" align=center class="tableBorder">
  <tr>
    <th colspan="6"><strong>专辑管理</strong></th>
  </tr>
  <tr class="cmsRow">
    <td>序号</td>
    <td>名称</td>
    <td>对应的配置代码(会自动替换掉配置文件中的代码)</td>
    <td>操作</td>
  </tr>
  <%
dim nextsn
	nextsn=0
	sql="select classid,classname,sn from cmp_class order by sn"
	set rs=conn.execute(sql)
	if rs.EOF and rs.BOF then
		response.Write "<tr align=center><td colspan=4 class=cmsRow><font color=red>没有找到任何信息!</font></td></tr>"
	else
		do while not rs.EOF
%>
  <tr class="cmsRow">
    <td><input name="sn" type="text" id="sn<%=rs("classid")%>" size="4" value="<%=rs("sn")%>"></td>
    <td><input name="classname" type="text" id="classname<%=rs("classid")%>" size="15" value="<%=trim(rs("classname"))%>"></td>
    <td>&lt;l name=&quot;<%=trim(rs("classname"))%>&quot;&gt;xml/list<%=nextsn%>.xml&lt;/l&gt;</td>
    <td><input name="edit" type="button"  value="修 改" onClick="document.location='?action=save_class_manage&class_manage=edit&classid=<%=rs("classid")%>&sn='+document.getElementById('sn<%=rs("classid")%>').value+'&classname='+document.getElementById('classname<%=rs("classid")%>').value">
      <input type="button" name="del" value="删 除" onClick="if(confirm('删除专辑时，其下的音乐信息不会删除!确认删除吗？')){location='?action=save_class_manage&class_manage=del&classid=<%=rs("classid")%>'}"></td>
  </tr>
  <%
		nextsn=nextsn+1
		rs.MoveNext
		loop
	end if
	rs.close
	set rs=nothing
%>
  <form name="form_class_manage_add" method="post" action="?action=save_class_manage&class_manage=add">
    <tr class="cmsRow">
      <td><input name="sn" type="text" id="sn" size="4" value="<%=nextsn%>"></td>
      <td><input name="classname" type="text" id="classname" size="15" value=""></td>
      <td> </td>
      <td><input type="button" name="Submit" value="添 加" onClick="check();"></td>
    </tr>
  </form>
</table>
<script LANGUAGE="javascript">
<!--
function check(){
	if(isNaN(document.form_class_manage_add.sn.value)) {
		document.form_class_manage_add.sn.focus();
		document.form_class_manage_add.reset();
		alert("序号必须位数字");
	}else if(document.form_class_manage_add.sn.value=="") {
		document.form_class_manage_add.sn.focus();
		alert("序号不能为空");
	}else if(document.form_class_manage_add.classname.value=="") {
		document.form_class_manage_add.classname.focus();
		alert("名称不能为空");
	}else{
		document.form_class_manage_add.submit();
	}
}
//-->
</script>
<%
end sub

sub save_class_manage()
dim class_manage
class_manage=request.querystring("class_manage")
if class_manage="del" then
	conn.execute ("delete from cmp_class where classid="&request.QueryString("classid"))
	SucMsg=SucMsg&"<li>删除成功!"
	set_config()
	response.Redirect("?action=class_manage")
else
	dim classname,sn
	classname=request("classname")
		if classname="" then Errmsg=Errmsg&"<li>名称不能为空！请返回重新填写信息！"
	sn=request("sn")
	If ErrMsg<>"" Then 
		cenfun_error()
	elseif class_manage="add" then
		sql="insert into cmp_class"
		sql=sql&"(classname,sn) values"
		sql=sql&"('"&classname&"',"&sn&")"
		conn.execute(sql)
		SucMsg=SucMsg&"<li>添加成功!"
		set_config()
		Cenfun_suc("?action=class_manage")
	elseif class_manage="edit" then
		sql="update cmp_class set "
		sql=sql&" classname='"&classname&"',sn="&sn&" where classid="&request.QueryString("classid")
		conn.execute(sql)
		SucMsg=SucMsg&"<li>修改成功!"
		set_config()
		response.Redirect("?action=class_manage")
	end if
end if
end sub
'更新配置分类
function set_config()
	dim nextsn,list_str
	nextsn=0
	list_str=""
	sql="select classname from cmp_class order by sn"
	set rs=conn.execute(sql)
	do while not rs.EOF
		list_str=list_str&chr(9)&"<l name="""&rs("classname")&""">xml/list"&nextsn&".xml</l>"&Chr(13)&Chr(10)	
		nextsn=nextsn+1
		rs.MoveNext
	loop
	rs.close
	set rs=nothing
	'response.Write(list_str)
	'-------------------------------------------
	dim config_str
	sql="select config from cmp_config"
	set rs=conn.execute(sql)
	if not rs.eof then
		config_str=rs("config")
	end if
	rs.close
	set rs=nothing
	'-------------------------------------------
	dim re	
	Set re=new RegExp
	re.IgnoreCase =True
	re.Global=True
	re.Pattern="<class>.[^\]]*<\/class>"
	config_str= re.Replace(config_str,"<class>"&Chr(13)&Chr(10)&list_str&"</class>")	
	Set re=Nothing
	conn.execute("Update cmp_config Set config='"&config_str&"'")
	'response.Write(config_str)
end function

sub config()
set_config()