<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->

<%call head()
if myid<>0 then
set rsxx1=Server.CreateObject("ADODB.Recordset")
rsxx1.open"select * from [Users] where [id]="&myid,conn,1,1
fftima=DateDiff("s", rsxx1("regtime"), now())
if fftima<abs(ffftima) then
  Call Error("<card title=""出错""><p>注册未到"&abs(ffftima)/60&"分钟，不许发帖！")
  end if
end if

Dim ss
randomize timer
ss=Left(Int((99999)*Rnd +10000),4)

dim bbsid,cw,up
path=usb(request("path"))
up=request.querystring("up")
bbsid=usb(request("bbsid"))

If bbsid="" Then bbsid=usb(request("bbsidoo"))



if bbsid="" or Isnumeric(bbsid)=False then
  Call Error("<card title=""出错""><p>ID无效！")
  end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select sellkf from ydbbs where id="&bbsid,conn,1,1
if rs.eof then
  Call Error("<card title=""出错""><p>无此论坛！")
end if

if rs("sellkf")=1 then 
  Call Error("<card title=""出错""><p>本版禁止发帖！")
end if
rs.close
set rs=nothing
Sub Fortxtsell
if bbsid<>"" then
set rs=server.createobject("adodb.recordset")
rs.open "select bbsid,strsell,strall from hmd where bbsid="&bbsid&" and guliid="&myid,conn,1,1
if not rs.eof then
if rs("strsell")>0 then
 Call Error("<card title=""出错""><p>你在本版已被禁发帖！")
  end if
if rs("strall")>0 then
 Call Error("<card title=""出错""><p>你在本版已被加黑！")
  end if
end if
rs.close
set rs=nothing
end if

set rs=server.createobject("adodb.recordset")
rs.open "select bbsid,strsell,strall from hmd where bbsid=0 and guliid="&myid,conn,1,1
if not rs.eof then
if rs("strsell")>0 then
 Call Error("<card title=""出错""><p>你已被禁发帖！")
  end if
if rs("strall")>0 then
 Call Error("<card title=""出错""><p>你已被加黑！")
  end if
end if
rs.close
set rs=nothing
end Sub
CALL Fortxtsell
Call saycarda("发表新帖")

if saytk<="1" or saytk="" then 




Response.write "标题:<input name=""title"&tt&""" emptyok=""true"" maxlength=""30"" value=""""/><br/>"
if path<>"" then
Response.write "内容:<input name=""txt"&tt&""" emptyok=""true"" value="""&path&"""/><br/>"
else
Response.write "内容:<input name=""txt"&tt&""" emptyok=""true"" value=""""/><br/>"
end if
if up=3 then
Response.write "收费"
Response.write "<input name=""cent"" emptyok=""true"" value=""0"" size=""8""/>"&getcent&"<br/>"
end if
if up=2 then
Response.write "投票选项用逗号,隔开<br/>"
Response.write "选项:<input name=""vote"" emptyok=""true"" value=""""/><br/>"
end if

if up=4 then
Response.write "隐藏:<input name=""reContent"" emptyok=""true"" value=""""/><br/>"
end if
if up=5 then
Response.write "派币数量"&chr(13)
Response.write "<br/><input emptyok=""false"" name=""centnums"" value=""0""/>"&chr(13)

Response.write "<br/>回复奖"&chr(13)
Response.write "<input emptyok=""false"" name=""saytkcent"" value=""0"" size=""10""/><br/>"&chr(13)
end if
Response.write "引用表情:"
response.write "<select title='选择表情' name='face' value='0'>"&chr(13)
response.write "<option title='表情' value='0'>表情</option>"&chr(13)
response.write "<option title='微笑' value='1'>微笑</option>"&chr(13)
response.write "<option title='哭泣' value='2'>哭泣</option>"&chr(13)
response.write "<option title='调皮' value='3'>调皮</option>"&chr(13)
response.write "<option title='脸红' value='4'>脸红</option>"&chr(13)
response.write "<option title='害羞' value='5'>害羞</option>"&chr(13)
response.write "<option title='生气' value='6'>生气</option>"&chr(13)
response.write "<option title='偷笑' value='7'>偷笑</option>"&chr(13)
response.write "<option title='流汗' value='8'>流汗</option>"&chr(13)
response.write "<option title='我倒' value='9'>我倒</option>"&chr(13)
response.write "<option title='得意' value='10'>得意</option>"&chr(13)
response.write "<option title='眦牙' value='11'>眦牙</option>"&chr(13)
response.write "<option title='疑问' value='12'>疑问</option>"&chr(13)
response.write "<option title='睡觉' value='13'>睡觉</option>"&chr(13)
response.write "<option title='好色' value='14'>好色</option>"&chr(13)
response.write "<option title='口水' value='15'>口水</option>"&chr(13)
response.write "<option title='敲头' value='16'>敲头</option>"&chr(13)
response.write "<option title='可爱' value='17'>可爱</option>"&chr(13)
response.write "<option title='猪头' value='18'>猪头</option>"&chr(13)
response.write "<option title='YEAH' value='19'>YEAH</option>"&chr(13)
response.write "<option title='玫瑰' value='20'>玫瑰</option>"&chr(13)
response.write "</select>"&chr(13)
response.write "<br/>帖子类型::"
response.write "<select name=""fs"" value=""1"">"
response.write "<option value=""1"">综合帖</option>"
response.write "<option value=""2"">经验帖</option>"
response.write "<option value=""3"">分享帖</option>"
response.write "<option value=""4"">提问帖</option>"
response.write "</select><br/>"




response.write "<anchor title=""发表帖子"">[确定发表]"
response.write "<go href=""writeTextApp.asp?bbsid="&bbsid&"&amp;up="&up&"&amp;sid="&sid&"&amp;saytk="&saytk&""" method=""post"" accept-charset=""utf-8"">"

