action.asp

功能介绍： 文章管理

 <!--#include file="../function/tablefunction.asp" -->
	 <%
   	'-----------删除记录模块
	dim action,classid,delRs,msmax,i
	i=0
	set msmax=new myclass
	action=request.querystring("action")
	Classid=request.querystring("classid")
	if action="delRecord" then
		DelRs=msmax.DelRecord("LinkClass","LinkClassid",classid,"link_class.asp")
	end if	
	%>  
	<%
	if action="linkEdit" then
		linkid=request.QueryString("linkid")
		set rs=server.CreateObject("adodb.recordset")
		strsql="select * from link where linkid="&linkid
		rs.open strsql,db,0,2
		rs("linktitle")=request.Form("LinkTitle")
		rs("logo")=request.Form("logo")
		rs("url")=request.Form("url")
		rs.update
		response.Redirect "ok.html"
	end if
		
	%>
	   <%
   	'-----------添加记录模块
	if request.querystring("action")="add" then
			addRs=msmax.addRecord("LinkClass","ClassName,ClassIntro","link_class.asp")
		addrs.close
	end if  
	
		if request.querystring("action")="linkadd" then
				set rs=server.CreateObject("adodb.recordset")
				strsql="select * from link"
				rs.open strsql,db,0,2
				rs.addnew
				rs("linkTitle")=request.form("linktitle")
				rs("classname")=request.Form("classname")
				rs("url")=request.Form("url")
				rs("logo")=request.form("logo")
				rs.update
				rs.close
				set rs=nothing
				%>
	   <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="link_add.asp"><strong>继续</strong></a></div></td>
				<td><div align="center"><a href="link_edit.asp"><strong>返回</strong></a></div></td>
				<td><div align="center"><a href="../../<%=filepath%>" target="_blank"><strong>查看</strong></a></div></td>
  </tr>
</table>
						<%
			'addRs=msmax.addRecord("Link","LinkTitle,ClassName,URl,Logo","link_add.asp")
		'addrs.close
	end if  
   %>
    <%'----------赵链删除
	if action="dellink" then
		linkid=request.QueryString("linkid")
		DelRs=msmax.DelRecord("link","linkid",linkid,"link_edit.asp?pageno="&session("pageno"))
	end if
	%> 
	
		<%
		'------------------------按钮删除记录
		if action="butdel" then
			linkid=request.form("myselect")
			linkid=Replace(linkid," ","")			
			strsql="delete  from link where linkid in (" & linkid & ")"
			Response.Write strSql
			db.execute(strsql)			
			'response.write articleid
			response.redirect "Link_edit.asp?pageno="&session("pageno")			
		end if
%>	 
<%
   '-----------更新记录模块
   if request.querystring("action")="update" then
   		linkClassID=request.form("linkClassID")		
		'nameid=request.querystring("nameid")
		total=request.Form("total")
		
		for i=1 to total			
			linkClassID=request.form("linkClassID"& i)
			ClassName=request.form("ClassName"& i)
			ClassIntro=request.form("ClassIntro"& i)	
			desc=request.form("index"& i)	
			'response.Write linkClassID
			
	strsql="update linkClass set ClassName='"& ClassName &"',ClassIntro='"& ClassIntro &"',[index]="& desc &" where linkClassID="&linkClassID
			db.execute(strsql)
			next
	response.redirect "link_class.asp"

	end if
   %>