📄 bbslist.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../config.asp"-->
<!--#include file="../checklogin.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<SCRIPT language=JavaScript src="../../inc/meizzDate.js"></SCRIPT>
<link href="../img/css1.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.style1 {
color: #FFFFFF;
font-weight: bold;
}
.style2 {color: #CC0000}
-->
</style>
</head>
<body>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F2F2F2" class="tabel1">
<tr align="center">
<td width="100%" height="25" align="left" bgcolor="#CC0000"><input name="Submit" type="button" class="tabel1" value="论坛分类管理" onClick="window.location.href='bbsclass.asp'"> </td>
</tr>
<tr bgcolor="#F9F9F9">
<td align="center"> </td>
</tr>
<tr bgcolor="#F9F9F9">
<td height="25" align="center"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">
<%
sql="select * from oa_bbsclass where companyid="&session("companyid")&" order by sortid asc"
set rs=conn.execute(sql)
do while not rs.eof
%>
<tr>
<td width="5%" height="25" align="center" bgcolor="#99CCFF"><img src="img/forum_old.gif" width="15" height="14"></td>
<td width="95%" bgcolor="#99CCFF"><a href="morebbs.asp?bid=<%=rs("id")%>&uid=<%=rs("uid")%>"><%=rs("classname")%></a>
<input name="Submit2" type="button" class="bon" value="我要发贴" onClick="window.location.href='add_bbs.asp?bid=<%=rs("id")%>'"></td>
</tr>
<tr>
<td height="25" colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="1" class="table4">
<tr bgcolor="#DADADA">
<td width="5%" height="25"> </td>
<td width="52%" height="25" align="center">主题</td>
<td width="12%" height="25" align="center">作者</td>
<td width="11%" height="25" align="center">回复/查看</td>
<td width="20%" height="25" align="center">发表时间</td>
</tr>
<%
sql1="select top 6 * from oa_bbs where bid="&rs("id")&" order by id desc"
set rs1=conn.execute(sql1)
do while not rs1.eof
ssql="select count(id) from oa_replybbs where parentid="&rs1("id")
set srs=conn.execute(ssql)
replynum=srs(0)
srs.close
set srs=nothing
%>
<tr>
<td height="25" align="center"><img src="img/hot_red_folder.gif" width="16" height="20"></td>
<td height="25" align="left"><a href="viewbbs.asp?id=<%=rs1("id")%>&bid=<%=rs1("bid")%>"><%=rs1("title")%></a></td>
<td height="25" align="center"><%=rs1("uname")%></td>
<td height="25" align="center"><%=replynum%>/<%=rs1("hits")%></td>
<td height="25" align="center"><%=rs1("addtime")%></td>
</tr>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
</table></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -