📄 talkview.asp
字号:
'给分页所需的中间变量赋值
rs.PageSize=pgsize
'当前页转到指定的页码
rs.AbsolutePage=curpage
'开始读取数据
dim icn_top,icn_sex
dim ilou
FOR i=1 to pgsize
If rs.eof Then
EXIT FOR
End If
'判断表情
icn_top="img/topic/"&rs("t_emotion")&".gif"
'判断身份或者性别
CheckSupervisorUserName=1
IF rs("power")>1 THEN
icn_sex="img/icn_adm1.gif"
ELSEIF rs("sex")=True THEN
icn_sex="img/icn_gg.gif"
ELSE
icn_sex="img/icn_mm.gif"
END IF
'总管判断
if DEF_sysadm=rs("name") then
icn_sex="img/icn_admsys.gif"
end if
'判断楼层
ilou=(curpage-1)*pgsize+i
%>
<tr><td width="100%" height="42">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="rdd">
<tr>
<td width="150" height="100%" valign="top" class="rdr" style="padding:6px; background-color:<% =bg2 %>">
<div align="center">
<img src="<% =rs("faceurl") %>" border="0" width="<% =rs("facew") %>" height="<% =rs("faceh") %>">
</div>
<img src="<% =icn_sex %>" border="0" align="absmiddle">
<a href="viewinfo.asp?id=<% =rs("ID") %>" title="点击查看该同学详细资料"><% =rs("t_author") %></a><br>
※<% =starbirth(rs("birthday")) %>
身份：<font class="ft1"><%
IF DEF_sysadm<>rs("name") THEN
if rs("power")=0 then
response.Write "待审"
elseif rs("power")>1 then
response.Write "管理员"
else
response.Write "成员"
end if
ELSE
response.Write "总管"
END IF
%></font>
<% =umark(rs("cnt_on"),rs("cnt_water")) %>
<br>→发水量：<font color="<% =colight %>"><% =rs("cnt_water") %>吨</font>
<br>→加入于：<% =FormatDateTime(rs("regdate"),2) %>
</td>
<td valign="top">
<table width="100%" height="100%" border="0" cellpadding="6" cellspacing="0" class="intbl"><tr><td valign="top">
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0"><tr>
<td width="25" height="100%">
<img src="<% =icn_top %>" border="0">
</td>
<td width="200">
发表于：
<%
Response.Write rs("t_datepub")
%>
</td>
<td width="160">
<a href="viewinfo.asp?id=<% =rs("ID") %>"><img src="img/icn_mates.gif" border="0" alt="查看该同学详细资料"></a>
<a href="msgwr.asp?id=<% =rs("ID") %>"><img src="img/icn_msg.gif" border="0" alt="发短消息给<% =rs("name") %>"></a>
<a href="reply.asp?kind=<% =vkind %>&id=<% =rs("t_ID") %>&cmd=quote"><img src="img/icn_re.gif" border="0" alt="引用并回复该帖"></a>
<% if rs("t_isreply")=true then %>
<% If rs("t_author")=u_name Then %>
<a href="reply.asp?kind=<% =vkind %>&id=<% =rs("t_ID") %>&cmd=edit"><img src="img/icn_edit.gif" border="0" alt="编辑修改"></a>
<% Else %>
<img src="img/icn_edit_grey.gif" border="0" alt="您无权修改">
<% End If %>
<% else %>
<% If rs("t_author")=u_name OR u_power>1 Then %>
<a href="talkpub.asp?kind=<% =vkind %>&id=<% =rs("t_ID") %>"><img src="img/icn_edit.gif" border="0" alt="编辑修改"></a>
<% Else %>
<img src="img/icn_edit_grey.gif" border="0" alt="您无权修改">
<% End If %>
<% end if %>
<% If rs("t_author")=u_name OR u_power>1 Then %>
<a href="talkdel.asp?id=<% =rs("t_ID") %>"><img src="img/icn_del.gif" border="0" alt="删除"></a>
<% Else %>
<img src="img/icn_del_grey.gif" border="0" alt="您无权删除">
<% End IF %>
</td>
<td align="right">
<%
If ilou=1 Then
Response.Write "<font color='"&cohover&"'><u><b>楼 主</b></u></font>"
Else
Response.Write "<font color='"&colight&"'><u><b>第"&ilou&"楼</b></u></font>"
End If
%>
<a href="#"><img src="img/icn_retop.gif" align="absbottom" border="0" alt="↑回到页面顶部"></a>
</td>
</tr></table>
<table width="100%" height="180" border="0" cellpadding="0" cellspacing="0" style="word-break:break-all">
<tr><td width="100%" valign="top">
<% =UBB_Code(rs("t_content")) %>
</td></tr>
</table>
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0" style="word-break:break-all">
<tr><td width="100%">
<%
CheckSupervisorUserName=0
'是否最后编辑过
if isNULL(rs("t_datefre"))=False AND rs("t_isreply")=True then
Response.Write "<div align='right'><i><font color='"&colight&"'>该文被作者最后编辑于→"&rs("t_datefre")&"</font></i></div>"
end if
%>
<%
'个人签名档
IF rs("signline")<>"" Then
%>
<img src="img/signline.gif" border="0" hspace="0" vspace="0"><br>
<%
Response.write UBB_Code(rs("signline"))
END IF
%>
</td></tr>
<%
IF rs("hp")<>"" THEN
vblog=trim(rs("hp"))
if Left(vblog,5)<>"http:" then
vblog="http://"&vblog
end if
%>
<tr><td width="100%" class="rdbar" title="该成员博客或者个人主页">
<img src="img/icn_hp.gif" border="0" align="absmiddle" alt="该成员博客或者个人主页">
<a href='<% =vblog %>' target="_blank" title="该成员博客或者个人主页"><% =unhtml(rs("hp")) %></a>
</td></tr>
<%
END IF
%>
</table>
</td></tr></table>
</td>
</tr>
</table>
</td></tr>
<%
rs.MoveNext
Next
rs.close
%>
</table>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" style="background-color:<% =bg3 %>;">
<tr>
<td width="150" height="100%">
<a href="talkpub.asp?kind=<% =vkind %>"><img src="img/icn_pub.gif" align="absmiddle" border="0" vspace="0" hspace="0" alt="[→发表新主题]"></a>
<a href="reply.asp?kind=<% =vkind %>&id=<% =vtid %>&cmd=pub"><img src="img/icn_reply.gif" align="absmiddle" border="0" vspace="0" hspace="0" alt="[回复]"></a>
</td>
<td align="right">
<% call PageQuick() %>
</td>
</tr>
</table>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
<td height="100%">
<font class="ft1"><b>快速回复主题</b></font>
</td>
<td width="62" align="center">
<a href="#"><img src="img/icn_retop.gif" align="absbottom" border="0" alt="↑回到页面顶部"></a>
</td>
</tr></table>
<table align="center" width="700" height="80" border="0" cellspacing="0" cellpadding="0" class="rdkuang" style="border-bottom:0 "><tr>
<td width="100%" height="100%">
<form name="fm1" action="reply_deal.asp" method="post">
<input type="hidden" name="hidID" value="<% =vtid %>">
<input type="hidden" name="hid_kind" value="<% =vkind %>">
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0"><tr>
<td width="60" height="100%" valign="top">
<b>**表情：</b>
</td>
<td valign="top">
<%
dim strchk
FOR i=1 TO 16
if i=1 then
strchk="checked"
else
strchk=""
end if
%>
<input type="radio" name="rademotion" value="<% =i %>" <% =strchk %>><img src="img/topic/<% =i %>.gif" border="0" align="absmiddle">
<%
if i mod 8=0 then
Response.Write "<br>"
end if
NEXT
%>
</td>
</tr></table>
<b>**回复内容：</b>支持<font color="red">UBB代码</font>：<a href="ubbhelp.asp" target="_blank">[UBB使用方法帮助]</a>
<font color="red">＊＊</font>内容文字请控制在<% =DEF_talksize*1024 %>字符内<br>
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr><td width="100%" height="100%" valign="top">
<textarea name="txtcontent" tabindex="6" rows="5" cols="61" class="fill" onFocus="javascript:getActiveText(this)" onClick="javascript:getActiveText(this)" onChange="javascript:getActiveText(this)"></textarea>
</td></tr>
<tr><td>
<b>添加UBB表情：</b><br>
<a href="javascript:AddText('[em01]')"><img src="UBBicon/EM01.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em02]')"><img src="UBBicon/EM02.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em03]')"><img src="UBBicon/EM03.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em04]')"><img src="UBBicon/EM04.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em05]')"><img src="UBBicon/EM05.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em06]')"><img src="UBBicon/EM06.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em07]')"><img src="UBBicon/EM07.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em08]')"><img src="UBBicon/EM08.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em09]')"><img src="UBBicon/EM09.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em10]')"><img src="UBBicon/EM10.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em11]')"><img src="UBBicon/EM11.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em12]')"><img src="UBBicon/EM12.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em13]')"><img src="UBBicon/EM13.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em14]')"><img src="UBBicon/EM14.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em15]')"><img src="UBBicon/EM15.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em16]')"><img src="UBBicon/EM16.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em17]')"><img src="UBBicon/EM17.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em18]')"><img src="UBBicon/EM18.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<input type="Button" name="cmdpub" value="完成发布" class="an" onClick="javascript:okpress()">
</td></tr>
</table>
</form>
</td>
</tr></table>
<!--插入在线统计-->
<!--#include file="in_online.asp"-->
<!--插入网站置底-->
<!--#include file="in_bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -