eve飞龙级配置:高薪要助asp站内搜索大问题..........

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/06 00:26:02
so=request("so")
so=replace(so,"=","")
so=replace(so,"_","")
so=replace(so,"%","")
so=replace(so,",","")
so=replace(so," ","")
so=replace(so,";","")
so9=so
ss1="%"
for i=1 to len(so)
ss1=ss1+mid(so,i,1)+"%"
next
so=ss1
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)}; dbq="&server.MapPath("../Database/#Profession.asp")
set rs=server.CreateObject("adodb.recordset")
sql="select * from Profession where Prof_cc=2 and( Prof_bt like'%"&so&"%' or Prof_nr like'%"&so9&"%') order by (Prof_bt like'%"&so&"%') desc, Prof_tg desc, Prof_date desc, Prof_time desc, Prof_ss desc"
rs.open sql,conn,1