admin_music.asp

蓝色WAP建站系统,WAP源码,更多请登陆http://xywap.cn

end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form2" method="post" action="">
	<tr class="tablebody">
		<td class="td_title">删除子分类</td>
	</tr>
	<tr class="tablebody">
		<td height="50">
		子分类名称：<%=request.querystring("name")%><br>
		所属分类：
		<%
		sql="select * from wapls_music_cat where cat_id="&cint(request.querystring("catid"))
		set rs=conn.execute(sql)
		%>
		<%=rs("cat_name")%>
		</td>
	</tr>
	<tr class="tablebody">
		<td height="30" align="center"><input name="Submit" type="submit" id="Submit" value="确定删除" onclick="{if(confirm('您再次确定要删除『<%=request.querystring("name")%>』这个子分类吗?\n\n注意：删除后不可恢复！处于该分类下的文件需要重新进行归类操作！')){return true;}return false;}">
		<input type="hidden" name="id" value="<%=request.querystring("id")%>">
		<input type="hidden" name="delclass" value="true">
		</td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：addmusic()
'=功    能：新添文件
'==================================
sub addmusic()
if request.Form("addmusic")="true" then
	music_title=checksql("文件名称",request.form("music_title"),1,100)
	if len(request.form("music_keyword"))>20 then
		keyword=checksql("文件关键词",left(request.form("music_keyword"),20),1,20)
	else
		keyword=checksql("文件关键词",request.form("music_keyword"),1,20)
	end if
	keyword=replace(keyword,"[","")
	music_size=checksql("文件大小",request.form("size"),1,10)
	music_mode=checksql("授权方式",request.form("mode"),1,10)
	gs=checksql("授权方式",request.form("gs"),1,10)
	pt=checksql("应用平台",request.form("pt"),1,10)
	fl=checksql("下载分类",request.form("fl"),1,10)
	commend=checksql("推荐程度",request.form("commend"),0,1)
	if request.form("showpic")="" then
		showpic=""
	else
		showpic=checksql("文件图片",request.form("showpic"),1,200)
	if left(showpic,7)="http://" and request.form("save")="true" then
		showpic=saveimgfile(showpic)
		showpic=showpic
	end if
	end if

	if request.form("istop")="" then
		istop=0
	elseif request.form("istop")=1 then
		istop=1
	else
		istop=0
	end if
	userview=checksql("会员文件",request.form("userview"),0,1)
	moneypay=checksql("会员消费金币数",request.form("moneypay"),0,10)
	musicgood=checksql("文件等级",request.form("music_good"),0,1)
	content=checksql("文件介绍",request.form("content"),1,0)
	content=replace(content,replaceurl,"")
	url1_name=checksql("下载地址名称1",request.form("url1_name"),1,10)
	
	if request.form("url2_name")="" then
		url2_name=""
	else
		url2_name=checksql("下载地址名称2",request.form("url2_name"),1,10)
	end if
	if request.form("url3_name")="" then
		url3_name=""
	else
		url3_name=checksql("下载地址名称3",request.form("url3_name"),1,10)
	end if
	if request.form("url4_name")="" then
		url4_name=""
	else
		url4_name=checksql("下载地址名称4",request.form("url4_name"),1,10)
	end if
	url1=checksql("下载地址1",request.form("url1"),1,200)
	if left(url1,7)="http://" and request.form("saveurl1")="true" then
		url1=saveimgfile(url1)
		url1=url1
	end if
	if request.form("url2")="" then
		url2=""
	else
		url2=checksql("下载地址2",request.form("url2"),1,200)
	if left(url2,7)="http://" and request.form("saveurl2")="true" then
		url2=saveimgfile(url2)
		url2=url2
	end if
	end if
	if request.form("url3")="" then
		url3=""
	else
		url3=checksql("下载地址3",request.form("url3"),1,200)
	if left(url3,7)="http://" and request.form("saveurl3")="true" then
		url3=saveimgfile(url3)
		url3=url3
	end if
	end if
	if request.form("url4")="" then
		url4=""
	else
		url4=checksql("下载地址4",request.form("url4"),1,200)
	if left(url4,7)="http://" and request.form("saveurl4")="true" then
		url4=saveimgfile(url1)
		url4=url4
	end if
	end if
	sql="select * from wapls_music"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.addnew
	rs("music_title")=music_title
	rs("music_keyword")=keyword
	rs("music_size")=music_size
	rs("music_mode")=music_mode
	rs("music_pt")=pt
	rs("music_fl")=fl
	rs("music_gs")=gs
	rs("music_commend")=commend
	if request("of")<>"" then
		Set rsclass = Server.CreateObject("ADODB.Recordset")
		sqlclass="SELECT * from wapls_music_class where class_id="&request("of")
		rsclass.OPEN sqlclass,Conn,1,1
		rs("class_id")=rsclass("class_id")
		rs("class_name")=rsclass("class_name")
		rs("cat_id")=rsclass("cat_id")
		set rscat = Server.CreateObject("ADODB.Recordset")
		sqlcat="select cat_name from wapls_music_cat where cat_id="&rsclass("cat_id")
		rscat.open sqlcat,conn,1,1
		rs("cat_name")=rscat("cat_name")
		rscat.close
		rsclass.close
		set rscat=nothing
		set rsclass=nothing
	else
		Response.Write " <script> window.alert('你必须选择所属分类，或者非法操作！'); history.back();</script>"
		Response.End
	end if
	rs("music_showpic")=showpic
	if userview=0 then
		rs("moneypay")=0
	else
		rs("moneypay")=moneypay
	end if
	rs("user_view")=userview
	rs("istop")=istop
	rs("music_good")=musicgood
	rs("music_content")=content
	rs("music_url1")=url1
	rs("music_url2")=url2
	rs("music_url3")=url3
	rs("music_url4")=url4
	rs("music_url1_name")=url1_name
	rs("music_url2_name")=url2_name
	rs("music_url3_name")=url3_name
	rs("music_url4_name")=url4_name
	rs("music_err")=0
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=list&page="&curpage&""
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="" onsubmit="javascript:submits();">
	<tr class="tablebody">
		<td colspan="2" class="td_title">新增文件</td>
	</tr>
	<tr class="tablebody">
		<td align="center" width="13%">文件名称</td>
		<td width="87%"><input type="text" name="music_title" size="56" maxlength="100" onchange="music_keyword.value=music_title.value"> <span class="disable_font">*</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">关 键 词</td>
		<td><input type="text" name="music_keyword" size="20" maxlength="20" value=''> <span class="disable_font">[≤20]</span><span class="disable_font">*</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">文件大小</td>
		<td><input type="text" name="size" size="8" maxlength="8">&nbsp;<button onClick="size.value=size.value+'KB'"> KB </button>&nbsp;<button onClick="size.value=size.value+'MB'"> MB </button> <span class="disable_font">*</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">文件格式</td>
		<td><%
