*****************bb.asp
<%
sid=request("id")
sproject=request("project")
smethod=trim(request("method"))
keyword=trim(request("keyword"))
sql="select * from tblname where "
if smethod="基本查询" then
select case sproject
case "id" sql=sql&"id='"&keyword&"'"
case "title" sql=sql&"title='"&keyword&"'"
case "sdate" sql=sql&"sdate='"&keyword&"'"
case "stime" sql=sql&"stime='"&keyword&"'"
case "caseid" sql=sql&"caseid='"&keyword&"'"
end select
elseif smethod="模糊查询" then
select case sproject
case "id" sql=sql&"id like '%"&keyword&"%'"
case "title" sql=sql&"title like '%"&keyword&"%'"
='"&keyword&"'"
case "sdate" sql=sql&"sdate like '%"&keyword&"%'"
case "stime" sql=sql&"stime like '%"&keyword&"%'"
case "caseid" sql=sql&"caseid like '%"&keyword&"%'"
end select
end if
strconn = "Driver={SQL erver};Description=sqldemo;SERVER=127.0.0.1;UID=LoginID;PWD=Password;DATABASE=Database_Name"
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
do while not rs.eof
bb=rs(0)
response.write "bb"
rs.movenext
Loop
rs.close
set rs=nothing
conn.close
set conn=nothing