28,390
社区成员
发帖
与我相关
我的任务
分享
<%
'on error Resume next
dim res,sqlStr,sqlStrR,Result
Result=Request.Form("textfield")
Result=Replace(trim(Result),"'","")
Set res=server.CreateObject("ADODB.RecordSet")
sqlStr="Select * from [LJ_ProductInfo] where title like '%"&Result&"%'"
res.open sqlStr,conn,1,1
if res.bof and res.eof then
res.close
set res=nothing
sqlStrR="select * from LJ_ProductInfo where demo like '%"&Result&"%'"
res.open sqlStrR.conn,1,1
if res.bof and res.eof then
Response.Write("<script language='javascript'>alert('没有找到关于的产品!')</script>")
else
........
%>
dim res,sqlStr,sqlStr1,Result
Result=Request.Form("textfield")
Result=Replace(trim(Result),"'","")
Set res=server.CreateObject("ADODB.RecordSet")
'sqlStr="Select * from [LJ_ProductInfo] where title like '%"&Result&"%'"
'res.open sqlStr,conn,1,1
'if res.bof and res.eof then
' res.close
' set res=nothing
sqlStr1="select * from [LJ_ProductInfo] where [demo] like '%"&Result&"%'"
res.open sqlStr1.conn,1,1
....