<!-- #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>|"
response.write "<a href='blog.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>日志</a>|"
response.write "<a href='user_info.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>档案</a><br/>"
response.write "－－－－－<br/>"&_
               "标题(54个字)<br/>"&_
               zonepost("blog_save.asp?sid="&sid&"&amp;saytk="&saytk&"")&_
               "<input name=""titt"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""54""/><br/>"&_
               "内容(限5000字符内)<br/>"&_
               "<input name=""txt"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""5000""/><br/>"

set rs=server.createobject("ADODB.Recordset")
rs.open"select id,zonerjflName from zonerjfl where userid="&myid&" order by id asc",conn,1,1
if rs("zonerjflName")="" then
response.write "请先<a href=""fladd.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">添加</a>分类:<br/>"
else
response.write "分类（<a href=""fladd.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">添加</a>）:<br/>"&_
               "<select name=""yc"" value="""&rs("id")&""">"
dim j
j=1
do while not rs.eof
 dim names
names=rs("zonerjflName")
if len(names)>10 then names=left(names,10)
Response.write "<option value="""&rs("id")&""">"&ubb(names)&"</option>"
j=j+1
rs.movenext
loop
Response.write "</select><br/>"
end if
rs.close
set rs=nothing
response.write "是否公开:"&_
               "<select name=""rc"" value=""0"">"&_
               "<option value=""0"">公开</option>"&_
               "<option value=""1"">秘密</option>"&_
               "</select><br/>"
if saytk=>2 then
Response.Write "<input type=""submit"" value=""发表日志""/></form><br/>"
else
response.write "<anchor>发表日志"&_
               "<go href=""blog_save.asp?sid="&sid&"&amp;saytk="&saytk&""" method=""post"" accept-charset=""utf-8"">"&_
               "<postfield name=""titt"" value=""$(titt)""/>"&_
               "<postfield name=""txt"" value=""$(txt)""/>"&_
               "<postfield name=""rc"" value=""$(rc)""/>"&_
               "<postfield name=""yc"" value=""$(yc)""/>"&_
               "</go></anchor><br/>"
end if
call zoneLast()
call headsay()
%>
