📄 dispbbs.asp
字号:
<tr>
<td bgcolor="<%=Tableback%>" valign=middle width=1 height=24>
</td>
<td bgcolor="<%=Tablebody%>">
<table width=100% cellpadding=4 cellspacing=0 bgcolor="#EFF3F9">
<tr>
<td bgcolor="<%=Tablebody%>" valign="top" width=20% rowspan=2>
<img src="" width=0 height=4><BR>
<B> <%=htmlencode(rs("username"))%></B><BR>
<img src='<%=rs("face")%>' width=<%=rs("width")%> height=<%=rs("height")%>><br>
<%
REM ----------下面填写管理员名称，以及社区等级名称-----------
if rs("userclass")=user_level1 then response.write " <img src="&picurl&""&level1_pic&">"
if rs("userclass")=user_level2 then response.write " <img src="&picurl&""&level2_pic&">"
if rs("userclass")=user_level3 then response.write " <img src="&picurl&""&level3_pic&">"
if rs("userclass")=user_level4 then response.write " <img src="&picurl&""&level4_pic&">"
if rs("userclass")=user_level5 then response.write " <img src="&picurl&""&level5_pic&">"
if rs("userclass")=user_level6 then response.write " <img src="&picurl&""&level6_pic&">"
if rs("userclass")=user_level7 then response.write " <img src="&picurl&""&level7_pic&">"
if rs("userclass")=user_level8 then response.write " <img src="&picurl&""&level8_pic&">"
if rs("userclass")=user_level9 then response.write " <img src="&picurl&""&level9_pic&">"
%><br>
用户等级: <%=rs("userclass")%>
<BR> 注册日期: <%=year(rs("addDate"))%>-<%=month(rs("addDate"))%>-<%=day(rs("addDate"))%>
<BR> 发表文章: <%=rs("article")%>
<img src="" width=0 height=4><BR>
</td>
<td bgcolor="<%=Tablebody%>" width=1 height=100% rowspan=2>
<table width=1 height=100% cellpadding=0 cellspacing=0 bgcolor="<%=Tableback%>">
<tr><td width=1></td></tr>
</table>
</td>
<td bgcolor="<%=Tablebody%>" valign=top width=* height=100%><img src="" width=0 height=4><BR>
<a href="javascript:openScript('messanger.asp?action=new&touser=<%=HTMLEncode(rs("username"))%>',420,320)"><img src="<%=picurl%>message.gif" border=0 width=16 height=16 alt="给<%=HTMLEncode(rs("username"))%>发送一个短消息">短消息</a>
<a href="javascript:openScript('dispuser.asp?name=<%=HTMLEncode(rs("username"))%>',350,300)"><img src="<%=picurl%>profile.gif" border=0 width=16 height=16 alt="查看admin的个人资料">查看</a>
<%if rs("useremail")<>"" then%>
<A href="mailto:<%=htmlencode(rs("useremail"))%>"><IMG alt="点击这里发送电邮给<%=HTMLEncode(rs("username"))%>" border=0 src="<%=picurl%>email.gif">邮件</A>
<%end if%>
<%if rs("homepage")<>"" then%>
<A href="<%=htmlencode(rs("homepage"))%>" target=_blank><IMG alt="访问<%=HTMLEncode(rs("username"))%>的主页" border=0 src="<%=picurl%>homepage.gif">主页</A>
<%end if%>
<%if rs("oicq")<>"" then%>
<a href='http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=htmlencode(rs("oicq"))%>' target=_blank><img src="<%=picurl%>oicq.gif" border=0 width=16 height=16' alt='<%=HTMLEncode(rs("username"))%>的OICQ状态和号码：<%=htmlencode(rs("oicq"))%>' border=0 width=15 height=15>OICQ</a>
<%end if%>
<a href="reannounce.asp?boardid=<%=boardid%>&rootid=<%=rs("rootid")%>&id=<%=rs("announceid")%>&reply=true&skin=<%=request("skin")%>"><img src="<%=picurl%>reply.gif" border=0 width=16 height=16 alt="引用回复这个贴子">引用回复</a> <a href="reannounce.asp?boardid=<%=boardid%>&rootid=<%=rs("rootid")%>&id=<%=rs("announceid")%>&skin=<%=request("skin")%>"><img src="<%=picurl%>replynow.gif" border="0" alt="回复贴子" width=16 height=16>直接回复</a><BR>
<hr width=100% size=1 color=#777777>
<table cellpadding=0 cellspacing=0 width=100% style="TABLE-LAYOUT: fixed">
<tr>
<td width=32 align=left valign=top>
<img src="images/<%=rs("Expression")%>" border=0 alt="发贴心情"> </td>
<td style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word">
<font face="宋体" color=#333333>
<b><%=htmlencode(rs("topic"))%></b><br>
<%=ubbcode(rs("body"))%>
<%
if rs("signflag")=1 then
if rs("sign")<>"" then
%>
<p>------------------------<br>
<%=ubbcode(rs("sign"))%>
<%
end if
end if
%>
</font>
</td>
<td width=16>
</td></tr>
</table>
</td>
</tr>
<tr>
<td class="bottomline" bgcolor="<%=Tablebody%>" valign=bottom>
<hr width=100% size=1 color=#777777>
<table width=100% cellpadding=0 cellspacing=0>
<tr>
<td align=left valign=bottom>
<%
if session.contents("username")<>"" then
if rs("username")=session.contents("username") or session.contents("userclass") = user_level8 or session.contents("userclass") = user_level9 then
%>
<a href="editannounce.asp?boardid=<%=boardid%>&rootid=<%=rs("rootid")%>&id=<%=rs("announceid")%>&skin=<%=request("skin")%>"><img src="<%=picurl%>edit.gif" border=0 width=16 height=16 alt="编辑这个贴子">编辑</a>
<%
end if
end if
%>
</td>
<td align=left valign=bottom>
发贴时间： <%=rs("dateandtime")%>
</td>
<td align=left valign=bottom>
<img src="<%=picurl%>ip.gif" border=0 width=13 height=15 alt="">IP:<%if IpFlag=0 then%>已设置保密<%else%><%=rs("ip")%><%end if%>
</td>
<td align=right nowarp valign=bottom width=110>
</td>
<td align=right valign=bottom width=4>
</td>
</tr>
</table>
<img src="" width=0 height=4><BR>
</td>
</tr>
</table>
</td>
<td bgcolor="<%=Tableback%>" valign=middle width=1 height=24>
</td>
</tr>
</table>
<table cellpadding=0 cellspacing=0 border=0 width=750 bgcolor=<%=Tableback%> align=center>
<tr><td height=1>
</td>
</tr>
</table>
<%
i=i+1
if i>=Maxtitlelist then exit do
rs.movenext
loop
end sub
sub listpage()
dim n
if totalrec mod Maxtitlelist=0 then
n= totalrec \ Maxtitlelist
else
n= totalrec \ Maxtitlelist+1
end if
%>
<table border="0" cellpadding="0" cellspacing="3" width="95%" align="center">
<tr>
<td valign="middle" nowrap><span class="smallFont">页次：<strong><%=star%></strong>/<strong><%=n%></strong>页 每页<strong><%=Maxtitlelist%></strong> 本主题贴数<strong><%=totalrec%></strong></td>
<td valign="middle" nowrap>
<div align="right"><p>分页：
<%
for p=1 to n
if p=star then
response.write "[<b>"+Cstr(p)+"</b>] "
else
response.write "<a href='dispbbs.asp?boardid="&boardid&"&rootid="&rootid&"&id="&announceid&"&star="+Cstr(p)+"&skin="&request("skin")&"'>[<b>"+Cstr(p)+"</b>]</a> "
end if
next
%>
</p>
</div>
</td>
</tr>
</table>
<%
if err.number<>0 then err.clear
end sub
sub chkInput
'on error resume next
if request("boardid")="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请指定论坛版面。"
elseif not isInteger(request("boardid")) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>非法的版面参数。"
else
boardid=request("boardid")
end if
if request("id")="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请指定相关贴子。"
elseif not isInteger(request("id")) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>非法的贴子参数。"
else
AnnounceID=request("id")
end if
if request("RootID")="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请指定相关贴子。"
elseif not isInteger(request("RootID")) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>非法的贴子参数。"
else
RootID=request("RootID")
end if
if request("star")="" then
star=1
elseif not isInteger(request("star")) then
star=1
else
star=request("star")
end if
end sub
set rs=nothing
Call endConnection
%>
<!--#include file="footer.asp"-->
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -