typeadd.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
dim banzhu
dim typename
banzhu=request("banzhu")
typename=request("typename")
%>
	
<%set rst=server.CreateObject("ADODB.RecordSet")
rst.open "select * from type where type='"&typename&"'",conn,3,2
if NOT rst.EOF then
response.redirect "error.asp?id=076"
response.end
end if
set rst=server.CreateObject("ADODB.RecordSet")
if request("method1")="added"  then 
rst.open "select * from type",conn,3,2
rst.addnew
rst("type")=request("typename")
if banzhu<>"" then
rst("admin")=request("banzhu")
else
rst("admin")="无"
end if
rst.update
rst.close
end if 
response.redirect "typemanage.asp"
response.end

%>