action.asp

功能介绍： 文章管理

 <!--#include file="../function/tablefunction.asp" -->
  <!--#include file="lib.asp" -->
  <!--#include file="../function/ubbfunction.asp" -->
  <!--#include file="../function/function.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
	set msmax=new myclass
	action=request.querystring("action")
	Classid=request.querystring("classid")
	
	if action="delRecord" then
		DelRs=msmax.DelRecord("ArticleClass","ArticleClassid",classid,"Article_class.asp")
	end if	
%>
	<%
		'-----------------文章编辑更新
		if action="articleEdit" then
		articleid=request.querystring("articleid")
  		filepath=session("filepath")
		'dim msmax1
		'set msmax1=new myclass
		set addRs=server.createobject("adodb.recordset")
		sql="select siteName,blogtitle,myimg,realname,netname from website"
		set rs=db.execute(sql)
		sitename=rs("siteName")
		blogtitle=rs("blogtitle")
		myimg=rs("myimg")
		realname=rs("realname")
		netname=rs("netname")
		rs.close
		set rs=nothing
		'strsql="select Article.ClassName,Article.articleid,Article.summary,Article.title,Article.KeyWord,Article.FilePath,Article.content,Article.Index_pic,Template.HTML  from article,Template where Article.articleid="&articleid
		strsql="select * from article where articleid="&articleid
		addRs.open strsql,db,0,2
		'Template_Code=addRs("HTML")
		
		set fs=createobject("scripting.filesystemobject")
		set ts=fs.opentextfile(server.mappath("../../article/template.html"))
		Template_Code=ts.readall
		
		ClassName=request.form("ClassName")
		title=request.form("title")
		KeyWord=request.form("KeyWord")
		Summary=UBBCode(request.form("Summary"))
		Index_pic=request.form("Index_pic")	
		content=UBBCode(request.form("content"))
		if index_pic<> "" then
			index_pic="<br/><a href="&index_pic&" target='_blank'><img src="&index_pic&" width='500' onload='changeImg(this,600)' border=0 /></a>"
		content=index_pic&"<br/>"&content
		'addRs.addnew
		end if
		addRs("content")=request.form("content")
		addRs("summary")=Summary
		addRs("className")=className
		addRs("title")=title
		addRs("Index_pic")=request.form("Index_pic")	
		addRs("KeyWord")=KeyWord
		addRs("FilePath")=filePath	
		addRs("subdate")=now()		
		
		Template_Code=replace(Template_Code,"${siteName}",sitename)
		Template_Code=replace(Template_Code,"${blogtitle}",blogtitle)
		Template_Code=replace(Template_Code,"${myimg}",myimg)
		Template_Code=replace(Template_Code,"${realname}",realname)
		Template_Code=replace(Template_Code,"${netname}",netname)		
		Template_Code=replace(Template_Code,"${Title}",title)
		Template_Code=replace(Template_Code,"${KeyWord}",KeyWord)
		Template_Code=replace(Template_Code,"${Summary}",summary)
		Template_Code=replace(Template_Code,"${Content}",content)
		Template_Code=replace(Template_Code,"${ClassName}",ClassName)
		Template_Code=replace(Template_Code,"${SubDate}",Now())	
		Template_Code=replace(Template_Code,"${articleid}",articleid)	
		set FSO=server.CreateObject("Scripting.fileSystemObject")
		'FSO.createfolder(server.mappath(folder))
		set fout=fso.createtextfile(server.MapPath(filepath))
		fout.writeline Template_Code
		fout.close
		addRs.update%>
	<style type="text/css">
<!--
.STYLE1 {font-weight: bold}
-->
    </style>
	
		<table width="100%" border="3" cellpadding="5" cellspacing="5" bordercolor="#182683" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" bgcolor="#EDF3FA">
 	 <tr>
  	  <td colspan="3"><div align="center" class="STYLE1" style="color: #FF0000;">编辑成功!Very Good!! </div></td>
 	 </tr>
	  <tr>
  	  <td><div align="center"><a href="Article_add.asp"><strong>发布文章</strong></a></div></td>
				<td><div align="center"><a href="article_edit.asp"><strong>返回</strong></a></div></td>
				<td><div align="center"><a href="../../<%=filepath%>" target="_blank"><strong>查看</strong></a></div></td>
  </tr>
