<% 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") cent=request("cent") mm=request("mm") vipin=request("vipin") if mm="" then mm="0" if num="" or IsNumeric(num)=False then num=0 end if if vipin="" or IsNumeric(vipin)=False then vipin=0 end if if cent="" or IsNumeric(cent)=False then cent=0 end if if relid="" or IsNumeric(relid)=False then num=0 end if id=request.querystring("id") if id="" or IsNumeric(id)=False then Call Error("ID无效！") end if class1=request.form("class1") if class1="" then Call Error("栏目名称不能为空！") end if lx=request.form("lx") 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("class")=class1 rs("pid")=pid rs("br")=br rs("lx")=lx rs("img")=img rs("url")=url rs("relid")=relid rs("cent")=cent rs("prentmm")=mm rs("vipin")=vipin rs("wmltxt")=wmltxt rs("active")=active rs("opera")=opera rs("num")=num rs.update rs.close set rs=nothing conn.close set conn=nothing response.write "修改成功!" %>
----------
<%if id<>0 then %> [栏目分类]
<%end if%> [栏目分类]
[后台管理]