?? search.asp
字號:
<%
dim keyword
keyword=request.form("keyword")
If keyword="" Then
response.write "<script>alert('請輸入關鍵字!');history.back();</Script>"
response.end
End If
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title>25175學校在線報名管理系統</title>
<script language="javascript">
<!--
if (parent.frames.length > 0) {
parent.location.href = location.href;
}
// --></script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Description" content="域名注冊、主機租用、網站建設、應用服務.Domain register,Virtual host,Website design,ASP,25175,www.25175.com">
<meta name="Keywords" content="域名注冊,主機租用,網站建設,應用服務,Domain,register,Virtualhost,Website,design,ASP,service">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<style type="text/css">
<!---a:link { color: #306898; font-family: Arial; text-decoration: underline }
a:visited { color: #306898; font-family: Arial; text-decoration: underline }
a:active { color: red; font-family: Arial; text-decoration: none }
a:hover { color: 306898; text-decoration: none }
body { color: #6e6e6e; font-size: 9pt; line-height: 12pt; font-family: Arial }
th { font-size: 9pt; line-height: 12pt }
td { font-size: 9pt; line-height: 12pt }
a.1:link { font-family: Arial; text-decoration: none; color: silver }
a.1:visited { font-family: Arial; text-decoration: none; color: silver }
a.1:hover { font-family: Arial; text-decoration: none; color: white }
a.2:link { font-family: Arial; text-decoration: none; color: #6e6e6e }
a.2:visited { font-family: Arial; text-decoration: none; color: #6e6e6e }
a.2:hover { font-family: Arial; text-decoration: none; color: silver }
a.3:link { font-family: Arial; text-decoration: none; color: white }
a.3:visited { font-family: Arial; text-decoration: none; color: white }
a.3:hover { font-family: Arial; text-decoration: none; color: #d0ccd0 }
a.s:link { font-family: Arial; text-decoration: underline; color: #606C88 }
a.s:visited { font-family: Arial; text-decoration: underline; color: #606C88 }
a.s:hover { font-family: Arial; text-decoration: none; color: #606C88 }
.line { line-height: 10pt }
.il { line-height: 12pt }
.form { font-size: 9pt; font-family: Arial }
.btn { font-size: 9pt; height: 19; border-style: ridge; border-width: 1 }
.text { font-family: Arial; font-size: 9pt; border: 1 solid #707070 }
body { scrollbar-face-color: #D8D4C8; scrollbar-highlight-color: #D8D4C8;
scrollbar-shadow-color: #D8D4C8; scrollbar-3dlight-color:
#ffffff; scrollbar-arrow-color: blcak; scrollbar-track-color:
#E9EDEF; scrollbar-darkshadow-color: #888484 }
---></style>
</head>
<%
dim conn,connstr,rs,sql
on error resume next
connstr="DBQ="+server.mappath("client_db/s.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("adodb.connection")
conn.open connstr
sql="select keyword,ID,title,url from s where keyword like '%"&keyword&"%' order by ID desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="750" height="379" bgcolor="#FFFFFF" background="">
<tr>
<td height="379" width="251" rowspan="4" valign="top">
<div align="center">
<table border="0" cellspacing="1" width="100%" height="290">
<tr>
<td width="100%" height="34"><form method="POST" action="search.asp">
<input type="text" name="keyword" size="20" class="text">
<input type="submit" value="搜索" name="B1" class="btn" style="width: 40; height: 20">
</form></td>
<center>
</center>
</tr>
<tr>
<td width="100%" height="247" valign="top"></td>
</tr>
</table>
</div>
</td>
<td height="20" width="468">
<%If rs.eof and rs.bof Then
response.write"<p align=center>對不起,沒有搜索到合適的結果。</p><br><br><br><br><br><br><br><br><br><br><br><br><br>"
rs.close
conn.close
set rs=nothing
set conn=nothing
Else%>
你查詢的關鍵字是:<font color="red"><%=request.form("keyword")%></font> 共搜索到了<font color="red"><%=rs.recordcount%></font>個結果,共<font color="red">1</font>頁。</td>
<td height="379" width="30" rowspan="4"> </td>
</tr>
<tr>
<td height="323" width="468" valign="top">
<table border="0" cellspacing="1" width="90%">
<tr>
<td width="100%">
<ul>
<% do while not rs.eof%>
<li><a href="<%=rs("url")%>" class="s" target="_blank"><%=rs("title")%></a><br>
URL:<a href="<%=rs("url")%>" class="2" target="_blank"><%=rs("url")%></a></li>
<%
rs.movenext
loop
%>
</ul></td>
</tr>
</table></td>
</tr>
<tr>
<td height="16" width="468" valign="top"> </td>
</tr>
<tr>
<td height="20" width="468" valign="top"> </td>
</tr>
<%End If
conn.close
set conn=nothing
rs.close
set rs=nothing
%>
</table>
</div>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -