📄 bbs_add.asp
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %><% Response.ContentType="text/vnd.wap.wml; charset=utf-8" %><?xml version="1.0" encoding="utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.inc"-->
<!--#include file="ydzq.asp"-->
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="发表新贴">
<p>
<%
dim bbsid,cw,up
cw=usb(request("cw"))
up=usb(request("up"))
bbsid=usb(request("bbsid"))
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from [hmd] where userid="&myid&" and bbsid="&bbsid
rs.open rspl,conn,1,1
if not rs.eof then
IF rs("hmd")=1 then
Response.write "您已在本版黑名单中<br/>"
Response.Write "<a href='bbs_list.asp?bbsid="&bbsid&"&hk="&hk&"'>返回论坛</a><br/>"
Response.Write "</p></card></wml>"
response.end
End if
End if
rs.close
set rs=nothing
dim nppj,rspljj
set nppj=Server.CreateObject("ADODB.Recordset")
rspljj="select ftql from ydbbs where id="&bbsid
nppj.open rspljj,conn,1,2
if not nppj.eof then
if nppj("ftql")="1" then
Response.write "本版禁止发贴<br/>"
Response.Write "<a href='bbs_list.asp?bbsid="&bbsid&"&hk="&hk&"'>返回论坛</a><br/>"
Response.Write "</p></card></wml>"
response.end
End if
End if
nppj.close
set nppj=nothing
%>
<%if cw="1" then%>
标题不能为空<br/>
<%end if%>
<%if cw="2" then%>
内容不能为空<br/>
<%end if%>
<%if cw="3" then%>
标题字数不足，疑是水贴！<br/>
发贴请求被系统拒绝<br/>
<%end if%>
<%if cw="4" then%>
内容字数不足，疑是水贴！<br/>
发贴请求被系统拒绝<br/>
<%end if%>
<%if cw="5" then%>
提示:金币不能大于100个<br/>
<%end if%>
<%if cw<>"" then%>
----------<br/>
<%end if%>
<%if up="3" then%>
收费贴规则:会员只有支付了楼主规定的金币才可以查看贴子内容，金币的上限为100个。<br/>
价格:<input name="jia" emptyok="true" format='*N' maxlength="3" value=""/><br/>
<%end if%>
标题:<input name="name" emptyok="true" maxlength="30" value=""/><br/>
内容:<input name="txt" emptyok="true" value=""/><br/>
<%if up="2" then%>
投票选项用逗号","隔开<br/>
选项:<input name="tp" emptyok="true" value=""/><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/>
贴子类型:
<%if up<>"2" then%>
<select name="fs" value="">
<option value="">正常发贴</option>
<option value="[教程]">教程</option>
<option value="[新闻]">新闻</option>
<option value="[原创]">原创</option>
<option value="[软件]">软件</option>
<option value="[求助]">求助</option>
<option value="[转载]">转载</option>
<option value="[讨论]">讨论</option>
<option value="[灌水]">灌水</option>
<option value="[娱乐]">娱乐</option>
</select>
<%end if%>
<br/>
<anchor title="发表贴子">[发表贴子]
<go href="bbs_addcl.asp?hk=<%=hk%>&bbsid=<%=bbsid%>&up=<%=up%>" method="post" accept-charset='utf-8'>
<postfield name="name" value="$(name)"/>
<postfield name="txt" value="$(txt)"/>
<postfield name="jia" value="$(jia)"/>
<postfield name="face" value="$(face)"/>
<postfield name="tp" value="$(tp)"/>
<%if up<>"2" then%>
<postfield name="fs" value="$(fs)"/>
<%end if%>
</go>
</anchor><br/>
<a href="upfile.asp?bbsid=<%=bbsid%>&hk=<%=hk%>&up=1">上传文件(单个)</a><br/>
<a href="file.asp?bbsid=<%=bbsid%>&hk=<%=hk%>&up=1">上传文件(多个)</a><br/>
<a href='bbs_add.asp?bbsid=<%=bbsid%>&hk=<%=hk%>'>发表普通贴</a><br/>
<a href='bbs_add.asp?bbsid=<%=bbsid%>&hk=<%=hk%>&up=3'>发表收费贴</a><br/>
<a href="bbs_add.asp?hk=<%=hk%>&bbsid=<%=bbsid%>&up=2">发表投票贴</a>
<br/>
<a href="bbs_list.asp?bbsid=<%=bbsid%>&hk=<%=hk%>">返回论坛</a><br/>
<a href="index.asp?hk=<%=hk%>">返回社区</a>
<%
conn.close
set conn=nothing%>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -