<!-- #include file="conn.asp" -->
<!-- #include file="admin.asp" -->
<%call ling()
Call Head()
Call saycardd("分类修改结果")
 
IF KEY<>0 then
  Call Error("你的权限不足！")
  end if
  dim id,class1,lx,pid,br,img,url,active,opera,num,wmltxt,relid,vipin

        num=request.form("num")
        relid=request.form("relid")
		lid=request.form("lid")
        cent=request("cent")
        mm=request("mm")
        vipin=request("vipin")
		ids=request("ids")
        if mm="" then mm="0"
if num="" or IsNumeric(num)=False Then num=0

  if vipin="" or IsNumeric(vipin)=False Then vipin=0

    if cent="" or IsNumeric(cent)=False Then cent=0

  
        id=request.querystring("id")
		idd= int(request.QueryString("idd"))
if id="" or IsNumeric(id)=False Then Call Error("ID无效！")


        class1=request.form("class1")
if class1="" Then Call Error("栏目名称不能为空！")


        lx=request.form("lx")
		lxl=request("lxl")
if lx="" or IsNumeric(lx)=False then
  Call Error("类型无效！")
  end if

        pid=request.form("pid")
if pid="" or IsNumeric(pid)=False then
  Call Error("排序无效！")
  end if

        br=request.form("br")
if br="" or IsNumeric(br)=False then
  Call Error("换行无效！")
  end if
        img=request.form("img")
        url=request.form("url")
        wmltxt=request.form("wmltxt")
        active=request.form("active")
        opera=request.form("opera")
        set rs=server.createobject("adodb.recordset")
	sql="select * from class where classid="&id
	rs.open sql,conn,1,3
	    rs("num")=num
        rs("class")=class1
        rs("pid")=pid
        rs("br")=br
        rs("lx")=lx
        rs("img")=img
        rs("url")=url
        rs("relid")=relid
		rs("lid")=lid
        rs("cent")=cent
        rs("prentmm")=mm
        rs("vipin")=vipin
        rs("wmltxt")=wmltxt
        rs("active")=active
        rs("opera")=opera
		rs("ids")=ids
        
        rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=Nothing

response.write "修改成功!"
%>
<br/>----------<br/>
<%if id<>0 then %>
<a href="Clist.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;lx=<%=lx%>&amp;saytk=<%=saytk%>">[继续修改]</a><br/>
<%If lxl<>"" then%>
<a href="Clist.asp?sid=<%=sid%>&amp;id=<%=idd%>&amp;lx=<%=lxl%>&amp;lxl=<%=lxl%>&amp;saytk=<%=saytk%>">[栏目分类]</a><br/>
<%end If
end if
%>
<a href='class.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>[主站排版]</a><br/>
<a href="index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[后台管理]</a>
<%response.write""
call head3()%>