delearticle.asp

文学网采用飞翔网的内核和界面作了较大程度的修改和美化 主要功能有： 1、界面美化 2、增加网文周榜和推荐作品 3、增加每个栏目图片和栏目的导读 4、增加推荐作品和会员文集 5、增加会员个人管理中心 6

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="articleconn.asp"-->
 <%
IF not(Session("KEY")="super" or session("KEY")="check" ) THEN
	response.redirect "error.asp?id=065"
	response.end
END IF
%>
<%
typename2=request("typename1")
mmm1=request("mmm")

if request("id")="" then
response.redirect "error.asp?id=070"
response.end
end if

%>
<%
   dim sql 
   dim rs
   set rs=server.createobject("adodb.recordset")
   sql="delete from article where newsid="&request("ID")
   rs.open sql,conn,1,1
   rs.close
   set rs=nothing  
   conn.close
   set conn=nothing
  response.redirect( "deleok.asp")
%>