<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<!--#include file="../../inc/char.asp"-->
<%
call head()
'function uubb(str)
'	str=trim(str)
'	if IsNull(str) then exit function
'	str=replace(str,"&","&amp;")
'	str=replace(str,"<","&lt;")
'	str=replace(str,">","&gt;")
'	str=replace(str,"'","&apos;")
	'str=replace(str,"""","&quot;")
'	uubb=str
'end function
Call saycardd("分类修改结果")
IF KEYs<>1 then
  Call Error("你的权限不足！")
  end if
  dim id,class1,lx,pid,br,img,url,active,opera,num,wmltxt,relid,vipin

        num=request("num")
        relid=request("relid")
        cent=request("cent")
        mm=request("mm")
        vipin=request("vipin")
		password=request.form("password")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM users where id="&myid,conn,1,1
if rs("mm")<>password then

 Call Error(" 密码不正确")

end if
  rs.close
  set rs=Nothing
        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("img")
        url=request("url")
        wmltxt=request("wmltxt")
        active=request("active")
        opera=request("opera")
		dim conngamepb,conngamepbstr
conngamepbstr="DBQ="+server.mappath("/shujuku/chajianshujuku/saytk_pb/saytk_pb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conngamepb=server.createobject("ADODB.connECTION")
conngamepb.open conngamepbstr
        set rs=server.createobject("adodb.recordset")
	sql="select * from gameclass where classid="&id
	rs.open sql,conngamepb,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 "修改成功!"
%>
<br/>----------<br/>
<%if id<>0 then %>
<a href="Clist.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;lx=<%=lx%>&amp;saytk=<%=saytk%>">[栏目管理]</a><br/>
<%end if
%>
<a href='class.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>[排版中心]</a><br/>
<a href="/bbs/show.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">返回我的地盘</a><br/>
<%
call head1()%>