boardskin1.asp

学生评教系统,可以实现学生评教,教师查分功能.

<%
	sub AnnounceList1()	
	'on error resume next

	sql="select bbs1.AnnounceID,bbs1.parentID,bbs1.boardID,bbs1.UserName,bbs1.child,bbs1.Topic,bbs1.DateAndTime,bbs1.hits,bbs1.RootID,bbs1.Expression,bbs1.times,bbs1.locktopic,board.lockboard from bbs1,board where bbs1.boardid=board.boardid and bbs1.boardID="&cstr(boardID)&" and bbs1.parentID=0 "&tl&" ORDER BY bbs1.times desc,bbs1.announceid desc"
	rs.open sql,conn,1,1
	if err.number<>0 then
		foundErr = true
		ErrMsg = "<li>数据库操作失败：" & err.description & "</li>"
	else
		if rs.bof and rs.eof then
			'论坛无内容
			call showEmptyBoard1()
			bBoardEmpty = true
		else
	      		totalrec=rs.recordcount 
	      		if totalrec mod MaxAnnouncePerPage=0 then
     				n= totalrec \ MaxAnnouncePerPage
  				else
     				n= totalrec \ MaxAnnouncePerPage+1
  				end if
      			if currentpage<1 then 
          			currentpage=1 
      			end if 

      			if (currentpage-1)*MaxAnnouncePerPage>totalrec then 
	   			if (totalrec mod MaxAnnouncePerPage)=0 then 
	     				currentpage= totalrec \ MaxAnnouncePerPage 
	   			else 
	      				currentpage= totalrec \ MaxAnnouncePerPage + 1 
	   			end if 
      			end if 
       			if currentPage=1 then 
            			call showpagelist1() 
       			else 
          			if (currentPage-1)*MaxAnnouncePerPage<totalrec then 
            				rs.move  (currentPage-1)*MaxAnnouncePerPage 
            				call showpagelist1() 
        			else 
	        			currentPage=1 
           				call showpagelist1() 
	      			end if 
	   		end if 
		end if
	end if				
		if err.number<>0 then err.clear	
	end sub
	REM 显示贴子列表	
	sub showPageList1()
	i=0
%>
<span id=forum>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="25%"><font color="#003399">主题总数:<b><%=totalrec%>&nbsp; <FONT color=#003399></b>当前显示：<B><%=currentpage*25-24%>－<%=currentpage*25%></B></FONT><b>&nbsp;</b></font></td> 
    <td width="75%"> 
      <p align="right"><a href="#"onClick="window.open('announce.asp?boardid=1&skin=1','caikuang','scrollbars=yes,resizable=yes,top=100,left=100,width=500,height=420')">[发表新贴]</a>   
      <a href="#">[BBS风格]</a>   <a href="#"onClick="window.open('reg.asp','caikuang','scrollbars=yes,resizable=yes,top=100,left=100,width=400,height=400')">[注册]</a>    
      <a href="#">[搜索帖子]</a>  
页码选择:    
 <%
    if currentpage=1 then
    %>首页 上页<%else     
    %><a href="javascript:viewPage1(1)" language="javascript">首页</a> <a href="javascript:viewPage1(<%=currentpage-1%>)" language="javascript">上页</a><%end if%>&nbsp;<%     
    if currentpage=n then
    %>下页 尾页<%else     
    %><a href="javascript:viewPage1(<%=currentpage+1%>)">下页</a> <a href="javascript:viewPage1(<%=n%>)">尾页</a><%end if %>   
    （第<strong><%=currentPage%></strong>页/共<strong><%=n%></strong>页）  
    </p>
 </td>
  </tr>
</table>
<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolorlight="#800000" bordercolordark="#800000">
<tr><td width="100%"><p align="center">
<table border=0 cellpadding=3 cellspacing=2 width="100%" class="table">

<tr bgcolor=#336600>
<td align=middle bgcolor=#800000 colspan=5 >
<p align="center"><font color="#FF3333" face="Webdings">6</font><font color="#FFFFFF">直接点击标题即可<b>在线</b>回复或查阅已回复贴子<font face="Webdings" color="#FF3333">6</font>
</font></p>
</td>
</tr>
<tr bgcolor=#cccccc>
<td align=center width="7%">回复</td>
<td align=center width="7%" nowrap>查阅</td>
<td align=left width="60%">
<p align=center class=sureyeah>主题 
</td>
<td align=left width="13%">
<p align=center>发言人</p>
</td>
<td align=left width="13%">
<div align="center">最后更新</div>
</td>
</tr>
<%
       do while not rs.eof
