📄 search_ach_2.asp
字号:
<!--#include file="zxdkconn.asp"-->
<%
'------------------------------------------------------------------------------------
'该程序是由信息中心改制！现使用的只是部分功能，将来会提供更多的服务！
'信息中心简单介绍：
'目前成员：陈峰（主任），俞娟（副主任），徐立挺（副主任），方科亚（辅导员）
'中心属性：社区分团委
'
'------------------------------------------------------------------------------------
%>
<%
dim name,city,banji,date1,date2
name=trim(request("name"))
city=trim(request("city"))
banji=trim(request("banji"))
date1=trim(request("date1"))
date2=trim(request("date2"))
%>
<%
set rs=server.createobject("adodb.recordset")
if name<>"" then x=30 else x=300
if banji<>"" then x=x+3
if date1<>"" then x=x+5
if date2<>"" then x=x+7
select case x
case 30
sql="select * from st_info where city='"&city&"' and name='"&name&"' "
case 300
sql="select * from st_info where city='"&city&"'"
case 303
sql="select * from st_info where city='"&city&"' and banji='"&banji&"' "
case 33
sql="select * from st_info where city='"&city&"' and banji='"&banji&"' and name='"&name&"' "
case 35
sql="select * from st_info where city='"&city&"' and date1>'"&one0&"' and name='"&name&"' "
case 37
sql="select * from st_info where city='"&city&"' and date2<'"&date1&"' and name='"&name&"' "
case 38
sql="select * from st_info where city='"&city&"' and date2<'"&date1&"' and name='"&name&"' and banji='"&banji&"' "
case 42
sql="select * from st_info where city='"&city&"' and date1>'"&one0&"' and name='"&name&"' and date2<'"&date1&"'"
case 40
sql="select * from st_info where city='"&city&"' and and name='"&name&"' and date2<'"&date1&"' and banji='"&banji&"' "
case 42
sql="select * from st_info where city='"&city&"' and date1>'"&one0&"' and name='"&name&"' and date2<'"&date1&"' and banji='"&banji&"' "
case 308
sql="select * from st_info where city='"&city&"' and date1>'"&one0&"' and date2<'"&date1&"' and banji='"&banji&"' "
case 310
sql="select * from st_info where city='"&city&"' and date2<'"&date1&"' and banji='"&banji&"' "
case 312
sql="select * from st_info where city='"&city&"' and date1>'"&one0&"' and date2<'"&date1&"' "
case 315
sql="select * from st_info where city='"&city&"' and date1>'"&one0&"' and date2<'"&date1&"' and banji='"&banji&"' "
end select
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>查询结果</title></STYLE><style type="text/css">
body
{
scrollbar-face-color: #C19A11;
scrollbar-highlight-color: #C19A11;
scrollbar-shadow-color: #000000;
scrollbar-arrow-color: #000000;
scrollbar-base-color: #000000;
scrollbar-dark-shadow-color: #000000;
}
</style>
<link rel="stylesheet" href="style.css">
</head>
<body topmargin="0" background="../img/beijing1.gif" style="background-attachment: fixed">
<div align="center">
<table border="1" width="679" cellspacing="0" cellpadding="4" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="667" colspan="9" align="center"><%
if Not(rs.bof and rs.eof) then'判别数据表中是否为空记录
NumRecord=rs.recordcount
rs.pagesize=1000
NumPage=rs.Pagecount
if request("page")=empty then
NoncePage=1
else
if Cint(request("page"))<1 then
NoncePage=1
else
NoncePage=request("page")
end if
if Cint(Trim(request("page")))>Cint(NumPage) then NoncePage=NumPage
end if
else
NumRecord=0
NumPage=0
NoncePage=0
end if
%>
<p align="left">查询结果:
</p>
</td>
</tr>
<center>
<tr>
<td width="71" bgcolor="#EBE9FE" align="center">日期</td>
<td width="60" bgcolor="#EBE9FE" align="center">姓名</td>
<td width="69" bgcolor="#EBE9FE" align="center">学院</td>
<td width="52" bgcolor="#EBE9FE" align="center">班级</td>
<td width="96" bgcolor="#EBE9FE" align="center">身份证</td>
<td width="40" bgcolor="#EBE9FE" align="center">班主任</td>
<td width="54" bgcolor="#EBE9FE" align="center">联系电话</td>
<td width="68" bgcolor="#EBE9FE" align="center">贷款时间</td>
<td width="63" bgcolor="#EBE9FE" align="center">还款时间</td>
</tr>
<%if Not(rs.bof and rs.eof) then
rs.move (Cint(NoncePage)-1)*10,1
for i=1 to rs.pagesize
%>
<tr>
<td width="71" align="center"><%=(year(rs("number")))%>-<%=(month(rs("number")))%>-<%=(day(rs("number")))%></td>
<td width="60" align="center"><a target="_blank" href="web_st.asp?id=<%=rs("shenfen")%>"><%=rs("name")%></a></td>
<td width="69" align="center"><%=rs("city")%></td>
<td width="52" align="center"><%=rs("banji")%></td>
<td width="96" align="center"><%=rs("shenfen")%></td>
<td width="40" align="center"><%=rs("homephone")%></td>
<td width="54" align="center"><%=rs("tel")%></td>
<td width="68" align="center"><font color="#FF0000"><%=rs("one0")%></font></td>
<td width="63" align="center"><font color="#FF0000"><%=rs("date1")%></font></td>
</tr>
<% rs.movenext
if rs.eof then exit for
next
else
response.write "<tr><td colspan=13><marquee scrolldelay=120 behavior=alternate>没有找到任何记录!!!</marquee></td></tr>"
end if
rs.close
set rs=nothing
%>
</table>
</table>
</div>
<table width="599" border="0" align="center">
<tr>
<td height="17">
<div align="right">
<input type="hidden" name="page" value="<%=NoncePage%>">
</div>
</td>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -