deltype.asp

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

<!--#include file="articleconn.asp"-->
 <%
IF not(Session("KEY")="super") THEN
	response.redirect "error.asp?id=065"
	response.end
END IF
%>
 <%
dim rs,tsql
dim rst
typename=request("typename")	
 if request("caozuo")="del" then
            set rst=server.CreateObject("ADODB.RecordSet")
			rst.open "delete * from type where typeid="+request("typeid"),conn,1
			rst.close
			set rs=server.CreateObject("ADODB.RecordSet")
			rs.open "delete * from article where typeid="+request("typeid"),conn,1
			rs.close
	  end if   
response.redirect "typemanage.asp"
response.end
%>