dim gs
gs=split(allowupfile,";")
%>
<select name="gs">
<%for i=0 to ubound(gs)
if gs(i)<>"" then %>
<option value="<%=gs(i)%>"><%=gs(i)%></option>
<%end if
next%>
</select>
<span class="disable_font">*</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">授权方式</td>
		<td>
		<select name="mode">
		<option value="共享" selected>共享</option>
		<option value="免费">免费</option>
		<option value="破解">破解</option>
		</select> <span class="disable_font">*</span>
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">应用平台</td>
		<td>
		<select name="pt">
		<%
		sql="select * from wapls_pt"
		set rs=conn.execute(sql)
		do while not rs.eof
		%>
		<option value="<%=rs("pt_id")%>"><%=rs("pt_title")%></option>
		<%
		rs.movenext
		loop
		if rs.eof and rs.bof then
		response.write"<option>暂无分类</option>"
		end if
		rs.close
		set rs=nothing
		%>
		<option value="0">其它平台</option>
		</select> <span class="disable_font">*</span>
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">下载分类</td>
		<td>
		<select name="fl">
		<%
		sql="select * from wapls_fl where fl_class=3"
		set rs=conn.execute(sql)
		do while not rs.eof
		%>
		<option value="<%=rs("fl_id")%>"><%=rs("fl_title")%></option>
		<%
		rs.movenext
		loop
		if rs.eof and rs.bof then
		response.write"<option>暂无分类</option>"
		end if
		rs.close
		set rs=nothing
		%>
		</select> <span class="disable_font">*</span>
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">推荐程度</td>
		<td>
		<select name="commend">
		<option value="5">☆☆☆☆☆</option>
		<option value="4">☆☆☆☆</option>
		<option value="3">☆☆☆</option>
		<option value="2">☆☆</option>
		<option value="1">☆</option>
		</select></td>
	</tr>
	<tr class="tablebody">
		<td align="center">所属分类</td>
		<td>
		<select name="of">
		<%
		dim catname,classname,catid,classid
		Set rs = Server.CreateObject("ADODB.Recordset")
		sql="SELECT * from wapls_music_cat"
		rs.open sql,conn,1,1
		if not (rs.eof and rs.bof) then
		rs.movefirst
		do while not rs.eof
		sql="select * from wapls_music_class where cat_id="&rs("cat_id")
		set rs2 = server.createobject("adodb.recordset")
		rs2.open sql,conn,1,1
		if not (rs2.eof and rs2.bof) then
			do while not rs2.eof
			catid=rs("cat_id")
			classid=rs2("class_id")
			catname=rs("cat_name")
			classname=rs2("class_name")
			%>
			<option value='<%=rs2("class_id")%>'><%=rs2("class_name")%>（<%=rs("cat_name")%>）</option>
			<%
			rs2.movenext
			loop
		else if rs2.eof and rs2.bof then
			response.write"<script>alert('请先给大分类添加子类!');location.href='?action=catlist';</script>"
		end if
		end if
		rs.movenext
		rs2.close
		set rs2=nothing
		response.write"<option>- - - - - - - - - -</option>"
		loop
		else if rs.eof and rs.bof then
		response.write"<script>alert('请先添加分类!');location.href='?action=addcat';</script>"
		end if
		rs.close
		set rs=nothing
		end if
		%>
		</select> <span class="disable_font">*</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">上传图片</td>
		<td>
		<iframe src="wapls_upload.asp" scrolling="no" frameborder="0" height="25" width="100%"></iframe></td>
	</tr>
	<tr class="tablebody">
		<td align="center">图片地址</td>
		<td><input type="text" name="showpic" size="50" maxlength="200">&nbsp;<button onClick="showpic.value='http://'">http://</button>&nbsp;&nbsp;<input type="checkbox" name="save" value="true">保存远程图片
	</td>
	</tr>
	<tr class="tablebody">
		<td align="center">查看权限</td>
		<td>
		<input type="radio" name="userview" value="0" checked> 游客查看
		<input type="radio" name="userview" value="1"> 普通会员
		<input type="radio" name="userview" value="2"> VIP会员
		| 消费金币：<input type="text" name="moneypay" value="1" size="6" maxlength="10" title="阅读此会员新闻所需金币量"></td>