<%
page=request.querystring("page")
key=request("key")
DIM totalPut
DIM CurrentPage
DIM TotalPages
DIM i,j
const MaxPerPage=20
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim rs
dim sql
types=request("types")
sex=request("sex")
idate=request("idate")
set rs=server.createobject("adodb.recordset")
sql="where 1=1 "
if types<>"" then
sql = sql& " and types='" &types&"'"
end if
if sex<>"" then
sql = sql& " and sex='" &sex&"'"
end if
if key<>"" then
sql = sql & " and (teach like '%" & key & "%' or school like '%" & key & "%' or sex like '%" & key & "%' or content like '%" & key & "%' or id like '%" & key & "%' or iname like '%" & key & "%' or tel like '%" & key & "%')"
end if
select case idate
case "0"
date1=date
sql=sql&" and idate = '#"&date1&"#' "
case "7"
date1=date-7
sql=sql&" and idate > '#"&date1&"#' "
case "14"
date1=date-14
sql=sql&" and idate > '#"&date1&"#' "
case "30"
date1=date-30
sql=sql&" and idate > '#"&date1&"#' "
case "90"
date1=date-90
sql=sql&" and idate > '#"&date1&"#' "
case "180"
date1=date-180
sql=sql&" and idate > '#"&date1&"#' "
case "365"
date1=date-365
sql=sql&" and idate > '#"&date1&"#' "
end select
sql="select * from teacher " & sql & " order by idate desc"
rs.open sql,conn,1,1
========================
不知道你完整代码,试着改改,你试试吧....
另外,vb里写这个真是头晕眼花啊,如果有兴趣,可以学学ASP.NET.