%>
<tr >
<td align=center width="7%" bgcolor="eeeeee">
<a title="红色此贴子回复人数，其他表示贴子编号及尚未有人回复"><font color="#FF6666">[<%=rs("child")%>]</font></a>
</td>
<td align=center bgcolor="eeeeee" width="7%"><%=rs("hits")%></td>
<td align=left bgcolor="eeeeee" width="60%">
<p><font color=<%=TableContent%>><a href="#"onClick="window.open('dispbbs.asp?boardID=<%=boardID%>&RootID=<%=rs("RootID")%>&ID=<%=rs("announceID")%>&skin=<%=skin%>','caikuang','scrollbars=yes,resizable=yes,top=20,left=20,width=650,height=450')"><%=htmlencode(rs("topic"))%></a>     
<%if rs("child")>Maxtitlelist then%>         
      &nbsp;&nbsp;[分页：         
<%
Pnum=Cint(rs("child")/Maxtitlelist)+1
for p=1 to Pnum
response.write " <a href='dispbbs.asp?boardID="&boardID&"&RootID="&rs("RootID")&"&ID="&rs("announceID")&"&star="&P&"&skin="&skin&"' target=_blank><b>"&p&"</b></a> "
next
%>
]         
<%end if%></font>
</p>
</td>
<td align=left width="13%" bgcolor="eeeeee" nowrap>
<p align=left><%=htmlencode(rs("username"))%></p>
</td>
<td align=left width="13%" bgcolor="eeeeee" nowrap>
<%
on error resume next
set Ers=conn.execute("select username,dateandtime from bbs1 where announceid="&rs("times")&"")
response.write ""&FormatDateTime(rs("dateandtime"),2)&"&nbsp;"&FormatDateTime(rs("dateandtime"),4)&""
%></td>
</tr>
<%
i=i+1
if i>=MaxAnnouncePerPage then exit do
rs.movenext
loop
rs.close
%>
</table></td></tr></table>
<%
		if err.number<>0 then err.clear
	end sub

	sub listPages3()
	'on error resume next

%>
<table border="0" cellpadding="0" cellspacing="3" width="100%" align="center">
<form method="post" action="list.asp" name="frmList2">
        <input type=hidden name="selTimeLimit" value="<%=request("selTimeLimit")%>">
        <input type=hidden name="skin" value="<%=skin%>">
  <tr>
    <td valign="middle" nowrap><span class="smallFont">页次：<strong><%=currentPage%></strong>/<strong><%=n%></strong>页 每页<strong><%=MaxAnnouncePerPage%></strong> 总贴数<strong><%=allarticle()%></strong></span></td>  
    <td valign="middle" nowrap>
      <div align="right"><p>分页：  
<%
	   for p=1 to n
	   if p<10 then
	       if p=currentPage then
	          response.write "["+Cstr(p)+"] "
		   else
		      response.write "<a href='javascript:viewPage2("+Cstr(p)+")' language='javascript'>["+Cstr(p)+"]</a>   "
		   end if
		end if
	next
%>
<span class="smallFont">转到:<input type="text" name="Page" size=3 maxlength=10  value="<%=currentpage%>"><input type="button" value="Go" language="javascript" onclick="viewPage1(document.frmList2.Page.value)" id="button1" name="button1"></span></p>        
      </div>    
    </td>
  </tr>
<input type="hidden" name="BoardID" value="<%=BoardID%>">
</form>
</table>

<%		if err.number<>0 then err.clear
	end sub 

	sub showEmptyBoard1()
%>
<TABLE bgColor='<%=Tableback%>' border=0 cellPadding=4 cellSpacing=1 width="100%" align=center>
  <TBODY>
  <TR bgColor='<%=Tabletitle%>'>
    <TD align=middle noWrap height=25><font color=<%=TableFont%>>状态</font></TD> 
    <TD align=middle noWrap><font color=<%=TableFont%>>主 题  (点心情符为开新窗浏览)</font></TD>   
    <TD align=middle noWrap><font color=<%=TableFont%>>作 者 </font></TD>   
    <TD align=middle noWrap><font color=<%=TableFont%>>回复/人气</font></TD> 
    <TD align=middle noWrap><font color=<%=TableFont%>>最新回复</font></TD></TR> 
  <tr bgColor="<%=Tablebody%>"><td colSpan=5 vAlign=center width="100%"><li>本论坛暂无内容，欢迎发贴。<li>或者在您选择的查询条件下没有相关贴子，请重新指定条件。</td></tr>
</TBODY></TABLE>
<%
	rs.close
	end sub
%>