admin_music.asp

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

		rs3.movenext
		loop
		end if
		rs.movenext
		rs3.close
		set rs3=nothing
		response.write"<option>- - - - - - - - - -</option>"
		loop
		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" value="<%=rs2("music_showpic")%>">&nbsp;&nbsp;<input type="checkbox" name="save" value="true">保存远程图片</td>
	</tr>
	<tr class="tablebody">
		<td align="center"></td>
		<td><input type="checkbox" name="save" value="true">保存远程图片 <span class="disable_font">[将非上传图象远程下载存储]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">查看权限</td>
		<td>
		<input type="radio" name="userview" value="0" <%if rs2("user_view")=0 then%>checked<%end if%>> 游客查看
		<input type="radio" name="userview" value="1" <%if rs2("user_view")=1 then%>checked<%end if%>> 普通会员
		<input type="radio" name="userview" value="2"  <%if rs2("user_view")=2 then%>checked<%end if%>> VIP会员
		| 消费金币：<input type="text" name="moneypay" <%if rs2("user_view")=0 then%> value="1" <%else%> value="<%=rs2("moneypay")%>" <%end if%> size="6" maxlength="10" title="阅读此会员新闻所需金币量"></td>
	</tr>
	<tr class="tablebody">
		<td align="center">置&nbsp;&nbsp;顶</td>
		<td>
		<input type="checkbox" name="istop" <%if rs2("istop")=1 then%> checked <%end if%> value="1"> 文件置顶 <span class="disable_font">[总是显示于文件列表顶部]</span>
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">文件报错</td>
		<td>
		<input type="radio" name="musicerr" value="1" <%if rs2("music_err")=1 then%>checked<%end if%>> <font color="#ff0000">出错</font>
		<input type="radio" name="musicerr" value="0" <%if rs2("music_err")=0 then%>checked<%end if%>> <font color="#228b22">正常</font> [<span class="current_font">注：更正下载地址后，重新设定状态</span>]</td>
	</tr>
	<tr class="tablebody">
		<td align="center">文件评级</td>
		<td>
		<input type="radio" name="music_good" value="0" <%if rs2("music_good")=0 then%>checked<%end if%>> 普通文件
		<input type="radio" name="music_good" value="1" <%if rs2("music_good")=1 then%>checked<%end if%>> 推荐文件
		<input type="radio" name="music_good" value="2"  <%if rs2("music_good")=2 then%>checked<%end if%>> 精品文件
		</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"><%=rs2("music_content")%></textarea></td>
		 </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="<%=rs2("music_url1_name")%>"></td>
		<td><input type="text" name="url1" size="60" value="<%=rs2("music_url1")%>">&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="<%=rs2("music_url2_name")%>"></td>
		<td><input type="text" name="url2" size="60" value="<%=rs2("music_url2")%>">&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="<%=rs2("music_url3_name")%>"></td>
		<td><input type="text" name="url3" size="60" value="<%=rs2("music_url3")%>">&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="<%=rs2("music_url4_name")%>"></td>
		<td><input type="text" name="url4" size="60" value="<%=rs2("music_url4")%>">&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 name="Submit" type="submit" id="Submit" value="确定修改" onClick="if (Dvbbs_bTextMode!=1) {Dvbbs_setMode(1);}">
		<input type="reset" name="Reset2" value="清空重填">
		<input type="hidden" name="id" value="<%=request.QueryString("id")%>">
		<input type="hidden" name="editmusic" value="true">
		</td>
	</tr>
	</form>
