<!-- #include file="../Inc.asp" -->
<!-- #include file="../ydzq.asp" -->
<!-- #include file="conn.asp" -->
<%Call Head()
call zonecard("添加分类","left")
if myid=clng(uid) then
response.write "<a href=""index_gl.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">个人中心</a>|"
end if
response.write "<a href=""index.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">主页</a>|"&_
               "<a href='blog.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>日志</a>|"&_
               "<a href='user_info.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>个人档</a><br/>"
dim Action
 Action=request("Action")
  if Action<>"" then
  dim zonerjflName
  zonerjflName=request.form("zonerjflName")
  if zonerjflName="" then
  Call Errorh("日志分类名称不能为空！")
  end if
  if len(zonerjflName)>4 then
  Call Errorh("日志分类名称最多4字")
  end if
  set rs=server.createobject("adodb.recordset")
  rs.open" select * from zonerjfl where userid="&myid&" and zonerjflName='"&zonerjflName&"'",conn,1,2
  
  rs.addnew
  rs("zonerjflName")=zonerjflName
  rs("userid")=myid
  rs("fltm")=now()
  rs.update
  rs.close
  set rs=nothing
  response.write"添加分类成功!"
  else
zonepost("fladd.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"")
Response.Write "输入日志分类名称（4个字内）:<br/><input name=""zonerjflName"" title=""名称"" emptyok=""false""/><br/>"
if saytk=>2 then
Response.Write "<input type=""hidden"" name=""action"" value=""ok""/>"&_
               "<input type=""submit"" value=""确认提交""/></form><br/>"
else
Response.Write "<anchor>确认提交"&_
               "<go href=""fladd.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""" method=""post"" accept-charset=""utf-8"">"&_
               "<postfield name=""zonerjflName"" value=""$(zonerjflName)""/>"&_ 
               "<postfield name=""action"" value=""ok""/> "&_ 
               "</go>"&_
               "</anchor>"
end if
end if
response.write"<br/>"
call zonelast()
call headsay()
%>                         