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("

无此论坛！") end if if rs("sellkf")=1 then Call Error("

本版禁止发帖！") 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("

你在本版已被禁发帖！") end if if rs("strall")>0 then Call Error("

你在本版已被加黑！") 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("

你已被禁发帖！") end if if rs("strall")>0 then Call Error("

你已被加黑！") end if end if rs.close set rs=nothing end Sub CALL Fortxtsell Response.write "

" Response.write "标题:
" if path<>"" then Response.write "内容:
" else Response.write "内容:
" end if if up=3 then Response.write "收费" Response.write ""&getcent&"
" end if if up=2 then Response.write "投票选项用逗号,隔开
" Response.write "选项:
" end if if up=4 then Response.write "隐藏:
" end if if up=5 then Response.write "派币数量"&chr(13) Response.write "
"&chr(13) Response.write "
回复奖"&chr(13) Response.write "
"&chr(13) end if Response.write "引用表情:" response.write ""&chr(13) response.write "表情"&chr(13) response.write "微笑"&chr(13) response.write "哭泣"&chr(13) response.write "调皮"&chr(13) response.write "脸红"&chr(13) response.write "害羞"&chr(13) response.write "生气"&chr(13) response.write "偷笑"&chr(13) response.write "流汗"&chr(13) response.write "我倒"&chr(13) response.write "得意"&chr(13) response.write "眦牙"&chr(13) response.write "疑问"&chr(13) response.write "睡觉"&chr(13) response.write "好色"&chr(13) response.write "口水"&chr(13) response.write "敲头"&chr(13) response.write "可爱"&chr(13) response.write "猪头"&chr(13) response.write "YEAH"&chr(13) response.write "玫瑰"&chr(13) response.write ""&chr(13) response.write "
帖子类型::" response.write "" response.write "综合帖" response.write "经验帖" response.write "分享帖" response.write "提问帖" response.write "" response.write "
[发表帖子]" response.write "" if up=2 then response.write "" response.write "" response.write "" response.write "" response.write "" elseif up=3 then response.write "" response.write "" response.write "" response.write "" response.write "" elseif up=4 then response.write "" response.write "" response.write "" response.write "" response.write "" elseif up=5 then response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" else response.write "" response.write "" response.write "" response.write "" end if response.write "
" response.write "发表普通帖
" response.write "发表文件帖
" response.write "发表投票帖
" 'response.write "发表收费帖
" response.write "发表隐藏帖
" response.write "发表派币帖
" response.write "提示:内容换行用\\ 内容分页用||
" response.write "回复可见:(re)隐藏部分内容(/re)
" response.write "付费可见:(buy="&getcent&"数)付费可见内容(/buy)
" response.write "返回本版" conn.close set conn=nothing%>