typechang.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,banzhu
banzhu=request("banzhu")
if  request("banzhu")="" then
    banzhu="无"
end if
if request("change")="" then
response.redirect "error.asp?id=070"
response.end
end if
if request("typeid")="" then
response.redirect "error.asp?id=075"
response.end
end if
if request("typename1")="" then
response.redirect "error.asp?id=074"
response.end
end if

if request("change")="modify" then
    set rst=server.CreateObject("ADODB.RecordSet") 
    rst.open "select * from type where typeid="+request("typeid"),conn,1,3
    if rst.EOF then 
    response.redirect "error.asp?id=073"
    response.end
    end if

	rst("type")=request("typename1")
        rst("admin")=banzhu
	rst.Update	
	rst.close
	set rs=server.CreateObject("ADODB.RecordSet")
	rs.open "select * from article where typeid="+request("typeid"),conn,1,3
	rs("typename")=request("typename1")	
	rs.Update 
end if
	rs.close
response.redirect "typemanage.asp"
response.end
%>