</table>
<%
rs2.close
set rs2=nothing
end sub
'==================================
'=过 程 名：delmusic()
'=功    能：删除文件
'==================================
sub delmusic()
if request.Form("delmusic")="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)
	sql="select * from wapls_remark where class_id=3 and list_id="&music_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
		if not (rs.eof and rs.bof) then
		do while not rs.eof
		rs.delete
		rs.movenext
		loop
	end if
	rs.close:set rs=nothing

	sql="select * from wapls_music where music_id="&music_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.delete
	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="">
	<tr class="tablebody">
		<td colspan="2" class="td_title">删除文件</td>
	</tr>
	<tr class="tablebody">
		<td align="center" width="13%">文件名称</td>
		<td width="87%"><%=rs2("music_title")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">关 键 词</td>
		<td><%=rs2("music_keyword")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">文件大小</td>
		<td><%=rs2("music_size")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">授权方式</td>
		<td><%=rs2("music_mode")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">推荐程度</td>
		<td><img src="images/<%=rs2("music_commend")%>star.gif"></td>
	</tr>
	<tr class="tablebody">
		<td align="center">所属分类</td>
		<td><%=rs2("cat_name")%> | <%=rs2("class_name")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">图片地址</td>
		<td><%=rs2("music_showpic")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">查看权限</td>
		<td><%if rs2("user_view")=0 then%>游客方式查看<%elseif rs2("user_view")=1 then%>普通会员方式查看&nbsp;<span class="disable_font">[消费<%=rs2("moneypay")%>个金币]</span><%elseif rs2("user_view")=2 then%>VIP会员方式查看&nbsp;<span class="disable_font">[消费<%=rs2("moneypay")%>个金币]</span><%end if%>
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">置&nbsp;&nbsp;顶</td>
		<td><%if rs2("istop")=1 then%><span class="current_font">[置顶文件]</span><%else%>一般文件<%end if%>
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">文件评级</td>
		<td><%if rs2("music_good")=0 then%>普通文件<%elseif rs2("music_good")=1 then%>推荐文件<%elseif rs2("music_good")=2 then%>精品文件<%end if%>
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">文件简介</td>
		<td><%=ChangeEmot(rs2("music_content"))%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">下载地址1</td>
		<td><%=rs2("music_url1")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">下载地址2</td>
		<td><%=rs2("music_url2")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">下载地址3</td>
		<td><%=rs2("music_url3")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">下载地址4</td>
		<td><%=rs2("music_url4")%></td>
	</tr>
	<tr class="tablebody">
		<td colspan="2"  align="center" height="30">
		<input name="Submit" type="submit" id="Submit" value="确定删除" onclick="{if(confirm('您再次确定要删除『<%=rs2("music_title")%>』这个文件吗?\n\n注意：删除后不可恢复！')){return true;}return false;}">		<input type="hidden" name="id" value="<%=request.QueryString("id")%>">
		<input type="hidden" name="delmusic" value="true">
		 </td>
	</tr>
	</form>
</table>
<%
rs2.close
set rs2=nothing
end sub
'==================================
'=过 程 名：remarklist()
'=功    能：文件评论列表
'==================================
sub remarklist()
dim totaldiary,Currentpage,totalpages,i 
sql="select * from wapls_remark where class_id=3 order by remark_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr class="tablebody">
		<td colspan="4" align="center" class="td_title">文 件 评 论 管 理</td>
	</tr>
	<tr align="center" class="tablebody">
		<td width="10%">编号</td>
		<td>评论内容</td>
		<td>评论文件</td>
		<td width="10%">操作</td>
	</tr>
	<%
	if not rs.eof then
	rs.Movefirst
	perpage=cint(perpage)
	rs.pagesize=perpage
	if trim(request.querystring("page"))<>"" then
	    currentpage=cint(request.querystring("page"))
		if currentpage>rs.pagecount then
		   currentpage=rs.pagecount
		end if
	else
	    currentpage=1
	end if
	    totalremark=rs.recordcount
		if currentpage<>1 then
		   if(currentpage-1)*perpage<totalremark then
		      rs.move(currentpage-1)*perpage
		   end if
		end if
		if (totalremark mod perpage)=0 then
		   totalpages=totalremark\perpage
		else
		   totalpages=totalremark\perpage+1
		end if
	i=0
	do while not rs.eof and i<perpage
	%>
	<tr class="tablebody">
		<td align="center"><%=rs("remark_id")%></td>
		<td><strong>评论：<%=rs("remark")%></strong><br>[评论人：<%=rs("remarker")%>|时间：<%=rs("remark_date")%>|IP：<%=rs("remarker_ip")%>]</td>
		<%
		sql2="select music_title from wapls_music where music_id="&rs("list_id")
		set rs2=server.createobject("adodb.recordset")
		rs2.open sql2,conn,1,1
		if not (rs2.bof and rs2.eof)  then 
		%>
		<td><%=rs2("music_title")%></td>
		<%else%>
		<td align="center"><font color="red">无相关内容或已经删除</font></td>
		<%
		end if
		rs2.close
		set rs2=nothing
		%>
		<td align="center"><button onclick="{if(confirm('您再次确定要删除『<%=rs("remark_id")%>』这条评论吗?\n\n注意：删除后不可恢复！')){window.location='?action=delremark&page=<%=currentpage%>&id=<%=rs("remark_id")%>'}return false;}">删除</button></td>
	</tr>
	<%
	i=i+1
	rs.movenext
	loop
	else
	If rs.EOF And rs.BOF Then
	%>
	<tr class="tablebody">
		<td colspan="4" align="center" height="70" class="disable_font">当前还没有评论！</td>
	</tr>
	<%
	end if
	end if
	%>
</table>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form" method="post" action="">
	<tr class="tablebody">
		<td align="center"><%showpage totalremark,perpage,"admin_music.asp?action=remarklist&"%></td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：delremark()
'=功    能：删除文件评论
'==================================
sub delremark()
dim curpage
if request.querystring("page")<>"" then
	curpage=cint(request.querystring("page"))
else
	curpage=1
end if
remark_id=checksql("文件评论ID",request.querystring("id"),0,8)
sql="select * from wapls_remark where remark_id="&remark_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
response.redirect "?action=remarklist&page="&curpage&""
end sub
%>
<!--#include file="wapls_admin_bottom.asp"-->