<!--#include file="../Inc.asp"-->
<!--#include file="../zaixian.asp"-->
<%call head()
call saycarda("转载帖子")
tid=request.QueryString("tid")

dim vote,addvote,voteid,price,paicent,freyuan,bbsid
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from sell where yc=0 and id="&tid,conn,1,1
if rs.eof then 
  Call Error("<card title=""出错了""><p>没有这个帖子！")
else

if saytk=>2 then
	Response.write "<form name=""form"" method=""post"" action=""zfsave.asp?tid="&tid&"&amp;ppage="&ppage&"&amp;sid="&sid&"&amp;fid="&fid&"&amp;bbsid="&bbsid&"&amp;saytk="&saytk&""">"
end if

response.write "－－－－－<br/>"&_
               "标题(54个字)<br/>"&_
               "<input name=""zuanfa"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""54"" value="""&rs("name")&"""/><br/>"&_
               "内容(限5000字符内)<br/>"&_
               "<input name=""zuanfa1"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""5000"" value="""&rs("txt")&"""/><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=""/bbs/blog/fladd.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">添加</a>分类:<br/>"
else
response.write "分类（<a href=""/bbs/blog/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=""zfsave.asp?sid="&sid&"&amp;saytk="&saytk&""" method=""post"" accept-charset=""utf-8"">"&_
               "<postfield name=""zuanfa"" value=""$(zuanfa)""/>"&_
               "<postfield name=""zuanfa1"" value=""$(zuanfa1)""/>"&_
               "<postfield name=""rc"" value=""$(rc)""/>"&_
               "<postfield name=""yc"" value=""$(yc)""/>"&_
               "</go></anchor><br/>"
end if

rs.close
set rs=nothing


  end if



call headsay()

%>