main.asp

基于asp的 班级同学录主页源代码

<!--#include file="connbbs.asp"-->
<!--#include file="../const.asp"-->
<%
bbsid=request("bbsid")
set rs=server.createobject("ADODB.recordset")
sql="select * from bbslist where id="&trim(bbsid)&" order by id desc"
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
bbsname=rs("bbsname")
lock=rs("lock")
bbsadmin=rs("bbsadmin")
pagecount=rs("pagecount")
bbsimage=rs("bbsimage")
bbsinfo=rs("bbsinfo")
end if
rs.close
%>
<!--#include file="top.asp"-->
<table class=bk width=100% bgcolor=#ffffff cellpadding="0" cellspacing="0">
<%
Set rs1= Server.CreateObject("ADODB.Recordset")
if request("bbsid")="" then
response.write "请选择论坛分类"
else
sql1="select * from bbs where bbsid="&request("bbsid")&" and rootid=0"
if request("best")<>1 then
sql1=sql1&" order by id desc"
else
sql1=sql1&" and best=1 order by id desc"
end if
end if
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,3
if not rs1.eof then
totalcount=rs1.recordcount
maxpage=pagecount
page=request("page")
if page="" or page<1 then
page=1
end if
if (totalcount mod maxpage)=0 then
pagecount=totalcount\maxpage
else
pagecount=totalcount\maxpage+1
end if
if Page=1 then
rs1.movefirst
showContent
showpage totalcount,maxpage,"main.asp"
elseif (page-1)*maxpage<totalcount then
rs1.move  (page-1)*maxpage
showContent
showpage totalcount,maxpage,"main.asp"
else
page=1
showContent
showpage totalcount,maxpage,"main.asp"
end if
rs1.close
	
