📄 reply.asp
字号:
<!--#include file="Connections.asp" -->
<!--#include file="top.asp" -->
<!--#include file="checkuser.asp" -->
<!--#include file="ubb.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 h_lesstopic,t_size,posttime
sql="select t_size,h_lesstopic,posttime 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")
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_lockuser,l_title from lanmu where l_id="&chktopic(request.querystring("l_id"))&""
set rslanmu=conn.execute(sqllanmu)
sql_topic="select t_title,t_username,t_time,t_content,t_email from topic where t_id="&chktopic(request.querystring("t_id"))&""
set rs_topic=conn.execute(sql_topic)
end if
%>
<%if errornum=1 then
call toptitle(l_title,cpbtitle)
call head(4,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)
call error(errormsg)
else
cpbtitle="回复主题:"&HTMLEncode(rs_topic("t_title"))
ltitle=rslanmu("l_title")
call toptitle(l_title,cpbtitle)
call head(3,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)
l_lockuser=rslanmu("l_lockuser")
%>
<table border=0 cellpadding=0 cellspacing=0 width="<%=tdc3%>" align="center">
<form ACTION="postfo.asp?action=reply&l_id=<%=request.querystring("l_id")%>&t_id=<%=request.querystring("t_id")%>" METHOD="POST" name="form1" onkeydown='up()'> <tr>
<td >
<table border=1 borderColor=<%=tdc2%> style="border-collapse: collapse" cellPadding=1 cellSpacing=0 width=100% >
<tr>
<td align=right width="15%" height="22" <%=tColor%> class=tdc1 colspan="2">
<p align="center"> 回复"<%=HTMLEncode(rs_topic("t_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" value="Re:<%=HTMLEncode(rs_topic("t_title"))%>" >（不得超过 30 个汉字） </td>
</tr>
<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 width=550>
<tbody>
<tr>
<td width=510 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>
</td>
<td valign=top bgcolor=<%=tcolor2%>
class=tdc>
<textarea name=f3_content rows=10 cols=80 wrap=VIRTUAL class="bdtj3" ><%if request.querystring("quote")="topic" then %>[quote]<%=rs_topic("t_username")%>在<%=rs_topic("t_time")%>说道：[br]<%=left(htmldecode(reubb(rs_topic("t_content"))),10000)%>[/quote]<%elseif request.querystring("quote")="reply" then %>
<% sqltopic="select r_time,r_username,r_content from reply where r_id="&chktopic(request.querystring("r_id"))&""
set rstopic=conn.execute(sqltopic)%>[quote]<%=rstopic("r_username")%>在<%=rstopic("r_time")%>说道：[br]<%=left(htmldecode(reubb(rstopic("r_content"))),10000)%>[/quote]<%end if%></textarea>
<br>
<input type="checkbox" name="t_email" value="1" <%if instr(rs_topic("t_email"),cpbusername)>0 then response.write("checked")%>>
有回复时用论坛短信通知我（若不需要你也可以编辑本文来取消短信通知)<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>
</td>
</tr></form>
<form name=preview action=view.asp method=post target=view>
<input type=hidden name=title value=><input type=hidden name=content value=>
</form>
</table>
<% set rs_topic=nothing
set rslanmu=nothing
%>
<br>
<br>
<div align="center">
<center>
<table border=1 borderColor=<%=tdc2%> cellPadding=0 cellSpacing=0 width=<%=tdc3%> style="border-collapse: collapse" >
<tr >
<td valign=center width="100%" height="22" <%=tColor%> class=tdc1 colspan="2"> <table width=98% align=center><tr><td <%=tColor%> class=tdc1 width="79%">
<p align="center">主题回顾，只显示最近<%=r_page%>条回复(最新发表在前）</td><td <%=tColor%> class=tdc1 align=right></td></tr></table></td>
</tr>
<% sql = "select top "&r_page&" r_content,t_lastedit,r_username from reply where t_id="&chktopic(request.querystring("t_id"))&" order by r_time desc"
set rs_reply=conn.execute(sql)
if not(rs_reply.BOF or rs_reply.EOF) then
%>
<% do while not rs_reply.eof and rcount <r_page
sql_user1= "select locktopic,username from user where username='"&rs_reply("r_username")&"'"
set rs_user1=conn.Execute (sql_user1)
%>
<%
if trcolor="" then
bgcolor=""&tColor2&""
trcolor=1
else
bgcolor=""&tColor1&""
trcolor=""
end if
%>
<tr bgcolor=<%=bgcolor%>>
<td valign=top noWrap width="21%" class=tdc style="Word-Break:Break-all"> <table border=0 width=96% style="Word-Break:Break-all" align=center>
<tr><td valign=top bgcolor=<%=bgcolor%> style="Word-Break:Break-all" class=tdc > <%=rs_user1("username")%>
</td></tr></table>
</td>
<td valign=top class=tdc width="79%"><table border=0 width=96% style="Word-Break:Break-all" align=center>
<tr><td valign=top bgcolor=<%=bgcolor%> style="Word-Break:Break-all" class=tdc >
<%erroruser=0
if l_lockuser<>"" then
l_lockuser1=split(l_lockuser, "|")
for i=0 to ubound(l_lockuser1)
if rs_user1("username")=l_lockuser1(i) then
erroruser=1
exit for
end if
next
end if
if rs_user1("locktopic")<>1 and erroruser<>1 then
%>
<%=ubbcode(rs_reply("r_content"))%>
<%else%>
<br>
<br><center>
================================================<BR>
此用户发言已经被屏蔽<BR>
======================================================
</center>
<br>
<br>
<%end if%> </td>
</tr>
</table>
</td>
</tr>
<% rs_user1.close
set rs_user1=nothing
rs_reply.MoveNext
rcount=rcount+1
loop
end if
rs_reply.close
set rs_reply=nothing
%>
</table>
</center>
</div>
<%
end if%><!--#include file="bq.asp" --></body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -