📄 show.asp
字号:
end if%>
</td>
<td class="leftbeautiful"><font color="red"><b>楼 主</b>（地下室）</font></td>
</tr>
<tr>
<td colspan="2">
<img border="0" src="images/face/<%=content(0)%>.gif" align="absmiddle" />
<b><%=kbbs(content(1))%></b>
</td>
</tr>
<tr>
<td colspan="2">
<%if userntype=2 or userntype=3 then
response.write"<hr size=1>该用户帖子已被管理员屏蔽，请和管理员联系。<hr size=1>"
else
if bbsinfo(25)="2" then
response.write ubb(content(4))
else
response.write UBB_MARK("[MARK]"&ubb(content(4))&"[/MARK]")
end if
end if%>
</td>
</tr>
<tr>
<td colspan="2" align="right">
<%if kbbs(rs("edittime"))<>content(5) then response.write"该帖子在 <b>" & rs("edittime") & "</b> 编辑过！"%>
</td>
</tr>
<tr>
<td colspan="2" align="right">
<img src="pic/signature.gif" border="0" /><br />
<%if userinfoyn=1 or userinfoyn="" then
if userinfo(8)<>"" then response.write ubb(userinfo(8))&"<br />"
end if%>
本文版权所有[ <%=kbbs(content(2))%>]和[<%=kbbs(bbsname)%>]，未经同意请勿转载！
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center">
<img border="0" src="pic/xie.gif" align="absmiddle" /> <small><%=content(5)%></small>
</td>
<td style="background-color: #ffffff;">
<script language="Javascript" src="inc/ads.js"></script>
</td>
</tr>
</table>
<%set rs=nothing
sql="select * from bbs"&totable&" where bid="&id&" and bd="&bd&" and type<>3 order by bbsid"
set rs = server.createobject("adodb.recordset")
pagesetup=checknum(application(prefix&"showbbspage"))
rs.Open sql,conn,1
TotalPage=0
Count=rs.recordcount
conn.execute("update topic set renum="&count&",hits=hits+1 where id="&id&"")
if not rs.eof then
If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else
TotalPage=(Count\pagesetup)
End If
pagecount= 0
rs.moveFirst
if Request.QueryString("ToPage")<>"" and isnumeric(Request.QueryString("ToPage")) then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
rs.move (PageCount-1) * pagesetup
i=1%>
<table align="center" class="BBS_BoardList" cellpadding="0" cellspacing="1">
<tr class="BBS_BoardTitle">
<td colspan="2" align="center"><form name="form" method="post" action="show.asp?bd=<%=bd%>&id=<%=id%>&totable=<%=totable%>">本帖子共有 <%=TotalPage%> 页， <%=count%> 张回帖，每页有 <%=pagesetup%> 张回帖 ... 页码：<input maxlength="6" size="3" name="topage" value="<%=PageCount%>" style="border: 1px;" /> <input value="GO!" type="submit" style="border: 1px; font-size:9px;" /></form></td>
</tr>
<% do while not rs.eof
whichl=i
content=split(rs("content"),"|")
topicuserid=rs("userid")
%>
<tr>
<td width="25%" align="center" valign="middle">
<%set usern=conn.execute("select top 1 userinfo,mark,faction,wife,grade,alltopicnum,del,type from [user] where userid="&topicuserid&"")
userntype=usern("type")
if userinfoyn=1 or userinfoyn="" then
userinfo=split(usern("userinfo"),"|")
if usern("del")=true then
response.write "<b title=""该用户已被删除"" disabled>" & kbbs(content(2)) & "</b> "
else
if usern("grade")>13 then
response.write "<font color=""blue""><b>" & kbbs(content(2)) & "</b></font> "
else
response.write "<b>" & kbbs(content(2)) & "</b>"
end if
end if
response.write"<br /><img src=""images/grade/"&usern("grade")&".gif"" border=""0"" vspace=""5"" /><br />"
Call gradename(usern("grade"))
if usern("faction")<>"" then response.write "<br /><span style=""behavior:url(INC/font.htc)"">"&usern("faction")&"</span><br />"
if userinfo(10)<>"" then response.write"<br /><img src=""pic/left/qianmian.gif"" /> 头衔："&kbbs(userinfo(10))&"<br />"
else
response.write "<br />"&kbbs(content(2))
end if
set usern=nothing%>
</td>
<td valign="top" style="background-color: #ffffff;">
<table cellspacing="3" cellpadding="5" width="100%">
<tr>
<td class="leftbeautiful">
<a href="userinfo.asp?userid=<%=topicuserid%>" title="查看作者信息"><img border="0" src="pic/info.gif" align="absmiddle" /> 信息</a>
<a href="sms.asp?action=write&toname=<%=kbbs(content(2))%>" title="给作者留言"><img border="0" align="absmiddle" src="pic/newmail.gif" /> 留言</a>
<%if userinfoyn=1 or userinfoyn="" then
if userinfo(1)<>"" then response.write"<a title=""访问作者主页"" target=""_blank"" href="""&kbbs(userinfo(1))&"""><img border=""0"" src=""pic/home.gif"" align=""absmiddle"" /> 主页</a> "
end if%>
<a href="edit.asp?bbsid=<%=rs("bbsid")%>&topictype=2&bd=<%=bd%>&totable=<%=totable%>" title="编辑帖子"><img border="0" align="absmiddle" src="pic/edit.gif" /> 编辑</a>
<a href="say.asp?topictype=2&bd=<%=bd%>"eid=<%=rs("bbsid")%>&bid=<%=id%>&totable=<%=totable%>" title="引用帖子"><img border="0" align="absmiddle" src="pic/xie.gif" /> 引用</a>
<%if usertype>3 or (usertype=3 and instr("|"&adminbd&"|","|"&bd&"|"))>0 then response.write" <a href=""adminbd.asp?action=delrebbs&id="&rs("bid")&"&bd="&bd&"&bbsid="&rs("bbsid")&"""><img src=""pic/del.gif"" border=""0"" align=""absmiddle"" /> 删除</a> "%>
<img border="0" src="pic/ip.gif" align="absmiddle" />
<%if userinfoyn=1 or userinfoyn="" then
response.write"<span title=""IP 地址："
if usertype>=3 then
response.write rs("ip")
else
response.write"保密"
end if
response.write""">"
if conn.execute("select top 1 userid from online where userid="&topicuserid&" and showyn=true").eof then
response.write"<font color=#808080>离线</font> "
else
response.write"<font color="&c1&">在线</font> "
end if
response.write"</span>"
end if%>
</td>
<td class="leftbeautiful"><b><%=whichd%></b> 栋 <b><%=whichl%></b> 楼</td>
</tr>
<tr>
<td colspan="2">
<img border="0" src="images/face/<%=content(0)%>.gif" align="absmiddle" />
<b><%=kbbs(content(1))%></b>
</td>
</tr>
<tr>
<td colspan="2">
<%if userntype=2 or userntype=3 then
response.write"<hr size=1>该用户帖子已被管理员屏蔽，请和管理员联系。<hr size=1>"
else
if bbsinfo(25)="2" then
response.write ubb(content(4))
else
response.write UBB_MARK("[MARK]"&ubb(content(4))&"[/MARK]")
end if
end if%>
</td>
</tr>
<tr>
<td colspan="2" align="right">
<%if kbbs(rs("edittime"))<>content(5) then response.write"该帖子在 <b>" & rs("edittime") & "</b> 编辑过！"%>
</td>
</tr>
<tr>
<td colspan="2" align="right">
<img src="pic/signature.gif" border="0" /><br />
<%if userinfoyn=1 or userinfoyn="" then
if userinfo(8)<>"" then response.write ubb(userinfo(8))&"<br />"
end if%>
本文版权所有[ <%=kbbs(content(2))%>]和[<%=kbbs(bbsname)%>]，未经同意请勿转载！
</td>
</tr>
</table>
</td>
</tr>
<tr height="28">
<td align="center">
<h2><img border="0" src="pic/xie.gif" align="absmiddle" /> <small><%=content(5)%></small></h2>
</td>
<td title="贴间信息！">
<h2><img border="0" src="pic/re.gif" align="absmiddle" /> <script language="Javascript" src="inc/ads.js"></script> </h2>
</td>
</tr>
<% i=i+1
if i>pagesetup then exit do
rs.movenext
loop
end if
rs.Close
set rs=nothing%>
<tr class="BBS_BoardTitle">
<td colspan="2" align="center">
<%for i=1 to TotalPage
If i<>PageCount then
Response.Write " <a href=""?topage="& i &"&bd="&bd&"&id="&id&"&totable="&totable&"""><font color=""yellow"">" & i & "</font></a> "
else
Response.Write " <font color=""red""><b>"&i&"</b></font> "
end if
next%>
</td>
</tr>
</table>
<%dim postto
postto="savetopic.asp?bd="&bd&"&bid="&id&"&topictype=2&totable="&totable&""
if not(isnull(lguserid) or lguserid="") then
if not(idtype=2 and (usertype<3 or (usertype=3 and instr("|"&adminbd&"|","|"&bd&"|")=0))) then%>
<br />
<script language="JavaScript" src="inc/ybbcode.js"></script>
<script language="JavaScript">
<!--
function presskey(eventobject)
{
if(event.ctrlKey && window.event.keyCode==13){this.document.topic.submit();}else{return false}
}
function openwin()
{
document.form1.topic.value=document.topic.topic.value;
document.form1.content.value=document.topic.content.value;
var popupWin = window.open('paper.asp?action=preview', 'showgg', 'width=500,height=400,resizable=1,scrollbars=yes,menubar=no,status=yes');
document.form1.submit()
}
function emoticon(theSmilie){
document.topic.content.value +=theSmilie + '';
document.topic.content.focus();
}
//-->
</script>
<%=ttop%>
<table align="center" class="BBS_BoardList" cellpadding="5" cellspacing="1">
<tr class="BBS_BoardTitle">
<td colspan="2">
<img src="pic/gl.gif" border="0" align="absmiddle" /> 快捷回复 <a href="say.asp?bd=<%=bd%>&topictype=2&bid=<%=id%>&totable=<%=totable%>">[高级回复]</a>
</td>
</tr>
<form name="topic" method="POST" action="<%=postto%>">
<tr>
<td width="25%" valign="top" align="center" style="background-color: #ffffff;">
<img onclick="ying()" alt="阴影字" src="pic/u_4.gif" border="0" />
<img onclick="Curl()" alt="超级连接" src="pic/u_14.gif" border="0" />
<img onclick="Cswf()" alt="flash动画" src="pic/u_10.gif" border="0" />
<img onclick="fly()" alt="飞行字" src="pic/u_1.gif" border="0" />
<img onclick="showpic()" alt="表情图片" src="pic/u_19.gif" border="0" />
<br />
<br />
<img src="pic/showbbs1.gif" onClick="javascript:emoticon('[code]内容[/code]')" border="0" />
<img src="pic/showbbs2.gif" onClick="javascript:grade()" border="0" />
<br />
<br />
<img src="pic/showbbs3.gif" onClick="javascript:mustlogin()" border="0" />
<img src="pic/showbbs4.gif" onClick="javascript:reply()" border="0" />
</td>
<td bgcolor="#FFFFFF">
<input type="hidden" name="topic" value="回复帖子" />
<textarea rows="6" name="content" cols="85" onkeydown="presskey();"></textarea>
</td>
</tr>
<tr>
<td width="25%" style="background-color: #ffffff;"> </td>
<td bgcolor="#FFFFFF">
<input type="submit" value="OK_！发表" name="B1" />
<input type="button" value=" 预 览！" onclick="openwin()">
<input type="reset" value="NO_！重写" name="B2">
[ 按 Ctrl+Enter 直接发送 ]
</td>
</tr>
</form>
</table>
<div id="MaoDiv" style="position: absolute; width:570px; height:160px; display:none;">
<iframe id="MView" name="MView" src="about:blank" frameborder="0" scrolling="no" valign="top" width="100%" height="100%"></iframe>
</div>
<form name="form1" action="paper.asp?action=preview" method="post" target="showgg">
<input type="hidden" name="topic" value="" />
<input type="hidden" name="content" value="" />
</form>
<%=tbottom%>
<% end if
end if
Response.write "<br />"
call down%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -