加入收藏 | 设为首页 | 会员中心 | 我要投稿 银川站长网 (https://www.0951zz.com/)- 云通信、基础存储、云上网络、机器学习、视觉智能!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

ASP简洁的多重查询的处理方案

发布时间:2023-08-29 13:13:04 所属栏目:Asp教程 来源:
导读:ASP简洁的多重查询的处理方案:代码如下:'subject 信息标题 'company 发布信息的公司名称 'content 发布信息的内容 'address 公司地址 'infomation 公司简介 'note 相关说明 以上值均由FORM

ASP简洁的多重查询的处理方案:

代码如下:

'subject 信息标题 

'company 发布信息的公司名称 

'content 发布信息的内容 

'address 公司地址 

'infomation 公司简介 

'note 相关说明 

以上值均由FORM提交,然后通过:subject=trim(Request.Form("subject"))等得到相应的值。 

<% 

'这个函数很关键!--------------------------- 

Function sql(a,b,sqls) 

if b<>"" then '如果客户端没有提交此值,则不会产生相应的SQL语句。 

sqls=sqls & " and " & a & " like '%" & b & "%'" 

end if 

sql=sqls 

End Function 

'-----------------调用数据库 

Set con_n=Server.CreateObject("ADODB.Connection") 

DBpath=Server.MapPath("/database/mydb.mdb") 

Conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=;dbq=" & DBpath 

Set rs=Server.CreateObject("ADODB.Recordset") 

sqls="select * from mytable where 1=1 " 

'以下调用上面的函数即可,可以很多个调用(理论上是任意) 

sqls=sql("subject",subject,sqls) 

sqls=sql("company",company,sqls) 

sqls=sql("content",content,sqls) 

sqls=sql("address",address,sqls) 

sqls=sql("infomation",infomation,sqls) 

sqls=sql("note",note,sqls) 

sqls=sqls & " order by id desc" 

rs.open sqls,conn,3,2 

%> 

(编辑:银川站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章