%@ Language=VBScript %> <% SqlStr = "select zzjg,dj from zzjg" set RecSet = server.CreateObject("adodb.RecordSet") QS = Session("QS") Q = Session("Q") select case Q case "????????¨????????????¨????????????§???o????????§??????????§???o?|????????ì?????" SqlStr = SqlStr + " where zzjg like '%" + QS + "%'" case "??????????¨????o????????¨??????" SqlStr = SqlStr + " where dj like '%" + QS + "%'" case else end select RecSet.Source = SqlStr RecSet.Open ,session("Conn"),adOpenForwardOnly %>
![]() |
|
|
|
(一)
办公室 |
|
|
|
::::: ©
漯河市建委 版权所有 :::::
|