admin_music.asp

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

	</tr>
	<tr class="tablebody">
		<td align="center">置&nbsp;&nbsp;顶</td>
		<td>
		<input type="checkbox" name="istop" value="1"> 文件置顶 <span class="disable_font">[总是显示于文件列表顶部]</span>
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">文件评级</td>
		<td>
		<input type="radio" name="music_good" value="0" checked> 普通文件
		<input type="radio" name="music_good" value="1"> 推荐文件
		<input type="radio" name="music_good" value="2"> 精品文件
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">文件简介 <span class="disable_font">*</span></td>
		<td><textarea name="content" style="overflow:auto;width:96%;" rows="15"></textarea></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" title="下载地址1必须填写，不能为空"><input type="text" name="url1_name" size="10" maxlength="10" value=""></td>
		<td><input type="text" name="url1" size="60" value="">&nbsp;&nbsp;<input type="checkbox" name="saveurl1" value="true">保存远程下载1</td>
	</tr>
	<tr class="tablebody">
		<td align="center"><input type="text" name="url2_name" size="10" maxlength="10" value=""></td>
		<td><input type="text" name="url2" size="60" value="">&nbsp;&nbsp;<input type="checkbox" name="saveurl2" value="true">保存远程下载2</td>
	</tr>
	<tr class="tablebody">
		<td align="center"><input type="text" name="url3_name" size="10" maxlength="10" value=""></td>
		<td><input type="text" name="url3" size="60" value="">&nbsp;&nbsp;<input type="checkbox" name="saveurl3" value="true">保存远程下载3</td>
	</tr>
	<tr class="tablebody">
		<td align="center"><input type="text" name="url4_name" size="10" maxlength="10" value=""></td>
		<td><input type="text" name="url4" size="60" value="">&nbsp;&nbsp;<input type="checkbox" name="saveurl4" value="true">保存远程下载4</td>
	</tr>
	<tr class="tablebody">
	<td colspan="2">警告！！！<br>目标文件不要过大！提交后禁止一切操作！尽量不要多个文件同时的使用远程下载到本地的功能，以免服务器处理的困难，导致一些不必要的麻烦！</td>
	</tr>
	<tr class="tablebody">
		<td colspan="2"  align="center" height="30">
		<input type="submit" name="Submit" value="确定新增" onClick="if (Dvbbs_bTextMode!=1) {Dvbbs_setMode(1);}">
		<input type="reset" name="Reset" value="清空重填">
		<input type="hidden" name="addmusic" value="true">
		</td>
	</tr>
	</form>
</table>
<%end sub
'==================================
'=过 程 名：editmusic()
'=功    能：编辑文件
'==================================
sub editmusic()
if request.Form("editmusic")="true" then
	if request.querystring("page")<>"" then
		curpage=cint(request.querystring("page"))
	else
		curpage=1
	end if
	music_id=checksql("文件ID",request.Form("id"),0,16)
		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
	if request.form("musicerr")="" then
		musicerr=0
	elseif request.form("musicerr")=1 then
		musicerr=1
	else
		musicerr=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 where music_id="&cint(request.form("id"))
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3

	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_err")=musicerr
	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.update
	rs.close
	set rs=nothing
	response.redirect "?action=list&page="&curpage&""
end if
music_id=checksql("文件ID",request.querystring("id"),0,16)
sql="select * from wapls_music where music_id="&music_id
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1%>
<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" value="<%=rs2("music_title")%>" maxlength="100"> <span class="disable_font">*</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">关 键 词</td>
		<td><input name="music_keyword" type="text" id="music_keyword" value="<%=rs2("music_keyword")%>" size="20" maxlength="20"> <span class="disable_font">[≤20]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">文件大小</td>
		<td><input type="text" name="size" size="8" value="<%=rs2("music_size")%>" 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="共享" <%if rs2("music_mode")="共享" then%>selected<%end if%>>共享</option>
		<option value="免费" <%if rs2("music_mode")="免费" then%>selected<%end if%>>免费</option>
		<option value="破解" <%if rs2("music_mode")="破解" then%>selected<%end if%>>破解</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="其它平台" <%if rs2("music_pt")="其它平台" then%>selected<%end if%>>其它平台</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" id="commend">
		<option value="5" <%if rs2("music_commend")=5 then response.write "selected" end if%>>☆☆☆☆☆</option>
		<option value="4" <%if rs2("music_commend")=4 then response.write "selected" end if%>>☆☆☆☆</option>
		<option value="3" <%if rs2("music_commend")=3 then response.write "selected" end if%>>☆☆☆</option>
		<option value="2" <%if rs2("music_commend")=2 then response.write "selected" end if%>>☆☆</option>
		<option value="1" <%if rs2("music_commend")=1 then response.write "selected" end if%>>☆</option>
		</select> <span class="disable_font">*</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">所属分类</td>
		<td>
		<select name="of" id="of">
		<%
		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 rs3 = Server.CreateObject("ADODB.Recordset")
		rs3.OPEN sql,Conn,1,1
		if not (rs3.eof and rs3.bof) then
		do while not rs3.eof
		catid=rs("cat_id")
		classid=rs3("class_id")
		catname=rs("cat_name")
		classname=rs3("class_name")
		%>
		<option value='<%=rs3("class_id")%>' <%if rs3("class_id")=rs2("class_id") then response.Write "selected" end if%>><%=rs3("class_name")%>（<%=rs("cat_name")%>）</option>
		<%