📄 result.asp
字号:
<%@ Language=VBScript%>
<!--#include file=include/conn.asp -->
<!--#include file=include/config.asp -->
<!--#include file="admin/char.inc"-->
<%
request_BigClassid=checkstr(Request("BigClassid"))
keyword=trim(checkstr(Request("keyword")))
keyword=replace(keyword,"'","")
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
if keyword="" or keyword="关键字" then
%>
<script language=javascript>
history.back()
alert("请输入查询关键字！")
</script>
<body onload=javascript:window.close()></body>
<%
Response.End
end if
if request("action")="" then
findword="title like '%"&keyword&"%' or content like '%"&keyword&"%' or author like '%"&keyword&"%' or editor like '%"&keyword&"%' or about like '%"&keyword&"%'"
elseif request("action")="title" then
findword="title like '%"&keyword&"%' "
elseif request("action")="content" then
findword="content like '%"&keyword&"%' "
elseif request("action")="editor" then
findword="editor like '%"&keyword&"%' or author like '%"&keyword&"%' "
elseif request("action")="about" then
findword="about like '%"&keyword&"%' "
end if
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
%><html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>关键字：<%=keyword%>__搜索__※社区天地※</title>
<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>
<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>
<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>
</head>
<body oncontextmenu="return false" ondragstart="return false" onselectstart ="return false" onselect="document.selection.empty()" oncopy="document.selection.empty()" onbeforecopy="return false">
<table width="773" height="236" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="223" background="imgs/logo.jpg"> </td>
<td width="333" background="imgs/bannr01.jpg"> </td>
<TD background="imgs/bannr02.jpg"
vAlign=top width=217><map name="FPMap2">
<area coords="165,130,40" shape="circle" href="2smarket.asp">
<area coords="49,54,41" shape="circle" href="qgzx.asp">
</map>
<IMG border=0 height=230
src="imgs/tm.gif" useMap=#FPMap2
width=217></TD>
</tr>
</table>
<table width="773" border="0" align="center" cellpadding="0" cellspacing="0" height="403">
<tr>
<td width="194" height="403" 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="171">
<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="93" 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -