www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > template_c/page_board_list.html.asp
<!-- #include file="page_sub_header.html.asp" --> <!-- ##### 主栏目开始 ##### ---> <%Call ActionView(CONST_ACTION_FUNC)%> <table width=95% border="0" cellspacing="3" cellpadding="0"> <tr width=100%> <td width=10% align=left ></td> <td width=10% align=left></td> <td align=right> <a href="./board_add_form.asp"> <div id="board_add_ico"><span class="alt">[ board add ico ]</span></div></a></td> </tr> </table> <table border="0" cellpadding=3 cellspacing=1 align="center" valign="middle" width=99% style='word-break:break-all'> <tbody> <% If IsObject(TAG_objRS) Then Dim i : i = 0 Do While Not TAG_objRS.Eof %> <tr width="100%" class="board_tr"> <td width="30" valign="top" > <img src="../images/ico/board_ico.gif" alt="ID:<%=TAG_objRS("BOARD_ID")%>留言" border="0" align='absmiddle' valign='middle'></a></td> <td class="board_td" width= valign="top"> 主题:<%=TAG_objRS("BOARD_TITLE")%> <img src="../board/smileface/<%=TAG_objRS("BOARD_FACE")%>.gif" alt="留言表情" align="absmiddle"></a></td> </tr> <tr class="board_tr" width="100%"> <td></td> <td class="board_td"><%=UbbCode(TAG_objRS("BOARD_CONTENT"))%></td> </tr> <tr width="100%" class="board_tr"> <td ></td> <td valign="top" class="board_td"> 留言人:<%=TAG_objRS("USER_REALNAME")%> <font color="#999999">(<%=TAG_objRS("BOARD_TIME")%>)</font> <a href="../sms/sms_add_form.asp?pstReTitle=<%=TAG_objRS("USER_REALNAME")%>&pstReSenderId=<%=TAG_objRS("BOARD_USER_ID")%>&pstReSender=<%=TAG_objRS("USER_REALNAME")%>" title="给其发短信" > <img src="../images/ico/User_sms.gif" alt="给<%=TAG_objRS("USER_REALNAME")%>发站内短信" border="0" align="absmiddle" valign="middle"></a> <img src="../images/Ico/User_info.gif" style="cursor:hand;" onclick="window.open('../address/address_userinfo_pop.asp?intUserId=<%=TAG_objRS("BOARD_USER_ID")%>','','left=5,top=5,width=450,height=410,scrollbars=yes,status=yes');" alt="查看用户信息" border="0" align="absmiddle" valign="middle"> <% If TAG_objRS("BOARD_USER_ID") = Cint(GBL_intUserId) Then%> <a href="./board_del.asp?intPageNow=<%=Request("intPageNow")%>&intBoardId=<%=TAG_objRS("BOARD_ID")%>" title="删除本留言" onclick="return confirm('您确定删除本条留言吗')">[删除]</a> <a href="./board_mdy_form.asp?intPageNow=<%=TAG_intPerPage%>&intBoardId=<%=TAG_objRS("BOARD_ID")%>" title="修改本留言">[修改]</a> <% End If %> </td> </tr> <tr width="100%"> <td height="1" colspan="2" class="board_line"><div id="board_line"><span class="alt">[ board add ico ]</span></div></td> </tr> <% i = i + 1 If i >= TAG_intPerPage Then Exit Do TAG_objRS.MoveNext Loop If IsObject(TAG_objRS) Then TAG_objRS.Close() Set TAG_objRS = Nothing End If End If %> <input type="hidden" name="intPageNow" value="<%=TAG_intPageNow%>" /> <tr> <td colspan="2" align="right"><%=TAG_strPageNav%></td> </tr> </tbody> </table> <!-- ##### 主栏目结束 ##### --> <!-- #include file="page_sub_footer.html.asp" -->