</table>
<%		db.close
		set db=nothing		
	end if   
 %>
		
	
	<%
		'------------------------按钮删除记录
		if action="butdel" then
			articleid=request.form("myselect")
			articleid=Replace(articleid," ","")			
			strsql="delete  from article where articleid in (" & articleid & ")"
			Response.Write strSql
			db.execute(strsql)			
			'response.write articleid
			response.redirect "article_edit.asp?pageno="&session("pageno")			
		end if
		
	%>
		<%
		'------------------------按钮删除评论记录
		if action="butdelco" then
			commentid=request.form("myselect")
			commentid=Replace(commentid," ","")			
			'response.write commentid
			'coid=split(commentid,",")
			'coNum=ubound(coid)
			'response.write conum
			'for i=1 to conum				
				'response.write conum
				'response.write coid(i)&"<br/>"
				'sql1="update article set renum=renum-1 where articleid="& request.form("articleid"&i)
				'db.execute(sql1)
			'next
			strsql="delete  from articlecomment where commentid in (" & commentid & ")"
			'sql="update article set renum=renum-1 where articleid in (" & articleid &")"
			'Response.Write strSql
			'db.execute(sql)
			db.execute(strsql)			
			'response.write articleid
			response.redirect "article_comment.asp?pageno="&session("pageno")			
		end if
		
	%>
	
  	<%
	if action="delArticle" then
		ArticleID=request.QueryString("ArticleID")
		DelRs=msmax.DelRecord("Article","ArticleID",ArticleID,"Article_edit.asp?pageno="&session("pageno"))
	end if
	%>
  	<%
	if action="delComment" then
		commentid=request.QueryString("commentid")
		articleid=request.QueryString("articleid")
		sql="update article set renum=renum-1 where articleid="&articleid
		db.execute(sql)
		'sql1="select renum from article where articleid="&articleid
		'set rs=db.execute(sql1)
		'response.write rs("renum")
		'response.write rs("renum")
		DelRs=msmax.DelRecord("Articlecomment","commentid",commentid,"Article_comment.asp?pageno="&session("pageno"))
		
	end if
	%>
   <%
   	'-----------添加分类模块
	if request.querystring("action")="add" then
			addRs=msmax.addRecord("ArticleClass","ClassName,ClassIntro","article_class.asp")
		addrs.close
		set addrs=nothing
		db.close
		set db=nothing
	end if   
   %>
   
 
  <%
   	'-----------添加表内容模块
	if request.querystring("action")="articleAdd" then	
		folder="../../article/"
		set addRs=server.createobject("adodb.recordset")
		sql="select siteName,blogtitle,myimg,realname,netname from website"
		set rs=db.execute(sql)
		sitename=rs("siteName")
		blogtitle=rs("blogtitle")
		myimg=rs("myimg")
		realname=rs("realname")
		netname=rs("netname")
		rs.close
		set rs=nothing
		'strsql="select Article.ClassName,Article.articleid,Article.summary,Article.title,Article.KeyWord,Article.FilePath,Article.content,Article.Index_pic,Template.HTML  from article,Template"
		strsql="select * from article"
		addRs.open strsql,db,0,2
		set fs=createobject("scripting.filesystemobject")
		set ts=fs.opentextfile(server.mappath("../../article/template.html"))
		Template_Code=ts.readall
		'Template_Code=addRs("HTML")
		
		ClassName=request.form("ClassName")
		title=request.form("title")
		KeyWord=request.form("KeyWord")
		Summary=UBBCode(request.form("Summary"))
		Index_pic=request.form("Index_pic")	
		content=UBBCode(request.form("content"))
		if index_pic<> "" then
			index_pic="<br/><a href="&index_pic&" target='_blank'><img src="&index_pic&"  border='0' /></a>"
			content=index_pic&"<br/>"&content
		end if
		addRs.addnew
		addRs("content")=request.form("content")
		addRs("summary")=Summary
		addRs("className")=className
		addRs("title")=title
		addRs("Index_pic")=request.form("Index_pic")	
		addRs("KeyWord")=KeyWord		
		articleid=addRs("articleid")	
		fname=articleid&".html"
		filePath=folder&fname	
		addRs("subdate")=now()	
		addRs("FilePath")=filePath	
		Template_Code=replace(Template_Code,"${siteName}",sitename)
		Template_Code=replace(Template_Code,"${blogtitle}",blogtitle)
		Template_Code=replace(Template_Code,"${myimg}",myimg)
		Template_Code=replace(Template_Code,"${realname}",realname)
		Template_Code=replace(Template_Code,"${netname}",netname)
		Template_Code=replace(Template_Code,"${Title}",title)
		Template_Code=replace(Template_Code,"${KeyWord}",KeyWord)
		Template_Code=replace(Template_Code,"${Summary}",summary)
		Template_Code=replace(Template_Code,"${Content}",content)
		Template_Code=replace(Template_Code,"${ClassName}",ClassName)
		Template_Code=replace(Template_Code,"${SubDate}",Now())
		Template_Code=replace(Template_Code,"${articleid}",articleid)
		set FSO=server.CreateObject("Scripting.fileSystemObject")
		'FSO.createfolder(server.mappath(folder))
		set fout=fso.createtextfile(server.MapPath(filepath))
		fout.writeline Template_Code
		fout.close
		addRs.update
		
		%>
		<table width="100%" border="3" cellpadding="5" cellspacing="5" bordercolor="#182683" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" bgcolor="#EDF3FA">
 	 <tr>
  	  <td colspan="2"><div align="center" class="STYLE1" style="color: #FF0000;">发表成功!Very Good!! </div></td>
 	 </tr>
	  <tr>
  	  <td><div align="center"><a href="Article_add.asp"><strong>继续</strong></a></div></td>
				<td><div align="center"><a href="../../<%=filepath%>" target="_blank"><strong>查看</strong></a></div></td>
  </tr>
</table>
<%
		db.close
		set db=nothing		
	end if   
   %>
<%
   '-----------更新记录模块
   if request.querystring("action")="update" then
   		articleCLassID=request.form("articleCLassID")		
		'nameid=request.querystring("nameid")
		total=request.Form("total")
		'response.Write "nameid="&total&"<br/>"
		for i=1 to total			
			articleCLassID=request.form("articleCLassID"& i)
			ClassName=request.form("ClassName"& i)
			ClassIntro=request.form("ClassIntro"& i)	
			desc=request.form("index"& i)	
			'response.Write desc
			
strsql="update articleClass set ClassName='"& ClassName &"',ClassIntro='"& ClassIntro &"',[index]="& desc &" where ArticleClassID="&ArticleClassID
			db.execute(strsql)
			next
	response.redirect "article_class.asp"

	end if
   %>