set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("gg.mdb")
select case lfname
case "aa"
set rs1=server.createobject("adodb.recordset")
exec="select * from gg where bb=' "&sh&" ' "
rs1.open exec,conn,2,3
while not rs1.eof or rs1.bof
response.Write(rs1("bb"))
rs1.movenext
wend
case "AA"
set rs1=server.createobject("adodb.recordset")
exec="select * from gongdan where gongmao='"&sh&"'"
rs1.open exec,conn,2,3
'response.Write("dfdsfsdf")
while not rs1.eof or rs1.bof
response.Write(rs1("gongmao"))
rs1.movenext
wend
case else
set rs1=server.createobject("adodb.recordset")
exec="select * from gg where tbtype=2 order by date desc"
rs1.open exec,conn,2,3
while not rs1.eof or rs1.bof
response.Write(rs1("bb"))
rs1.movenext
wend
end select