if up=2 then
response.write "<postfield name=""title"" value=""$(title"&tt&")""/>"
response.write "<postfield name=""txt"" value=""$(txt"&tt&")""/>"
response.write "<postfield name=""face"" value=""$(face)""/>"
response.write "<postfield name=""vote"" value=""$(vote)""/>"
response.write "<postfield name=""fs"" value=""$(fs)""/>"
elseif up=3 then
response.write "<postfield name=""title"" value=""$(title"&tt&")""/>"
response.write "<postfield name=""txt"" value=""$(txt"&tt&")""/>"
response.write "<postfield name=""cent"" value=""$(cent)""/>"
response.write "<postfield name=""face"" value=""$(face)""/>"
response.write "<postfield name=""fs"" value=""$(fs)""/>"
elseif up=4 then
response.write "<postfield name=""title"" value=""$(title"&tt&")""/>"
response.write "<postfield name=""txt"" value=""$(txt"&tt&")""/>"
response.write "<postfield name=""reContent"" value=""$(reContent)""/>"
response.write "<postfield name=""face"" value=""$(face)""/>"
response.write "<postfield name=""fs"" value=""$(fs)""/>"
elseif up=5 then
response.write "<postfield name=""title"" value=""$(title"&tt&")""/>"
response.write "<postfield name=""txt"" value=""$(txt"&tt&")""/>"
response.write "<postfield name=""centnums"" value=""$(centnums)""/>"
response.write "<postfield name=""saytkcent"" value=""$(saytkcent)""/>"
response.write "<postfield name=""face"" value=""$(face)""/>"
response.write "<postfield name=""fs"" value=""$(fs)""/>"
else
response.write "<postfield name=""title"" value=""$(title"&tt&")""/>"
response.write "<postfield name=""txt"" value=""$(txt"&tt&")""/>"
response.write "<postfield name=""face"" value=""$(face)""/>"
response.write "<postfield name=""fs"" value=""$(fs)""/>"
end if
response.write "</go></anchor><br/>"

else

%>
<form name="form" method="post" action="writeTextApp.asp?bbsid=<%=bbsid%>&amp;up=<%=up%>&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>">
<%If saytk=100 Then Response.write "<div class=""path"">"%>
标题:(30字以内)<br/>
<%If saytk=100 Then Response.write "</div>"%>
<input name="title" emptyok="true" maxlength="30" value="" maxlength="30" size="32"/><br/>
<%
If saytk=100 Then Response.write "</div><div class=""path"">"
Response.write "内容:(5000字以内)<br/>"
If saytk=100 Then Response.write "</div><div class=""plbox""><dl class=""plcon"">"
if path<>"" then
Response.write "<textarea name=""txt"" emptyok=""true"" rows=""15"" cols=""29"" value="""&path&"""></textarea><br/>"
else
Response.write "<textarea name=""txt"" emptyok=""true"" rows=""15"" cols=""29"" value=""""></textarea><br/>"
end If
%>