set rs1=nothing
conn.close
set conn=nothing
sub showContent
dim i
i=1
%>
<table width=100% border=0 bgcolor=#ffffff class=bk cellspacing="0" cellpadding="0">
<tr><td align=left valign=middle class=xy width=300  bgcolor="#C4D0DF">&nbsp<img src="../image/jiao.gif"><a href="../main.asp">班级首页</a>>><a href="index.asp">班级论坛</a>><a href="main.asp?bbsid=<%=trim(request("bbsid"))%>"><%=bbsname%></a></td><td bgcolor="#C4D0DF" class=x>&nbsp管理员列表:<%if trim(bbsadmin)="" then%>
<font color="#FFCC00">就等你来当啊</font>
<%else
addminstr=bbsadmin
if instr(bbsadmin,"|"&session("user")&"|")>0 then
admin="true"
else
end if
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 height=30><td class=y>&nbsp&nbsp<a href="newarticle.asp?bbsid=<%=bbsid%>"><img src="image/postnew.gif" border=0></a>&nbsp<img src="image/votenew.gif" border=0">&nbsp<a href="main.asp?bbsid=<%=bbsid%>&best=1"><img src="image/jinghua1.gif" border=0></a></td><form action="main.asp" method="post"><td width="*" nowrap align="right"><input type=hidden name="forum_id" value="1"><select name="sdt"><option value="all" selected>查看所有的主题<option value="1">查看一天内的主题<option value="2">查看两天内的主题<option value="7">查看一星期内的主题<option value="15">查看半个月内的主题<option value="30">查看一个月内的主题<option value="60">查看两个月内的主题<option value="180">查看半年内的主题</select><input type="image" border="0" name="imageField" src="image/go.gif"></td></form></tr>
</table>
<table width=100% cellpadding="0" cellspacing="0" border="0" bgcolor=#ffffff class=xzy>
<tr bgcolor=#7C96B8 align=center>
<td width=10% class=y><b>状态</b></td><td width=40% class=y><b>标题</b></td><td width=10% class=y><b>作者</b></td>
<td width=8% class=y><b>回复</b></td><td width=8% class=y><b>点击</b></td><td width=20%><b>最后发表时间-发表人</b></td></tr>
<% if session("sex")=cstr(lock) then%>
<table width=100% cellpadding="0" cellspacing="0" border="0" bgcolor=#ffffff class=xzy height=300><tr bgcolor=#ffffff><td align=center>对不起，你无权查看该论坛！请返回.</td></tr></table>
<%else
do while not rs1.eof
nowtime=now()
arttime=month(rs1("lasttime"))&"-"&day(rs1("lasttime"))&" "&hour(rs1("lasttime"))&":"&minute(rs1("lasttime"))
%>
<tr width=100% align=center>
<td width=10% bgcolor="#C4D0DF" class=ys>
<% if rs1("locktitle")=1 then
response.write "<img src=image/lock.gif>"
elseif datediff("s",arttime,nowtime)<300 and rs1("replycount")>14 then
response.write "<img src=image/newhot.gif>"
elseif datediff("s",arttime,nowtime)<300 and rs1("hits")>149 then
response.write "<img src=image/newhot.gif>"
elseif datediff("s",arttime,nowtime)<300 then
response.write "<img src=image/new.gif>"
elseif rs1("replycount")>14 or rs1("hits")>149 then
response.write "<img src=image/oldhot.gif>"
else
response.write "<img src=image/old.gif>"
end if%></td>
<td align=left width="40%" bgcolor=#ffffff class=ys onmouseover="this.bgColor='#C4D0DF';" onmouseout="this.bgColor='#FFFFFF';"><a href="showarticle.asp?articleid=<%=rs1("id")%>&bbsid=<%=bbsid%>" target="_blank"><img src="<%=rs1("titleimg")%>" border=0></a><a href="showarticle.asp?articleid=<%=rs1("id")%>&bbsid=<%=bbsid%>"><%=rs1("title")%></a>&nbsp&nbsp<% if admin="true" or session("user")=sysadmin then%>|<a href="edit.asp?articleid=<%=rs1("id")%>&bbsid=<%=bbsid%>" target="_blank">改</a>|<a href="javascript:openwin('del.asp?articleid=<%=rs1("id")%>&bbsid=<%=bbsid%>',300,200)">删</a>|<a href="javascript:openwin('move.asp?articleid=<%=rs1("id")%>&bbsid=<%=bbsid%>',300,200)">移</a>|<a href="javascript:openwin('best.asp?articleid=<%=rs1("id")%>&bbsid=<%=bbsid%>',300,200)"><%if rs1("best")=1 then%><font color=red>精</font><%else%>精<%end if%></a>|
<% if rs1("locktitle")=1 then%>
<a href="javascript:openwin('lock.asp?articleid=<%=rs1("id")%>&bbsid=<%=bbsid%>',300,200)">解</a>|
<% else%>
<a href="javascript:openwin('lock.asp?articleid=<%=rs1("id")%>&bbsid=<%=bbsid%>',300,200)">锁</a>|
<%end if%><%end if%></td>
<td width=10% align="center" bgcolor="#C4D0DF" class=ys><%=rs1("user")%></td>
<td width="8%" align="center" class=ys><%=rs1("replycount")%></td>
<td width="8%" align="center" bgcolor="#C4D0DF" class=ys><%=rs1("hits")%></td>
<td width="20%"align="center" class=s><%=arttime%>&nbsp by-<% if rs1("lastpostuser")<>"" then
response.write rs1("lastpostuser")
end if%></td>
</tr>
<% i=i+1
if i>maxpage then exit do
rs1.movenext
loop
%></table>
<%
end if
end sub%>
<%else%>
<table width=100% border=0 bgcolor=#ffffff class=bk cellspacing="0" cellpadding="0">
<tr><td align=left valign=middle class=xy width=300  bgcolor="#C4D0DF">&nbsp<img src="../image/jiao.gif"><a href="../main.asp">班级首页</a>>><a href="index.asp">班级论坛</a>><a href="main.asp?bbsid=<%=trim(request("bbsid"))%>"><%=bbsname%></a></td><td bgcolor="#C4D0DF" class=x>&nbsp管理员列表:<%if trim(bbsadmin)="" then%>
<font color="#FFCC00">就等你来当啊</font>
<%else
addminstr=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=''>"&bbsadmin&"</a>&nbsp&nbsp"
Loop
end if%></td></tr>
<tr height=30><td class=y>&nbsp&nbsp<a href="newarticle.asp?bbsid=<%=request("bbsid")%>"><img src="image/postnew.gif" border=0></a>&nbsp<img src="image/votenew.gif" border=0">&nbsp<img src="image/jinghua1.gif" border=0></td><form action="main.asp" method="post"><td width="*" nowrap align="right"><input type=hidden name="forum_id" value="1"><select name="sdt"><option value="all" selected>查看所有的主题<option value="1">查看一天内的主题<option value="2">查看两天内的主题<option value="7">查看一星期内的主题<option value="15">查看半个月内的主题<option value="30">查看一个月内的主题<option value="60">查看两个月内的主题<option value="180">查看半年内的主题</select><input type="image" border="0" name="imageField" src="image/go.gif"></td></form></tr>
</table>
<table width=100% cellpadding="0" cellspacing="0" border="0" bgcolor=#ffffff class=xzy>
<tr bgcolor=#7C96B8 align=center>
<td width=10% class=y><b>状态</b></td><td width=40% class=y><b>标题</b></td><td width=10% class=y><b>作者</b></td>
<td width=8% class=y><b>回复</b></td><td width=8% class=y><b>点击</b></td><td width=20%><b>最后发表时间-发表人</b></td></tr>
<tr width=100%>
<td colspan=6 align="center" class=s align=center height=100>没有记录</td>
</tr> </table>
<% end if%>
<%
function showpage(totalcount,maxpage,filename)
dim n
if totalcount mod maxpage=0 then
n= totalcount \ maxpage
else
n= totalcount \ maxpage+1
end if
response.write "<table class=xzy width=100%' bgcolor=#ffffff><tr><td><form method=Post action="&filename&"?bbsid="&request("bbsid")&">"
response.write "<p align='center'><font color='red'></font>&nbsp;"
if Page<2 then
response.write "<font color='#000080'>首页 上一页</font>&nbsp;"
else
response.write "<a href="&filename&"?page=1&bbsid="&request("bbsid")&">首页</a>&nbsp;"
response.write "<a href="&filename&"?page="&Page-1&"&bbsid="&request("bbsid")&">上一页</a>&nbsp;"
end if
if n-page<1 then
response.write "<font color='#000080'>下一页 尾页</font>"
else
response.write "<a href="&filename&"?page="&(Page+1)&"&bbsid="&request("bbsid")&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&bbsid="&request("bbsid")&">尾页</a>"
end if
response.write "<font color='#000080'>&nbsp;页次：</font><strong><font color=red>"&Page&"</font><font color='#000080'>/"&n&"</strong>页</font> "
response.write "<font color='#000080'>&nbsp;共<b>"&totalcount&"</b> 条记录<b>&nbsp"&maxpage&"</b>条记录/页</font> "
response.write " <font color='#000080'>转到：</font></td><td><input type='text' name='page' value="&page&" size='2' class=buttonface>"

response.write "</td><td valign=buttom><input type='image'  src='../image/alumni_search.gif'></td></form></tr></table>"
end function
%>
</table>
<!--#include file="../end.asp"-->