gg.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="head.asp"-->
<!--#include file="UbbCode.asp"-->
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid" 
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff>
  <TBODY>
  <TR vAlign=top>
    <TD width=200 bgColor=#f4f4f4>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD vAlign=top height=350>
            <TABLE id=AutoNumber4 cellSpacing=0 cellPadding=0 width="90%" 
            align=center border=0>
              <TBODY>
              <TR>
                <TD align=middle width="100%"><IMG height=8 alt="" 
                  src="image/stu.htm" width=1 name=""></TD></TR></TBODY></TABLE>
           
            <TABLE 
            style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid" 
            cellSpacing=0 cellPadding=0 width="90%" align=center 
bgColor=#ffffff>
              <TBODY>
              <TR>
                <TD>
                  <DIV align=center><STRONG><FONT color=#000000><IMG height=40 
                  src="image/vreg.gif" 
                width=180></FONT></STRONG></DIV></TD></TR>
              <TR>
                <TD>
                  <TABLE id=AutoNumber4 cellSpacing=6 cellPadding=0 width="100%" 
                  align=center bgColor=#ffffff>
                    <TBODY>
                    <TR>
                      <TD align=middle width="100%" bgColor=#ffffff 
                        height=20>大家好，终于把网站完工了。</TD>
                    </TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
    <TD bgColor=#cccccc><IMG height=1 alt="" src="image/stu.htm" width=1 
      name=""></TD>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
      bgColor=#ffffff border=0>
        <TBODY>
        <TR>
          <TD height=8 bgColor=#f4f4f4></TD></TR>
          <TD>
 <TABLE id=AutoNumber3 style="BORDER-COLLAPSE: collapse" 
            cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=top height=52>
                  <TABLE id=AutoNumber5 style="BORDER-COLLAPSE: collapse" 
                  borderColor=#111111 cellSpacing=0 cellPadding=3 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=6 width=495 background=image/type_bg.gif 
                      height=30><IMG height=12 src="image/type01.gif" width=12 
                        align=absMiddle> <a href="index.asp"><font color="#FF6699">网站首页</font></a> - <a href="gg.asp"><font color="#FF6699">公告</font></a></TD>
                      <TD width=100 background=image/type_bg.gif>
                        <DIV align=center><IMG 
                        src="image/more.gif" 
                    border=0></DIV></TD></TR><TR>
                      <TD colSpan=2>
                        <DIV align=center>
                        <TABLE width="98%" border=1 cellPadding=1 cellSpacing=1 bordercolor="#FFEFD6" background=image/line1.gif>
						  <%
dim sql,czgg,cur,rowcount,i
czgg=request.form("czgg")
Set rs = Server.CreateObject("ADODB.recordset")
sql="select * from gg where class='1' order by date desc"
cur=request.form("cur")
if cur="" then
cur=1
end if
rs.pagesize=10
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td>没有信息</td></tr>"
else
rs.absolutepage=cint(cur)
rowcount=0
do while not rs.eof and rowcount<rs.pagesize%>
                          <TR bgcolor="#F7E3AD">
                            <TD width="66%" height=20><span style="color: #000000"><IMG height=8 
                              src="image/arrow02.gif" width=8> <font color=#0><font color="#ff0000">主题：<%=rs("title")%></font></font></span>
                              <DIV align=center><span style="color: #000000"></span></DIV>
                              <DIV align=center style="color: #000000">
                                  <div align="left"></div>
                              </DIV></TD>
                            <TD width="34%"><span style="color: #000000">日期：<l><font 
                              class=middle ?ùê?1><%=rs("date")%></font></l></span> </TD>
                          </TR>
							  <TR>
                            <TD height=20 colspan="2"><L><FONT color=#0>　　            
<%Response.Write	BadWords_Deal(UBBCode(rs("content"),2))%>
</FONT></L>
                            </TD>
                            </TR>
							<%rowcount=rowcount+1
				rs.movenext
      loop %></TABLE>
                        <table width="98%"  border="0">
  <tr><form name="form2" method="post" action="gg.asp">
    <TD align=left bgcolor="#F8EFD4"><div align="center"><span class="style2">共<%=rs.recordcount%>条 分 <%=rs.pagecount%>页 每页20条 当前页次： <%=cur%>/<%=rs.pagecount%> 转到：
            <select name="cur" size="1" onchange="javascript:submit()">
      <%for i = 1 to rs.pagecount%>              
        <option value="<%=i%>" <%if i=cint(cur) then%> selected <%end if%>>第<%=i%>页 </option>   
        <%next%> 
                        </select>
                        <%
  rs.close
	 set rs=nothing%>
    </span></div></td>
  </form>
  </tr>
  <%end if%>
</table></DIV></td></TR></TBODY>
                  </TABLE>
                 </TD></TR></TBODY></TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="bottom.asp"--></BODY></HTML>