action.asp

功能介绍： 文章管理

 <!--#include file="../function/tablefunction.asp" -->
  <!--#include file="../function/function.asp" -->
 <!--#include file="../Conn.Asp" -->
  <%
  	  	'-----------删除记录模块
		Set db=Server.CreateObject("Adodb.Connection")
		connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../data/msmax.mdb")
		db.open connstr
	dim action,classid,delRs,msmax,i
	set msmax=new myclass
	action=request.querystring("action")
	Classid=request.querystring("classid")
'	if action="delRecord" then
'		DelRs=msmax.DelRecord("musicClass","musicClassid",classid,"music_class.asp")
'	end if	
%> 
	<%
   	'-----------添加分类记录模块
	if action="add" then
			addRs=msmax.addRecord("MusicClass","ClassName,ClassIntro","music_class.asp")
		addrs.close
	end if   
   %> 

  <% 	
  '---------------添加具体歌曲内容
  if action="MusicAdd" then
		'content=request.form("content")
		'addRs=msmax.addRecordCon("Music","MusicTitle,Lyric,URL,ClassName","ok.html")
'		addRs.close
			dim strsql,rs
		musicid=request.querystring("musicid")
		set rs=server.createobject("adodb.recordset")
		strsql="select * from music"
		rs.open strsql,db,0,2
		rs.addnew
		rs("MusicTitle")=request.form("MusicTitle")
		rs("Lyric")=HTMLEncode(request.form("Lyric"))
		rs("URL")=request.form("URL")
		rs("ClassName")=request.form("ClassName")
		rs.update
		response.redirect "ok.html"
	end if 	
	%>	
<% 	
  '---------------修改具体歌曲内容
  if action="MusicEdit" then
		'content=request.form("content")
		dim strsql1,rs1
		musicid=request.querystring("musicid")
		set rs1=server.createobject("adodb.recordset")
		strsql1="select * from music where musicid="&musicid
		rs1.open strsql1,db,0,2
		rs1("MusicTitle")=request.form("MusicTitle")
		rs1("Lyric")=request.form("Lyric")
		rs1("URL")=request.form("URL")
		rs1("ClassName")=request.form("ClassName")
		rs1.update
		response.redirect "ok.html"
		'addRs=msmax.addRecordCon("Music","MusicTitle,Lyric,URL,ClassName","ok.html")
		'addRs.close
	end if 	
	%>
<%
	if action="delMusic" then
		MusicID=request.QueryString("MusicID")
		DelRs=msmax.DelRecord("music","MusicID",MusicID,"music_edit.asp?pageno="&session("pageno"))
	end if
	%>
	<%
	if action="delRecord" then
		musicClassID=request.QueryString("classid")
		DelRs=msmax.DelRecord("musicClass","musicClassID",musicClassID,"music_class.asp")
	end if
	%>
	   	<%
		'------------------------按钮删除记录
		if action="butdelMusicComment" then
			Musiccommentid=request.form("myselect")
			Musiccommentid=Replace(Musiccommentid," ","")			
			strsql="delete  from Musiccomment where Musiccommentid in (" & Musiccommentid & ")"
			Response.Write strSql
			db.execute(strsql)			
			'response.write articleid
			response.redirect "music_comment.asp?pageno="&session("pageno")			
		end if
%>
	<%
	if action="delMusicComment" then
		Musiccommentid=request.QueryString("Musiccommentid")
		DelRs=msmax.DelRecord("MusicComment","Musiccommentid",Musiccommentid,"music_comment.asp?pageno="&session("pageno"))
	end if
%>
	
  	<%
		'------------------------按钮删除记录
		if action="butdel" then
			musicid=request.form("myselect")
			musicid=Replace(musicid," ","")			
			strsql="delete  from music where musicid in (" & musicid & ")"
			Response.Write strSql
			db.execute(strsql)			
		'esponse.write musicid
		   response.redirect "music_edit.asp?pageno="&session("pageno")			
		end if
		
	%>
   <%
   '--------------------以下还有点问题
   	if action="update" then
	total=request.form("total")
	for i=1 to total				
		musicClassID=request.form("musicClassID"& i)
		ClassName=request.form("ClassName"& i)
		ClassIntro=request.form("ClassIntro"& i)	
		desc=request.form("index"& i)				
		strsql="update musicClass set ClassName='"& ClassName &"',ClassIntro='"& ClassIntro &"',[index]="& desc &" where musicClassID="&musicClassID
		db.execute(strsql)
	next	
	end if
  	response.redirect "music_class.asp"
	
	
   %>