<!--#include file="../Inc.asp"-->
<!--#include file="../zaixian.asp"-->
<!--#include file="../forbbs.asp"-->

<%Call head()

rc=request("rc")
yc=request("yc")
zuanfa=request("zuanfa")
zuanfa1=forbbs(request("zuanfa1"))
if zuanfa1="" then
  Call Error("<card title=""转发失败""><p>内容不能为空！")
  end if
if len(zuanfa1)>5000 then
  Call Error("<card title=""转发失败""><p>内容字数不能大于500字！")
  end if

if zuanfa="" then
  Call Error("<card title=""转发失败""><p>标题不能为空！")
  end if


if maren(zuanfa1) >0 then
  Call Error("<card title=""转发失败""><p>请文明用语，不要讲粗话，谢谢！")
end if

if maren(zuanfa) >0 then
  Call Error("<card title=""转发失败""><p>请文明用语，不要讲粗话，谢谢！")
end if


set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [zonerj]",conn,1,2
rs.addnew
rs("uid")=myid
rs("tit")=zuanfa
rs("txt")=zuanfa1
rs("rc")=rc
rs("yc")=yc
rs("tm")=now()
rs.update
rs.close
set rs=Nothing
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.open"select zoneyulou_tm,zoneyulou_a from [zone] where [zoneid]="& myid,conn,1,1
zoneyulou_tm=rs2("zoneyulou_tm")
zoneyulou_a=rs2("zoneyulou_a")
if zoneyulou_tm<>date() then
conn.Execute("update zone set zoneyulou_tm='"&date()&"',zoneyulou = zoneyulou+3,zoneyulou_a = 3  Where zoneid=" & myid)
else
if zoneyulou_a>=8 then
conn.Execute("update zone set zoneyulou=zoneyulou,zoneyulou_a = 8  Where zoneid=" & myid)
else
if zoneyulou_a+3 >= 8 then
conn.Execute("update zone set zoneyulou = zoneyulou+zoneyulou_a+3-7,zoneyulou_a = 8  Where zoneid=" & myid)
else
conn.Execute("update zone set zoneyulou = zoneyulou+3,zoneyulou_a = zoneyulou_a+3  Where zoneid=" & myid)
end if
end if
end if
rs2.close
set rs2=Nothing
'提取内容
dim rst,id
set rst=Server.CreateObject("ADODB.Recordset")
rst.open"select top 1 ID,tit from [zonerj] order by id desc",conn,1,1
id=rst("id")
rst.close
set rst=nothing
dim rsfrdt
set rsfrdt=Server.CreateObject("ADODB.Recordset")
rsfrdt.open"select * from frzonedt",conn,1,2
rsfrdt.addnew
rsfrdt("txt")="[url=index.asp?uid="&myid&"&amp;saytk=[saytk]&amp;sid=[sid]]"&myni&"[/url]"
rsfrdt("fgid")=myid
rsfrdt("rjid")=id
rsfrdt("rc")=1
rsfrdt("htm")=now()
rsfrdt.update
rsfrdt.close
set rsfrdt=nothing
conn.close
set conn=nothing
conn.execute("insert into sqdt(shijian,dz)values('[url=/bbs/uinfo.asp?id="&myid&"&amp;saytk="&saytk&"&amp;sid=[sid]]"&myni&"[/url]转载了帖子"&zuanfa&"')")


conn.close
set conn=nothing

call saycarda("发布成功")

response.write""&zuanfa&"<br/>转发成功"

response.write "<a href='/bbs/blog/?uid="&myid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>去搏客查看</a><br/>"

%>
<!--#include file="../../bbs/fanhui.asp"-->
<%
call headsay()
%>