引用表情:<select title='选择表情' name='face' value='0'>
<option title='表情' value='0'>表情</option>
<option title='微笑' value='1'>微笑</option>
<option title='哭泣' value='2'>哭泣</option>
<option title='调皮' value='3'>调皮</option>
<option title='脸红' value='4'>脸红</option>
<option title='害羞' value='5'>害羞</option>
<option title='生气' value='6'>生气</option>
<option title='偷笑' value='7'>偷笑</option>
<option title='流汗' value='8'>流汗</option>
<option title='我倒' value='9'>我倒</option>
<option title='得意' value='10'>得意</option>
<option title='眦牙' value='11'>眦牙</option>
<option title='疑问' value='12'>疑问</option>
<option title='睡觉' value='13'>睡觉</option>
<option title='好色' value='14'>好色</option>
<option title='口水' value='15'>口水</option>
<option title='敲头' value='16'>敲头</option>
<option title='可爱' value='17'>可爱</option>
<option title='猪头' value='18'>猪头</option>
<option title='YEAH' value='19'>YEAH</option>
<option title='玫瑰' value='20'>玫瑰</option>
</select>
<br/>
帖子类型::<select name="fs" value="1"><option value="1">
综合帖</option><option value="2">
经验帖</option><option value="3">
分享帖</option><option value="4">
提问帖</option></select>
<br/>
<%

If saytk=100 Then Response.write "</div></dl>"
if up=3 then
Response.write "收费"
Response.write "<input name=""cent"" emptyok=""true"" value=""0"" size=""8""/>"&getcent&"<br/>"
end if
if up=2 then
Response.write "投票选项用英文逗号,隔开<br/>"
Response.write "选项:<input name=""vote"" emptyok=""true"" value=""""/><br/>"
end if

if up=4 then
Response.write "隐藏:(150字以内)<br/><input name=""reContent"" emptyok=""true"" value=""""/><br/>"
end if
if up=5 then
Response.write "派币数量:(100万以内)"&chr(13)
Response.write "<br/><input emptyok=""false"" name=""centnums"" value=""0""/>"&chr(13)

Response.write "<br/>回复奖"&chr(13)
Response.write "<input emptyok=""false"" name=""saytkcent"" value=""0"" size=""10""/><br/>"&chr(13)
end If

response.write "<input type=""hidden"" name=""num22"" value="""&ss&"""/>"

%><input type="submit" name="Submit" value="发表帖子"></form><br/><%

If saytk=100 Then response.write "<div class=""ad""></div></div><div class=""content"">"
end if
response.write "<a href=""writetext.asp?bbsid="&bbsid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">发表普通帖</a><br/>"
if saytk<2 then
response.write "<a href=""file.asp?bbsid="&bbsid&"&amp;sid="&sid&"&amp;vsaytk="&saytk&""">发表文件帖</a><br/>"
else
response.write "<a href=""file.asp?bbsid="&bbsid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">发表文件帖</a><br/>"
end if
response.write "<a href=""writetext.asp?bbsid="&bbsid&"&amp;sid="&sid&"&amp;saytk="&saytk&"&amp;up=2"">发表投票帖</a><br/>"
response.write "<a href=""writetext.asp?bbsid="&bbsid&"&amp;sid="&sid&"&amp;saytk="&saytk&"&amp;up=3"">发表收费帖</a><br/>"
response.write "<a href=""writetext.asp?bbsid="&bbsid&"&amp;sid="&sid&"&amp;saytk="&saytk&"&amp;up=4"">发表隐藏帖</a><br/>"
response.write "<a href=""writetext.asp?bbsid="&bbsid&"&amp;sid="&sid&"&amp;saytk="&saytk&"&amp;up=5"">发表派币帖</a><br/>"
response.write "提示:内容换行用\\ 内容分页用||<br/>"
response.write "回复可见:(re)隐藏部分内容(/re)<br/>"
response.write "付费可见:(buy="&getcent&"数)付费可见内容(/buy)<br/>"
response.write "彩色帖子:(d=admin)帖子内容(/d)<br/>"
response.write "彩字帖子:(cz2.0=ff0099)帖子内容(/cz2.0)<br/>"
If saytk=100 Then response.write "</div><div class=""path"">"
response.write "<a href=""board.asp?bbsid="&bbsid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">返回本版</a><br/>"
If saytk=100 Then response.write "</div>"
If saytk=100 Then Response.write "</div><div class=""path"">"
If saytk=1 Then 
response.write"<anchor>返回上级<prev/></anchor><br/>"
Else
response.write"<a href=""javascript:window.history.go(-1);"">>>返回上一页</a><br/>"
End If
If saytk=100 Then Response.write "</div>"
conn.close
set conn=nothing%>
<!--#include file="fanhui.asp"-->
<%
call headsay()
%>