📄 right.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin_conn.asp" -->
<%
Dim rs1__MMColParam
rs1__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then
rs1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs1
Dim rs1_numRows
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_adminconn_STRING
rs1.Source = "SELECT * FROM bbs WHERE bbs_jb = " + Replace(rs1__MMColParam, "'", "''") + " ORDER BY bbs_id DESC"
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 1
rs1.Open()
rs1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 6
Repeat1__index = 0
rs1_numRows = rs1_numRows + Repeat1__numRows
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<base onmouseover="window.status='欢迎使用有L.Y.Z开发的学生社团管理网络平台';return true"><LINK href="all.css" rel=StyleSheet type=text/css>
</head>
<body topmargin="2">
<table width="100%" border="1" cellspacing="0" bordercolor="#009900" >
<tr bgcolor="#B1DB99"><td width="65%">
公告&通知：</td><td colspan="2">
<%
if request.Cookies("user")="管理员" or request.Cookies("user")="会长" then
%>
<a href="new.asp?id=1">发新公告或通知</a>
<%
end if
%>
</td></tr>
<tr bgcolor="#cbe6b9" >
<td>主题</td>
<td width="14%">日期</td>
<td width="21%">From</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT rs1.EOF))
%>
<tr bgcolor="#E7FDE3">
<td><a href=tzh_show.asp?id=<%=(rs1.Fields.Item("bbs_id").Value)%>><%=Left((rs1.Fields.Item("bbs_top").Value),20)%></a></td>
<td><%=(rs1.Fields.Item("bbs_date").Value)%></td>
<td><%=(rs1.Fields.Item("bbs_writer").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs1.MoveNext()
Wend
%>
<tr align="right" bgcolor="#cbe6b9" >
<td colspan="3"><a href="more.asp?id=1">More>>></a> </td>
</tr>
</table><br>
<table width="100%" border="1" cellspacing="0" bordercolor="#009900">
<tr bgcolor="#B1DB99"><td width="65%">
普通贴：</td><td width="14%"> </td><td width="21%"><a href="new.asp?id=0">发新贴</a>
</td></tr><tr bgcolor="#cbe6b9" >
<td>主题</td>
<td>日期</td>
<td>From</td>
</tr>
<%
rs1.Close()
Set rs1 = Nothing
rs1__MMColParam = "0"
If (Request("MM_EmptyValue") <> "") Then
rs1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_adminconn_STRING
rs1.Source = "SELECT * FROM bbs WHERE bbs_toid = 0 and bbs_jb = " + Replace(rs1__MMColParam, "'", "''")+ " ORDER BY bbs_id DESC"
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 1
rs1.Open()
rs1_numRows = 0
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = 10
Repeat2__index = 0
rs1_numRows = rs1_numRows + Repeat2__numRows
While ((Repeat2__numRows <> 0) AND (NOT rs1.EOF))
%>
<tr bgcolor="#E7FDE3">
<td><a href=tie_show.asp?id=<%=(rs1.Fields.Item("bbs_id").Value)%>><%=Left((rs1.Fields.Item("bbs_top").Value),20)%></a></td>
<td><%=(rs1.Fields.Item("bbs_date").Value)%></td>
<td><a href="hy_look.asp?hyid=<%=(rs1.Fields.Item("bbs_writer").Value)%>"><%=(rs1.Fields.Item("bbs_writer").Value)%></a></td>
</tr>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
rs1.MoveNext()
Wend
%>
<tr align="right" bgcolor="#cbe6b9" >
<td colspan="3"><a href="more.asp?id=0">More>>></a></td>
</tr>
</table>
</body>
</html>
<%
rs1.Close()
Set rs1 = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -