?? search.asp
字號:
<!--#include file="conn.asp" -->
<%
if session("user")="" then
Response.write("<center>使用錯誤,請先登陸")
Response.End
end if
%>
<%
'畢業設計:林林網絡招聘系統
'畢業設計:林林網絡招聘系統
if request("keyword")="" then
%>
<script language=javascript>
history.back()
alert("請輸入關鍵字!!!")
</script>
<%
response.end
end if
strpage=request.querystring("Page")
if len(strpage)=0 then
strpage="1"
end if
set Rs = server.CreateObject ("ADODB.RecordSet")
If Request("condition")="comname" then
Sql = "select * from cominfo where comname like '%"&Replace(request("keyword"),"'","''")&"%'"
elseif Request("condition")="want1" then
Sql = "select * from cominfo where want1 like '%"&Replace(request("keyword"),"'","''")&"%'"
elseif Request("condition")="want2" then
Sql = "select * from cominfo where want2 like '%"&Replace(request("keyword"),"'","''")&"%'"
end if
Rs.Open Sql,Conn,1,3
%>
<html>
<head>
<title>搜索結果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.MainMenuBGStyle {
background-repeat: no-repeat;
background-position: right center;
}
.style1 {font-size: 14px}
.style2 {
font-size: 16px;
font-weight: bold;
}
.style3 {font-size: 16px}
.style4 {font-size: 12px}
-->
</style>
</head>
<link rel="stylesheet">
<body>
<table width="70%" border="0" align="center" cellpadding="8" cellspacing="1" class="tabbgcolor">
<tr class="tabbgcolorliWhite">
<td width="78%" colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="6">
<tr>
<td><div align="center"><span class="style4"><font color="#999999"><!---林林網絡招聘系統,找自己想要的-----></font></span></div></td>
</tr>
<tr>
<td><span class="style4">以下為關鍵字</span><span class="style2"><font color="#FF0000"> <%=request("KeyWord")%> </font></span><span class="style4">的相關內容</span></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<th width="20%"><span class="style1">公司／單位名稱</span></th>
<th width="20%"><span class="style1">需要的工作</span></th>
<th width="20%"><span class="style1">需要的其它工作</span></th>
</tr>
</table>
<%
if Rs.eof and Rs.bof then
Response.write "<p align='center'><span class='style1'>未找到符合你條件的<font color=#ff0000>"&Request("keyword")&"</font>信息</span></p>"
Else
rs.pagesize=5
rs.absolutepage=cint(strpage)
select_count=rs.recordcount
select_pagecount=rs.pagecount
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20%"><div align="center"><span class="style1"><br>
<A HREF=viewcom.asp?user=<%=rs("com")%>><%=Rs("comname")%></a></span></div></td>
<td width="20%"><div align="center"><span class="style1"><br>
<%=Rs("want1")%></span></div></td>
<td width="20%"><div align="center"><span class="style1"><br>
<%=Rs("want2")%></span></div></td>
</tr>
</table>
<%
rs.movenext
next
end if
%>
<br>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><span class="style1"><%
response.write" 共<b>"& select_pagecount &"</b>頁<b>" & select_count &"</b>條記錄，本頁是第<b>"& strpage &"</b>頁。"
if int(strpage)>1 then
response.Write" <a href=?page=1&condition="&Replace(request("condition"),"'","''")&"&keyword="&Replace(request("keyword"),"'","''")&">第一頁</a> "
response.Write" <a href=?page="&cstr(cint(strpage)-1)&"&condition="&Replace(request("condition"),"'","''")&"&keyword="&Replace(request("keyword"),"'","''")&">上一頁</a> "
end if
if int(strpage)<select_pagecount then
response.Write" <a href=?page="&cstr(cint(strpage)+1)&"&condition="&Replace(request("condition"),"'","''")&"&keyword="&Replace(request("keyword"),"'","''")&">下一頁</a>"
response.Write" <a href=?page="& select_pagecount &"&condition="&Replace(request("condition"),"'","''")&"&keyword="&Replace(request("keyword"),"'","''")&">最后一頁</a> "
end if
response.Write"<br>"
%></span></td>
</tr>
<tr>
<th><a href="../user/search.htm"><br>
<span class="style3">返回重新搜索</span></a></th>
</tr>
</table></td>
</tr>
</table>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -