📄 type.asp
字号:
<%@ Language=VBScript%>
<!--#include file=include/conn.asp -->
<!--#include file=include/function.asp -->
<!--#include file=include/config.asp -->
<%
typeid=request("typeid")
if typeid="" then
Response.Write "未指定参数"
else
dim ttypename
set rs5=server.CreateObject("ADODB.RecordSet")
rs5.Source="select * from type where typeid=" & typeid &" order by typeorder"
rs5.Open rs5.Source,conn,1,1
ttypename=rs5("typename")
rs5.Close
set rs5=nothing
%>
<%
dim typeid
typeid=request("typeid")
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from BigClass where typeid="&typeid&" order by bigclassorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArrayBigClassID(10000),ArrayBigClassName(10000),ArrayBigClassView(10000)
if not rs.EOF then
rseof=1
end if
while not rs.EOF
RecordCount=rs.RecordCount
BigClassView=rs("BigClassView")
BigClassID=rs("BigClassID")
BigClassName=trim(rs("BigClassName"))
BigClasszs=rs("BigClasszs")
ArrayBigClassView(i)=BigClassView
ArrayBigClassID(i)=BigClassID
ArrayBigClassName(i)=BigClassName
i=i+1
rs.MoveNext
wend
rs.close
%><html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=ttypeName%>__※社区天地※</title>
<style type="text/css">
<!--
body {
background-color: #0065CA;
margin-left: 0px;
margin-top: 0px;
}
-->
</style>
<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><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>
<script language="JavaScript1.2">
<!--
function makevisible(cur,which){
if (which==0)
cur.filters.alpha.opacity=100
else
cur.filters.alpha.opacity=20
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<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 typename
typeid=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")
typename=rs("typename")
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="620">
<tr>
<td width="194" height="620" 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="92%" border="0" align="center" cellpadding="0" cellspacing="0">
<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="5"></td>
</tr>
</table></td>
</tr>
</table>
<table width="194" border="0" cellspacing="0" cellpadding="0" height="170">
<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/2left_05-1.jpg" width="15" height="46"></td>
<td width="148" height="78" background="imgs/left_05-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="92" 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">
<tr>
<td height="73" valign="top">
<%
set rs3=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
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and typeid="&typeid&" and picname is not null order by NewsID DESC"
end if
if Request.cookies("key")="" then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and typeid="&typeid&" and picname is not null order by NewsID DESC"
end if
if Request.cookies("key")="selfreg" then
if Request.cookies("reglevel")=3 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=3 and typeid="&typeid&" and picname is not null order by NewsID DESC"
end if
if Request.cookies("reglevel")=2 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=2 and typeid="&typeid&" and picname is not null order by NewsID DESC"
end if
if Request.cookies("reglevel")=1 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=1 and typeid="&typeid&" and picname is not null order by NewsID DESC"
end if
end if
else
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and typeid="&typeid&" and picname is not null order by NewsID DESC"
end if
rs3.Open rs3.Source,conn,1,1
if not rs3.EOF then
while not rs3.EOF
fileExt=lcase(getFileExtName(rs3("picname")))
Content=rs3("Content")
content=replace(content,"[[","<")
content=replace(content,"]]",">")
%>
<table width="90%" border="0" cellspacing="0" cellpadding="3" align="center" style="TABLE-LAYOUT: fixed">
<tr>
<td style="WORD-WRAP: break-word"><a class=middle href="ReadNews.asp?NewsID=<%=rs3("NewsID")%>" onclick="return ow(this)" target=_blank title="<%=rs3("title")%>">
<%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
<img src="uploadfile/<%=rs3("picname")%>" width="65" height="65" border=0 align="left">
<%end if%>
<%if fileext="swf" then%>
<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width="65" height="65" border=0 align="left">
<param name=movie value="uploadfile/<%=rs3("picname")%>">
<param name=quality value=high>
<param name='Play' value='-1'>
<param name='Loop' value='0'>
<param name='Menu' value='-1'>
<embed src="uploadfile/<%=rs3("picname")%>" width="65" height="65" border=0 align="left" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed></object>
<%end if%>
<%=rs3("title")%></a></div></td>
</tr>
</table>
<%
rs3.MoveNext
wend
else
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" style=""TABLE-LAYOUT: fixed""><tr><td width=100% align=center height=18 background='IMAGES/menu-d.gif'>暂无</td></tr></table>"
end if
rs3.close
set rs3=nothing
%></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table></td>
</tr>
</table>
<table width="194" border="0" cellspacing="0" cellpadding="0" height="156">
<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 src="imgs/left_05-1.jpg" width="15" height="46"></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -