index.asp

来自「基于asp的 班级同学录主页源代码」· ASP 代码 · 共 72 行

<!--#include file="connbbs.asp"-->
<!--#include file="../const.asp"-->
<%
set rs=server.createobject("ADODB.recordset")
sql="select id,bbsname,bbsimage,bbsinfo,bbsadmin,article,reply from bbslist  order by id"
rs.open sql,conn,1,1
%>
<!--#include file="top.asp"-->
<table class=bk width=100% bgcolor=#ffffff cellpadding="0" cellspacing="0">
<tr>
<td width=22%><img src="../image/pepole.GIF" width="80" height="263"></td>
<td class=z align="center" valign="top" rowspan="3"><br><%if session("user")=sysadmin then%><a href="newbbs.asp" target="_blank">增加论坛</a><%end if%>
<table class=bk width=95% cellspacing="0" cellpadding="0">
<% do while not rs.eof%>
<tr widht=100% bgcolor=#7C96B8 height=20>
<td height="20" valign="middle"  class=x width=120>
&nbsp;<img src="../image/crate.gif"><a href="main.asp?bbsid=<%=rs("id")%>"><font color="#ffffff"><b><%=rs("bbsname")%></b></font></a></td>
<td height="20"  class=xz bgcolor="#7C96B8">&nbsp&nbsp<font color="#FFFFFF">现任版主:</font>
<%if trim(rs("bbsadmin"))="" then%>
<font color="#FFCC00">就等你来当啊</font>
<%else
addminstr=rs("bbsadmin")
addminstr=right(addminstr,len(addminstr)-1)
do while instr(addminstr,"|")>0
bbsadmin=left(addminstr,instr(addminstr,"|")-1)
addminstr=right(addminstr,len(addminstr)-instr(addminstr,"|"))
response.write "&nbsp&nbsp<a href='../userinfo.asp?user="&bbsadmin&"'>"&bbsadmin&"</a>&nbsp&nbsp"
Loop
end if%>
</td>
</tr>
<tr>
<td align=center class=x><br>
<%if trim(rs("bbsimage"))<>"" then
response.write "<a href='main.asp?bbsid="&rs("id")&"'><img src="&rs("bbsimage")&" border=0></a>"
end if%>
<br>
</td>
<td class=xz align="center" bgcolor="#C4D0DF">
<table width=95%>
<tr>
<td><%=rs("bbsinfo")%></td>
</tr>
</table>
<br>
<table width="100%" border="0" class=s height=10>
<tr>
<td><%if session("user")=sysadmin then%><a href="javascript:openwin('updatebbs.asp?bbsid=<%=rs("id")%>',400,300)">更新论坛</a>&nbsp&nbsp<a href="javascript:openwin('delbbs.asp?bbsid=<%=rs("id")%>',300,200)">删除论坛</a><%end if%></td>
</tr>
</table>
</td>
</tr>
<% rs.movenext
Loop
%></table>
</td>
</tr>
<tr>
<td width=22% bgcolor="#7C96B8" align="center"><font color="#FFFFFF">论&nbsp;坛&nbsp;说&nbsp;明</font></td>
</tr>
<tr>
<td width=22% bgcolor="#C4D0DF" valign="top"><br>&nbsp;&nbsp;&nbsp;&nbsp;
请大家遵守文明规则，不要在论坛上攻击别人。<br>
&nbsp&nbsp发一份贴子 +2分<br>
&nbsp&nbsp被删一份贴子 -3分<br>
&nbsp&nbsp成为精华贴 +5分 <br><br></td>
</tr>
</table>
<%rs.close
conn.close
set conn=nothing%>
<!--#include file="../end.asp"-->