%@ 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 %>
![]() |
|
河南省城建沥青库 |
|
::::: ©
漯河市建委 版权所有 :::::
|