📄 browsebbssubject.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>资源管理系统</title>
</head>
<script language="JavaScript">
function delRole(roleID)
{
if(confirm("真的要删除吗?"))
window.location="delRole.asp?roleID="+roleID;
}
</script>
<body>
<%
dim bbsID,authorID,title,bbsT ,menuID
menuID=request("menuID")
%>
<p><font color="#FF9900"><strong>>> 论坛</strong></font>
<a href="addSubject0.asp?menuID=<%=menuID%>">新增主题</a></p>
<table width="100%" border="1" cellspacing="0" bordercolor="#FFAC75">
<tr bgcolor="#99CCFF">
<td width="30%" height="32"> <div align="center"><strong><font color="#006600">标题</font></strong></div></td>
<td width="30%"><strong><font color="#006600">作者</font></strong></td>
<td width="20%"><div align="center"><strong><font color="#006600">时间</font></strong></div></td>
<td width="20%"><div align="center"><strong><font color="#006600">回复</font></strong></div></td>
</tr>
<%
set conn = server.CreateObject("adodb.connection")
conn.open"DBSource","sa",""
set rs = conn.execute("select bbs_id,author_id,bbs_title,bbs_time from TBbs where parent_id=0")
do until rs.eof
bbsID=rs("bbs_id")
authorID=rs("author_id")
title=rs("bbs_title")
bbsT=rs("bbs_time")
author="暂无"
set rs1 = conn.execute("select real_name from TUser where user_id="&authorID)
if not rs1.eof then
author=rs1("real_name")
end if
%>
<tr bgcolor="#DDEEFF">
<td> <div align="center"><font color="#006600"><a href="bbsContent.asp?bbsID=<%=bbsID%>"><%=title%></a></font></div></td>
<td><%=author%> </td>
<td><%=bbsT%></td>
<td> <img src="image/edit.gif" width="15" height="15" border="0"></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -