📄 special.asp
字号:
<%@ Language=VBScript%>
<!--#include file=include/conn.asp -->
<!--#include file=include/config.asp -->
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type order by typeorder"
rs.Open rs.Source,conn,1,1
dim ArraytypeID(10000),ArraytypeName(10000),Arraytypecontent(10000)
typeCount=rs.RecordCount
for i=1 to typeCount
ArraytypeID(i)=rs("typeID")
ArraytypeName(i)=rs("typeName")
Arraytypecontent(i)=rs("typecontent")
rs.MoveNext
next
rs.Close
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
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>专题__※社区天地※</title>
<style type="text/css">
<!--
body {
background-color: #0065CA;
margin-left: 0px;
margin-top: 0px;
}
-->
</style><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>
<meta name="keywords" content="一切为了学生，为了学生的一切！">
<meta name="description" content="一切为了学生，为了学生的一切！">
<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>
</head>
<body oncontextmenu="return false" ondragstart="return false" onselectstart ="return false" onselect="document.selection.empty()" oncopy="document.selection.empty()" onbeforecopy="return false">
<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="518">
<tr>
<td width="194" height="518" 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/pleft_03-2.jpg" width="15" height="48"></td>
<td width="148" height="78" background="imgs/left_03-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="92%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs.Source="select top "& top_txt &" * from News where checkked=1 order by click DESC,newsid desc"
end if
if Request.cookies("key")="" then
rs.Source="select top "& top_txt &" * from News where (checkked=1 and newslevel=0) order by click DESC,newsid desc"
end if
if Request.cookies("key")="selfreg" then
if Request.cookies("reglevel")=3 then
rs.Source="select top "& top_txt &" * from News where (checkked=1 and newslevel<=3) order by click DESC,newsid desc"
end if
if Request.cookies("reglevel")=2 then
rs.Source="select top "& top_txt &" * from News where (checkked=1 and newslevel<=2) order by click DESC,newsid desc"
end if
if Request.cookies("reglevel")=1 then
rs.Source="select top "& top_txt &" * from News where (checkked=1 and newslevel<=1) order by click DESC,newsid desc"
end if
end if
else
rs.Source="select top "& top_txt &" * from News where checkked=1 order by click DESC,newsid desc"
end if
rs.Open rs.Source,conn,1,1
while not rs.EOF
title=trim(rs("title"))
title=replace(title,"<br>","")
%>
· <a class=middle href="ReadNews.asp?NewsID=<%=rs("NewsID")%>" target="_blank" title="<%=title%>"><font color="<%=rs("titlecolor")%>">
<%if len(title)>10 then%>
<%=left(title,10)%>
<%else%>
<%=title%>
<%end if%>
</font></a> <font color=red><%=rs("click")%></font><br>
<%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -