📄 gg.asp
字号:
<!--#include file="bjhead.asp"-->
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid"
cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff>
<TBODY>
<TR vAlign=top>
<TD width=182 bgColor=#f4f4f4>
<TABLE cellSpacing=0 cellPadding=0 width="49%" 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 id=AutoNumber4
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="77%" align=center
bgColor=#ffffff>
<TBODY>
<TR>
<TD align=middle width="100%"><IMG height=40
src="../image/vgg.gif" width=180></TD>
</TR>
<TR>
<TD align=middle><IMG height=8 alt="" src="../image/stu.htm"
width=1 name=""></TD></TR>
<TR>
<TD align=middle>
<TABLE cellSpacing=0 cellPadding=0 width="80%" align=center
border=0>
<TBODY>
<TR>
<FORM name=myform action="" method=post>
<TD>
<DIV align=center><INPUT maxLength=50
size=10 name=czgg>
<INPUT type=submit value=搜索 name=Submit>
</DIV></TD></FORM></TR></TBODY></TABLE></TD></TR>
<TR>
<TD align=middle><IMG height=8 alt="" src="../image/stu.htm"
width=1 name=""></TD></TR></TBODY></TABLE>
<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="100%" 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 width="10" bgColor=#cccccc><IMG height=1 alt="" src="../image/stu.htm" width=1
name=""></TD>
<TD width="566">
<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=500
height=30><IMG height=12 src="../image/type01.gif" width=12
align=absMiddle> <span style="color: #CC3300">当前位置</span>: <A
href="index.asp?clas=<%=session("clas")%>"><font color="#FF6699"><%=session("clas")%>首页</font></A> - <span style="color: #FF99CC">班级公告</span></TD>
<TD width=54>
<DIV align=center><IMG
src="../image/more.gif"
border=0></DIV></TD></TR>
<TR>
<TD colSpan=2>
<DIV align=center>
<%
dim sql,czgg,cur,rowcount,i
czgg=request.form("czgg")
clas=Session("clas")
Set rs = Server.CreateObject("ADODB.recordset")
if czgg="" then
sql="select * from gg where class='"&clas&"' order by date desc"
else
sql="select * from gg where content like '%"&czgg&"%' and class='" &clas& "' order by date desc"
end if
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 "没有新的公告"
else
rs.absolutepage=cint(cur)
rowcount=0%>
<TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
<TBODY>
<%do while not rs.eof and rowcount<rs.pagesize%>
<TR bgcolor="#99CCFF">
<TD width="49%" height=20 bgcolor="#FEEA93"><span style="color: #000000"><IMG height=8
src="../image/arrow02.gif" width=8> <L><%=rs("title")%></L></span></TD>
<TD width="23%" align=right bgcolor="#FEEA93">
<DIV align=center><span style="color: #000000"></span></DIV></TD>
<TD width="28%" align=left bgcolor="#FEEA93"> <DIV align=center style="color: #000000"><FONT
class=middle><%=rs("date")%></FONT></DIV></TD>
</TR>
<TR>
<TD height=20 colspan="3"><IMG height=8
src="../image/arrow02.gif" width=8> <L><FONT color=#0>
<%Response.Write BadWords_Deal(UBBCode(rs("content"),2))%>
</FONT></L>
</TD>
</TR>
<%rowcount=rowcount+1
rs.movenext
loop %>
</TBODY></TABLE>
<table width="98%" border="0">
<tr><form name="form2" method="post" action="">
<TD align=left><span class="style2">共<%=rs.recordcount%>条 分 <%=rs.pagecount%>页 当前页次 : <%=cur%>/<%=rs.pagecount%>转到:
<select name="cur" size="1" onchange="javascript:submit()">
<option value="<%=i%>">第<%=i%>页</option>
<%for i = 1 to rs.pagecount%>
<%next%>
</select>
</span></td>
</form>
</tr>
</table><%
end if
rs.close
set rs=nothing%>
</DIV></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="../bottom.asp"--></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -