📄 searchserver.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("user")="" or session("group")="" then
response.write("<script>alert('您还没有登陆或登陆超时');window.location.href('index.asp')</script>")
response.end
end if
%>
<%
page=cint(request.querystring("page"))
if page<1 then
page=1
end if
%>
<%
set rs1=server.CreateObject("adodb.recordset")
id=request.form("id")
key=request.form("key")
typ=request.form("types")
date1=request.form("date1")
date2=request.form("date2")
if typ=0 and date1="" then '页面第一次载入时，或只查关键字时。
cmd="select * from question where title like '%"&key&"%' "
end if
if typ<>0 and date1<>"" then '查询时选择了组别和时间
cmd="select * from question where time>=#"&date1&"# and time<=#"&date2&"# and type like '"&typ&"' and title like '%"&key&"%'"
end if
if typ=0 and date1<>"" and date2<>"" then '查询时只选了日期，没有选组别
cmd="select * from question where time>=#"&date1&"# and time<=#"&date2&"# and title like '%"&key&"%'"
end if
if typ<>0 and date1="" then '查询时只选了组别没有选日期
cmd="select * from question where type like '"&typ&"' and title like '%"&key&"%'"
end if
rs1.open cmd,conn,1,1
if rs1.eof then
response.write("<script>alert('无任何记录！');window.location.href('searchserver.asp')</script>")
response.end
else
rs1.pagesize=10 '每页显示10条记录
datacount=rs1.recordcount '共有几条记录
pagecounts=rs1.pagecount '共有几页
if page>pagecounts then page=pagecounts
rs1.absolutepage=page
end if
%>
<script language="JavaScript" src="calendar.js" type="text/javascript"></script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Untitled Document</title>
<style type="text/css">
<!--
A { text-decoration: none}
-->
</style>
<style type="text/css">
<!--
.style1 {
font-size: 12px;
color: #FFFFFF;
}
.style2 {
color: #6699CC;
font-size: 12px;
}
-->
</style>
</head>
<body>
<form name="form1" method="post" action="">
<table width="700" border="0" align="center" bgcolor="#6699cc">
<tr>
<td colspan="4"><span class="style1">问题备忘综合查询→</span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="88"><span class="style2">问题关键字</span></td>
<td width="203"><label>
<input name="key" type="text" id="key" size="30">
</label></td>
<td width="76"><div align="center" class="style2">
<div align="center" class="style2">问题类型</div>
</div></td>
<td width="315"><select name="types" id="types">
<option value="0" selected>〓查询所有问题〓</option>
<option value="1">Web服务器相关问题</option>
<option value="2">Ftp服务器相关问题</option>
<option value="3">Mail服务器相关问题</option>
<option value="4">SqlServer服务器问题</option>
<option value="5">MySql服务器问题</option>
<option value="6">编程文章备忘</option>
<option value="7">程序源码收藏</option>
<option value="8">网络设备相关问题</option>
<option value="9">网络相关问题</option>
<option value="10">布线相关问题</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><span class="style2">发表时间</span></td>
<td colspan="3"><input name="date1" type="text" id="date1" size="10" onClick="setday(this)">
<span class="style2">到
<input name="date2" type="text" id="date2" size="10" onClick="setday(this)">
*日期格式：XXXX-XX-XX</span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="4"><div align="center">
<input type="submit" name="Submit" value=" 快 速 查 询 ">
</div></td>
</tr>
</table>
<table width="700" border="0" align="center" bgcolor="#6699cc">
<tr>
<td colspan="5"><span class="style1">〓
<%
select case typ
case 0
response.write "所有备忘问题"
case 1
response.write "WEB服务器"
case 2
response.write "FTP服务器"
case 3
response.write "Mail服务器"
case 4
response.write "SQLSERVER服务器"
case 5
response.write "Mysql服务器"
case 6
response.write "编程文章区"
case 7
response.write "编程源码区"
case 8
response.write "网络设备区"
case 9
response.write "网络问题区"
case 10
response.write "综合布线区"
end select
%>
〓 </span></td>
</tr>
<%
dim i
'set strFile1=Rs1("file1")
i=0
do while not rs1.eof and i<10
%>
<tr bgcolor="#FFFFFF">
<td width="35"><div align="center" class="style2"> <%=rs1("id") %> </div></td>
<td width="491"><div align="left" class="style2">
<% =rs1("title") %>
</div></td>
<td width="47"><a href="editserver.asp?typ=<%=rs1("id")%>"><img src="images/edit.gif" width="47" height="18" border="0"></a></td>
<td width="52"><a href="delserver.asp?typ=<%=rs1("id")%>"><img src="images/a_delete.gif" width="52" height="16" border="0"></a></td>
<td width="53"><a href="showserver.asp?typ=<%=rs1("id")%>"><img src="images/voteView.gif" width="52" height="18" border="0"></a></td>
</tr>
<%
i=i+1
rs1.movenext
loop
%>
</table>
<table width="700" border="0" align="center">
<tr>
<td><div align="center"><a href="searchserver.asp" class="style2" >第一页</a> <a href="searchserver.asp?page=<%=page-1%>" class="style2">上一页</a> <a href="searchserver.asp?page=<%=page+1%>" class="style2">下一页</a> <a href="searchserver.asp?page=<%=pagecounts%>" class="style2">最后一页</a></a> <span class="style2">共有<%=datacount %>条记录 分为
<% =pagecounts %>
页</span></div></td>
</tr>
</table>
<p> </p>
<p> </p>
</form>
<%
rs1.close
conn.close
set rs1=nothing
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -