?? search_ach_2.asp
字號:
<!--#include file="zxdkconn.asp"-->
<%
'------------------------------------------------------------------------------------
'該程序是由信息中心改制！現(xiàn)使用的只是部分功能，將來會提供更多的服務(wù)！
'信息中心簡單介紹：
'目前成員：陳峰（主任），俞娟（副主任），徐立挺（副主任），方科亞（輔導(dǎo)員）
'中心屬性：社區(qū)分團委
'
'------------------------------------------------------------------------------------
%>
<%
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>查詢結(jié)果</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'判別數(shù)據(jù)表中是否為空記錄
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">查詢結(jié)果:
</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">學(xué)院</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">聯(lián)系電話</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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -