📄 bigclassdeta.asp
字号:
<%@ Language=VBScript%>
<!--#include file=include/conn.asp -->
<!--#include file=include/config.asp -->
<!--#include file=include/function.asp-->
<!--#include file="admin/char.inc"-->
<%
typeid=request("typeid")
request_BigClassID=Request.QueryString("BigClassID")
if typeid="" or request_bigclassid="" then
Response.Write "<script>alert('未指定参数');history.back()</script>"
response.end
else
if not IsNumeric(request_bigclassid) or not IsNumeric(typeid) then
response.write "<script>alert('非法参数');history.back()</script>"
response.end
else
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from BigClass where bigclassid=" & request_BigClassID &" order by BigClassorder"
rs.Open rs.Source,conn,1,1
bigclassname=rs("bigclassname")
rs.close
set rs=nothing
PageShowSize = 10 '每页显示多少个页
MyPageSize = 20 '每页显示多少条新闻
If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
MyPage=1
Else
MyPage=Int(Abs(Request("page")))
End if
end if
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from BigClass where typeid=" & typeid &" order by BigClassorder"
rs.Open rs.Source,conn,1,1
dim ArrayBigClassID(10000),ArrayBigClassName(10000)
BigClassCount=rs.RecordCount
for i=1 to BigClassCount
ArrayBigClassID(i)=rs("BigClassID")
ArrayBigClassName(i)=trim(rs("BigClassName"))
rs.MoveNext
next
set rs2=server.CreateObject("ADODB.RecordSet") '专题
rs2.Source="select Top "& top_sp &" * from Special order by SpecialID DESC "
rs2.Open rs2.Source,conn,1,1
set rs4=server.CreateObject("Adodb.RecordSet")
rs4.source="select * from SmallClass Where BigClassid=" & request_BigClassid &" order by SmallClassorder"
rs4.open rs4.source,conn,1,1
SmallClassCount=rs4.RecordCount
dim ArraySmallClassID(10000),ArraySmallClassName(10000)
for i=1 to SmallClassCount
ArraySmallClassID(i)=rs4("SmallClassID")
ArraySmallClassName(i)=trim(rs4("SmallClassName"))
rs4.MoveNext
next
rs4.Close
set rs4=nothing
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=BigClassName%>__※社区天地※</title>
<style type="text/css">
<!--
body {
background-color: #0065CA;
margin-left: 0px;
margin-top: 0px;
}
-->
</style>
<meta name="keywords" content="一切为了学生，为了学生的一切！">
<meta name="description" content="一切为了学生，为了学生的一切！">
<script language=JavaScript>
<!--
//
var version = "other"
browserName = navigator.appName;
browserVer = parseInt(navigator.appVersion);
if (browserName == "Netscape" && browserVer >= 3) version = "n3";
else if (browserName == "Netscape" && browserVer < 3) version = "n2";
else if (browserName == "Microsoft Internet Explorer" && browserVer >= 4) version = "e4";
else if (browserName == "Microsoft Internet Explorer" && browserVer < 4) version = "e3";
function marquee1()
{
if (version == "e4")
{
document.write("<marquee style='BOTTOM: 0px; FONT-WEIGHT: 100px; HEIGHT:60px; TEXT-ALIGN: left; TOP: 0px' id='news' scrollamount='1' scrolldelay='10' behavior='loop' direction='up' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
}
}
function marquee2()
{
if (version == "e4")
{
document.write("</marquee>")
}
}
//-->
</script>
<link href="imgs/send.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #024589}
.style2 {color: #0066FF}
.style5 {color: #FF0000}
.style6 {color: #0000FF}
.style7 {color: #FF3300}
.style8 {color: #000000}
-->
</style>
<style type="text/css">
body
{
scrollbar-face-color: #6BB6FF;
scrollbar-highlight-color: #298AFF;
scrollbar-shadow-color: #CAEBFF;
scrollbar-arrow-color: #CAEBFF;
scrollbar-base-color: #CAEBFF;
scrollbar-dark-shadow-color: #CAEBFF;
}
</style>
<script>
function ow(obj) {
URL=obj.href;
window.open(URL,'','width=798,height=530,scrollbars=yes,toolbars=no,status=no,menubar=no,resizable=no');
return false;
}
</script>
</head>
<body oncontextmenu="return false" ondragstart="return false" onselectstart ="return false" onselect="document.selection.empty()" oncopy="document.selection.empty()" onbeforecopy="return false">
<%
dim mode
typeid=checkstr(request("typeid"))
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type where typeid="&typeid&" order by typeorder"
rs.Open rs.Source,conn,1,1
mode=rs("mode")
rs.close
set rs=nothing
%>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 height=236 width=773>
<TBODY>
<TR>
<TD background="imgs/logo.jpg"
width=223 align="right" valign="bottom">
<p align="center">
<object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj2" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="184" height="139">
<param name="movie" value="imgs/other06.swf">
<param name="quality" value="High">
<param name="salign" value="T">
<param name="wmode" value="transparent">
<embed src="imgs/other06.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj2" width="184" height="139" quality="High" salign="T" wmode="transparent"></object>
<FONT size=2 style="FONT-SIZE: 10pt">
<br><br><br></FONT></TD>
<TD background="imgs/bannr01.jpg"
width=333 valign="bottom">
<p align="center">
<object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="100%" height="102">
<param name="movie" value="imgs/feiniao1.swf">
<param name="quality" value="High">
<param name="scale" value="ExactFit">
<param name="wmode" value="transparent">
<param name="salign" value="R">
<embed src="imgs/feiniao1.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="100%" height="102" quality="High" scale="ExactFit" wmode="transparent" salign="R"></object>
<br><br></TD>
<TD background="imgs/bannr02.jpg"
vAlign=top width=217><map name="FPMap2">
<area coords="166,127,44" shape="circle" href="2smarket.asp">
<area coords="51,52,44" shape="circle" href="qgzx.asp">
</map>
<IMG border=0 height=230
src="imgs/tm.gif" useMap=#FPMap2
width=217></TD>
</TR></TBODY></TABLE>
<table width="773" border="0" align="center" cellpadding="0" cellspacing="0" height="470">
<tr>
<td width="194" height="470" valign="top" background="imgs/left_bg.jpg"><table width="194" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="24" height="58" background="imgs/left_01-1.jpg"> </td>
<td width="15" background="imgs/left_01-2.jpg"> </td>
<td width="148" background="imgs/left_01-3.jpg"> </td>
<td rowspan="2" valign="top" bgcolor="#82CEFD">
<img src="imgs/left_01-4.jpg" width="7" height="3"></td>
</tr>
<tr>
<td height="105" valign="top" background="imgs/left_02-1bg.jpg">
<img src="imgs/left_02-1.jpg" width="24" height="53"></td>
<td valign="top" background="imgs/left_02-2bg.jpg">
<img src="imgs/left_02-2.jpg" width="15" height="17"></td>
<td valign="top" bgcolor="#C4E8FF"><table width="92%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr><%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from board where inuse=1"
rs.Open rs.Source,conn,1,1
if not rs.EOF then
%>
<tr>
<td align="center">
<%if len(rs("title"))>20 then%>
<%=left(rs("title"),20)%>...
<%else%>
<%=trim(rs("title"))%>
<%end if%>
<script language=JavaScript>marquee1();</script> <%=rs("content")%>
<script language=JavaScript>marquee2();</script> <%=rs("dateandtime")%><br>
<a href="board.asp" target="_blank" class=class>以前公告</a></td><%else
rs.close
set rs=nothing
end if%>
</tr>
</table></td>
</tr>
</table>
<table width="194" border="0" cellspacing="0" cellpadding="0" height="131">
<tr>
<td width="24" height="58" valign="bottom" background="imgs/left_02-1bg.jpg">
<img src="imgs/left_03-1.jpg" width="24" height="40"></td>
<td width="15" valign="bottom" background="imgs/left_02-2bg.jpg">
<img border="0" src="imgs/pft_04-1.jpg" width="15" height="58"></td>
<td width="148" height="78" background="imgs/left_04-9.jpg"> </td>
<td rowspan="2" valign="top" bgcolor="#82CEFD">
<img src="imgs/left_03-4.jpg" width="7" height="30"></td>
</tr>
<tr>
<td height="53" valign="top" background="imgs/left_02-1bg.jpg">
<img src="imgs/left_02-1.jpg" width="24" height="53"></td>
<td valign="top" background="imgs/left_02-2bg.jpg">
<img src="imgs/left_02-2.jpg" width="15" height="17"></td>
<td valign="top" bgcolor="#C4E8FF">
<table width="140" border="0" align="center" cellpadding="0" cellspacing="0" height="16">
<tr>
<td width="140" height="16" valign="top" align="center"> <%if search="1" then%>
<!--#include file=search.asp-->
<%else%>
<!--#include file=search1.asp-->
<%end if%> </td>
</tr>
<tr>
<td height="1"></td>
</tr>
</table></td>
</tr>
</table>
<table width="194" border="0" cellspacing="0" cellpadding="0" height="173">
<tr>
<td width="24" height="78" valign="bottom" background="imgs/left_02-1bg.jpg">
<img src="imgs/left_03-1.jpg" width="24" height="40"></td>
<td width="15" valign="bottom" background="imgs/left_02-2bg.jpg">
<img border="0" src="imgs/2left_05-1.jpg" width="15" height="46"></td>
<td width="148" height="78" background="imgs/left_05-9.jpg"> </td>
<td rowspan="3" valign="top" bgcolor="#82CEFD">
<img src="imgs/left_03-4.jpg" width="7" height="30"></td>
</tr>
<tr>
<td rowspan="2" valign="top" background="imgs/left_02-1bg.jpg">
<img src="imgs/left_02-1.jpg" width="24" height="53"></td>
<td rowspan="2" valign="top" background="imgs/left_02-2bg.jpg">
<img src="imgs/left_02-2.jpg" width="15" height="17"></td>
<td height="95" valign="top" bgcolor="#C4E8FF"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -