📄 postnew.asp
字号:
<!--#include file="Connections.asp" -->
<!--#include file="top.asp" -->
<script src=js/addubb.js></SCRIPT>
<% if isuser=false then response.redirect("login.asp")
if request.querystring("l_id")="" then
errornum=1
errormsg="<li>很抱歉，您没有选择论坛,请从论坛首页正确登陆</li>"
end if
'取出变量
dim t_size,h_lesstopic,posttime,h_signimg,h_flash,h_img,h_ubb,h_html, h_jiami
sql="select t_size,h_lesstopic,posttime,h_signimg,h_flash,h_img,h_ubb,h_html, h_jiami from home"
set rsconn1=conn.execute(sql)
if not rsconn1.eof then
t_size=rsconn1("t_size")
h_lesstopic=rsconn1("h_lesstopic")'最少发表字节
posttime=rsconn1("posttime")
h_signimg=rsconn1("h_signimg")'显示签名图片
h_flash=rsconn1("h_flash")'显示flash
h_img=rsconn1("h_img")'显示图片
h_ubb=rsconn1("h_ubb")'显示ubb
h_html=rsconn1("h_html")'显示html
h_jiami=rsconn1("h_jiami")'禁止加密内容字段
end if
set rsconn1=nothing
if errornum<> 1 then
if DateDiff("s",Session("LastPostTime"),nowtime)<PostTime then
Response.write "<html><script>alert(""如果发贴还需要等待"&PostTime - DateDiff("s",Session("LastPostTime"),nowtime)&"秒"");self.location=(""javascript:history.go(-1)"")</script></html>"
Response.end
end if
sqllanmu="select l_id,l_title from lanmu where l_id="&chktopic(request.querystring("l_id"))&""
set rslanmu=conn.execute(sqllanmu)
end if
%>
<%cpbtitle="发表新主题"
if errornum=1 then
call toptitle(l_title,cpbtitle)
call head(4,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)
call error(errormsg)
else
ltitle=rslanmu("l_title")
call toptitle(l_title,cpbtitle)
call head(3,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)%>
<table border=0 cellpadding=0 cellspacing=0 width="<%=tdc3%>" align="center">
<form ACTION="postfo.asp?action=add&l_id=<%=request.querystring("l_id")%>" METHOD="POST" name="form1" onkeydown='up()'> <tr>
<td >
<div align="center">
<center>
<table border=1 borderColor=<%=tdc2%> cellPadding=1 cellSpacing=0 width=100% style="border-collapse: collapse" align=center>
<tr>
<td align=right width="15%" height="22" <%=tColor%> class=tdc1 colspan="2">
<p align="center"> 在 <%=rslanmu("l_title")%> 论坛内发新帖</td>
</tr>
<tr>
<td align=right width="15%" bgcolor=<%=tcolor2%>
class=tdc>主题：</td>
<td bgcolor=<%=tcolor2%>
class=tdc> <SELECT onchange=huati(this.options[this.selectedIndex].value) class=bdtj3><OPTION value="" selected >选择话题</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>
<OPTION value=[建议]>[建议]</OPTION> <OPTION value=[下载]>[下载]</OPTION>
<OPTION value=[分享]>[分享]</OPTION></SELECT>
<input name=f3_motif size=60 maxLength=30 class="bdtj3">（不得超过 30 个汉字） </td>
</tr>
<% if request.querystring("action")="vote" then%><tr>
<td valign=top NOWRAP align=right width="15%" bgcolor=<%=tcolor2%>
class=tdc>投票：<BR>
每行一个<br>
投票项目<br>
第一行为<br>
投票主题<br>
最多<%=h_votetime%>个
<br><input type="radio" name="v_type" value="0" checked>
单选投票<br><input type="radio" name="v_type" value="1">
多选投票
</td>
<td valign=top bgcolor=<%=tcolor2%>
class=tdc>
<textarea name=f3_vote rows=10 cols=80 wrap=VIRTUAL class="bdtj3"></textarea>
<BR>
</td>
</tr><%end if%>
<tr>
<td valign=top align=right width="15%" bgcolor=<%=tcolor2%>
class=tdc>当前心情：</td>
<td bgcolor=<%=tcolor2%>
class=tdc>
<%
Response.Write "<INPUT type=radio value=icon/1.gif name=f3_face checked><img src=""icon/1.gif""> "
for i = 2 to 14
if i =8 then Response.Write "<br> "
Response.Write "<INPUT type=radio name=f3_face value=icon/" & i & ".gif ><img src=""icon/" & i & ".gif""> "
next
%> </td>
</tr>
<tr>
<td valign=top NOWRAP align=right width="15%" bgcolor=<%=tcolor2%>
class=tdc>UBB格式：</td>
<td valign=top bgcolor=<%=tcolor2%>
class=tdc>
<table border=0 cellpadding=0 cellspacing=0 >
<tbody>
<tr>
<td bgcolor=<%=tcolor2%>
class=tdc> <!--#include file="fbb.asp"--> </td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td valign=top NOWRAP align=right width="15%" bgcolor=<%=tcolor2%>
class=tdc><b>内容：</b><br><li>HTML 标签：<%if h_html=1 then%><b>可用</b><%else%><b>禁止</b><%end if%>
<li>IMG 标签：<%if h_img=0 then%><b>可用</b><%else%><b>禁止</b><%end if%>
<li>FLASH标签：<%if h_flash=0 then%><b>可用</b><%else%><b>禁止</b><%end if%>
<li>UBB 标签：<%if h_ubb=0 then%><b>可用</b><%else%><b>禁止</b><%end if%>
<li>上传 文件：<%if lockupload=0 then%><b>开通</b><%else%><b>禁止</b><%end if%>
<li>加密 内容：<%if h_jiami=0 then%><b>允许</b><%else%><b>禁止</b><%end if%>
<br> <b>加密内容</b>
<li><a href="javascript:replyview()" title=该部分内容回复后可见>回复帖</a>
<BR>
<li><a href="javascript:login()" title="该部分内容需要登陆后可见">登陆帖</a>
<BR>
<li><a href="javascript:fen()" title=浏览该部分内容需要经验数>经验帖</a>
<BR>
<li><a href="javascript:send()" title=浏览该部分内容需要发表文章数>文章帖</a>
<BR>
<li><a href="javascript:beauty()" title=浏览该部分内容需要魅力数>魅力帖</a>
<BR>
<li><a href="javascript:money()" title=浏览该部分内容需要金钱数>金钱帖</a>
<BR>
<li><a href="javascript:weiwang()" title=浏览该部分内容需要威望值>威望帖</a>
<BR>
<li><a href="javascript:buy()" title=该部分内容需要出售多少大洋>买卖帖</a>
</td>
<td valign=top bgcolor=<%=tcolor2%>
class=tdc>
<textarea name=f3_content rows=10 cols=80 wrap=VIRTUAL class="bdtj3"></textarea>
<br>
<input type="checkbox" name="t_email" value="1"> 有回复时用论坛短信通知我（若不需要你也可以编辑本文来取消短信通知) <br>
<input type="checkbox" name="t_autourl" value="1" checked> 自动URL分析<br>
<input type="checkbox" name="t_lockubb" value="1" > 禁止ubb转换<br>
<input type="checkbox" name="t_sign" value="0" checked> 显示个性签名
</td>
</tr>
<tr>
<td valign=top NOWRAP align=right width="15%" bgcolor=<%=tcolor2%>
class=tdc>心情图标：</td>
<td valign=top bgcolor=<%=tcolor2%>
class=tdc>
<%
for i = 1 to cpbbq
Response.Write "<img src=""emot/em" & i & ".gif"" onClick=""setsmiley('em" & i &":')""> "
if i mod 21=20 then response.write("<br>")
next
%>
←点击插入心情符
</td>
</tr>
<tr>
<td align=right width="15%" bgcolor=<%=tcolor2%>
class=tdc>上传文件:</td>
<td bgcolor=<%=tcolor2%>
class=tdc>
<iframe marginwidth=0 framespacing=0 marginheight=0 frameborder=0 width='100%' height=25 src="upload1.asp?l_id=<%=request.querystring("l_id")%>"></iframe> </td>
</tr>
<input type="hidden" name=ip value="<% = o_ip %>">
<tr>
<td valign=top align=right width="15%"bgcolor=<%=tcolor2%>
class=tdc> </td>
<td valign=top bgcolor=<%=tcolor2%>
class=tdc> <input type="hidden" name="sendtopic" value="true">
<input type="submit" name="Submit" value="确 认" class=bdtj OnClick="this.disabled=true;document.form1.submit();"> <input type=button value='预 览' name=Button onclick=view() class=bdtj>
<input type="reset" name="Submit2" value="清 空" class=bdtj>[按CTRL+ENTER 直接发表] 帖子长度：<input name="Len" value="0" readonly size="8" class="bdtj" > 最大为: <%=t_size%> 字节;最小为: <%=h_lesstopic%> 字节</td>
</tr>
</table>
</center>
</div>
</td>
</tr></form>
</table>
<form name=preview action=view.asp method=post target=view>
<input type=hidden name=title value=><input type=hidden name=content value=>
</form>
<% set rslanmu=nothing
end if%><!--#include file="bq.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -