asp 多字段模糊搜索的函数

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了asp 多字段模糊搜索的函数，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含7022字，纯文字阅读大概需要11分钟。

内容图文

比较简单直接的sql语句

Recordset1.Source = "SELECT * FROM 表 WHERE 字段 LIKE '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' or 字段2 like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' ORDER BY id DESC"
Recordset1.Source = "SELECT * FROM 表 WHERE 字段 LIKE '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' and 字段2 = 2 ORDER BY id DESC"

下面是一些补充

函数名：keyword_sousuo
作用：生成sql查询条件
参数：table_field ------ 表的字段名（之间用逗号分开）
keyword ------ 搜索关键词（之间用空格分开）
返回：sql查询条件

核心代码

'================================================== 
'函数名：keyword_sousuo 
'作 用：生成sql查询条件 
'参 数：table_field ------ 表的字段名（之间用逗号分开） 
' keyword ------ 搜索关键词（之间用空格分开） 
'返 回：sql查询条件 
'================================================== 
function keyword_sousuo(byval table_field,byval keyword) 
 dim str01,str02,keywords,table_fields,i,j 
   
 table_fields=split(trim(table_field),",") 
 keywords=split(trim(keyword),",") 
  
 if table_field<>"" then 
  str01="("&table_fields(0)&" like '%"&keyword&"%'" 
  for j=0 to ubound(table_fields) 
  str01=str01&" or "&table_fields(j)&" like '%"&keyword&"%'" 
  next 
  str01=str01&")" 
 else 
  response.Write("<script>alert('参数错误（不能为空）！')</script>") 
  response.End() 
 end if 

 '全角－－》半角　空格 
 'keyword=replace(keyword,"　"," ") 
 'while InStr(keyword," ")>0 
 ' keyword=replace(keyword," "," ") 
 'wend 
 keywords=split(keyword," ") 
 if ubound(keywords)>0 then 
 for i=0 to ubound(keywords) 
  str02=str02&"("&table_fields(0)&" like '%"&keywords(i)&"%'" 
  for j=1 to ubound(table_fields) 
  str02=str02&" or "&table_fields(j)&" like '%"&keywords(i)&"%'" 
  next 
  str02=str02&")" 
 next 
 str02="("&replace(str02,")(",")and(")&")" 
 keyword_sousuo="(" & str01 & "or" & str02 & ")" 
 else 
 keyword_sousuo=str01 
 end if 
end function 
'================================================== 
'函数名：keyword_tag 
'作 用：将字符串里的关键词标记为红色 
'参 数：str ------ 字符串 
' keyword ------ 标记关键词（之间用空格分开） 
'返 回：字符串（html格式） 
'================================================== 
function keyword_tag(byval str,byval keyword) 
 dim keywords,str01,str02,i 
  '全角－－》半角　空格 
 'keyword=replace(keyword,"　"," ") 
 'while InStr(keyword," ")>0 
 ' keyword=replace(keyword," "," ") 
 'wend 
 str01=replace(str,keyword,"<font color=""#ff0000"">"&keyword&"</font>") 
  keywords=split(keyword," ") 
 if ubound(keywords)>0 then 
  str02=str 
 for i=0 to ubound(keywords) 
 str02=replace(str02,keywords(i),"<font color=""#ff0000"">"&keywords(i)&"</font>") 
 next 
  keyword_tag=str02 
 else 
 keyword_tag=str01 
 end if 
end function 
以下是一个例子 http://www.gxlsystem.com/blog/uploads/200604/recordread.asp 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<% 
 option explicit 
 dim conn,connstr,database 
 connstr="DBQ="+server.mappath("record.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 
 set conn=server.CreateObject("adodb.connection") 
 conn.open connstr 

dim n,rs,page,keyword,keywords,RecordCount,pageCount,pos,i,sql_where 
n=50 
page=Request("page") 
keyword=trim(request("keyword")) 
sql_where=keyword_sousuo("title,cz,name,time",keyword) 
set rs=server.CreateObject("adodb.recordset") 
rs.open "select * from record where "&sql_where&" order by id desc",conn,1,2 
if page=0 then 
 page=1 
 end if 
RecordCount = 0 
do while not rs.Eof 
 RecordCount = RecordCount +1 
 rs.MoveNext 
loop 
if not RecordCount=0 then 
 rs.MoveFirst 
end if 
pageCount=RecordCount/n 
pageCount=int(pageCount) 
if (RecordCount mod n)>0 then 
 PageCount=PageCount +1 
end if 
%> 
<style type="text/css"> 
<!-- 
.STYLE3 {color: #666666} 
--> 
</style> 
<table width="100%" border="0" cellspacing="0" cellpadding="0"> 
 <form id="form1" name="form1" method="post" action="?"><tr><td align="center"><input name="keyword" type="text" id="keyword" value="<%=keyword%>" size="30" /> 
   <input type="submit" name="Submit" value="搜索" /> 
 <span class="STYLE3">(关键词之间用空格分开) </span></td> 
 
 </tr></form> 
 <tr> 
 <td height="5"></td> 
</table> 

<table width="600" border="1" align="center" cellpadding="4"> 
 <tr align="center"> 
 <td width="131">标题</td> 
 <td width="131">动作</td> 
 <td width="131">用户名</td> 
 <td width="132">时间</td> 
 </tr> 
<%pos=0 
do while pos<(page-1)*n 
pos=pos+1 
rs.moveNext 
loop 
i=0 
while not rs.eof and i<n 
i=i+1%> 
 <tr align="center"> 
 <td><%=keyword_tag(rs("title"),keyword)%></td> 
 <td><%=keyword_tag(rs("cz"),keyword)%></td> 
 <td><%=keyword_tag(rs("name"),keyword)%></td> 
 <td><%=keyword_tag(rs("time"),keyword)%></td> 
 </tr> 
 
 <%rs.movenext 
 wend 
 rs.close 
 set rs=nothing 
 conn.close 
 set conn=nothing 
 
'================================================== 
'函数名：keyword_sousuo 
'作 用：生成sql查询条件 
'参 数：table_field ------ 表的字段名（之间用逗号分开） 
' keyword ------ 搜索关键词（之间用空格分开） 
'返 回：sql查询条件 
'================================================== 
function keyword_sousuo(byval table_field,byval keyword) 
 dim str01,str02,keywords,table_fields,i,j 
   
 table_fields=split(trim(table_field),",") 
 keywords=split(trim(keyword),",") 
  
 if table_field<>"" then 
  str01="("&table_fields(0)&" like '%"&keyword&"%'" 
  for j=0 to ubound(table_fields) 
  str01=str01&" or "&table_fields(j)&" like '%"&keyword&"%'" 
  next 
  str01=str01&")" 
 else 
  response.Write("<script>alert('参数错误（不能为空）！')</script>") 
  response.End() 
 end if 

 '全角－－》半角　空格 
 keyword=replace(keyword,"　"," ") 
 ' while InStr(keyword," ")>0 
 ' keyword=replace(keyword," "," ") 
 'wend 
 keywords=split(keyword," ") 
 if ubound(keywords)>0 then 
 for i=0 to ubound(keywords) 
  str02=str02&"("&table_fields(0)&" like '%"&keywords(i)&"%'" 
  for j=1 to ubound(table_fields) 
  str02=str02&" or "&table_fields(j)&" like '%"&keywords(i)&"%'" 
  next 
  str02=str02&")" 
 next 
 str02="("&replace(str02,")(",")and(")&")" 
 keyword_sousuo="(" & str01 & "or" & str02 & ")" 
 else 
 keyword_sousuo=str01 
 end if 
end function 
'================================================== 
'函数名：keyword_tag 
'作 用：将字符串里的关键词标记为红色 
'参 数：str ------ 字符串 
' keyword ------ 标记关键词（之间用空格分开） 
'返 回：字符串（html格式） 
'================================================== 
function keyword_tag(byval str,byval keyword) 
 dim keywords,str01,str02,i 
  '全角－－》半角　空格 
 keyword=replace(keyword,"　"," ") 
 'while InStr(keyword," ")>0 
 ' keyword=replace(keyword," "," ") 
 'wend 
 str01=replace(str,keyword,"<font color=""#ff0000"">"&keyword&"</font>") 
  keywords=split(keyword," ") 
 if ubound(keywords)>0 then 
  str02=str 
 for i=0 to ubound(keywords) 
 str02=replace(str02,keywords(i),"<font color=""#ff0000"">"&keywords(i)&"</font>") 
 next 
  keyword_tag=str02 
 else 
 keyword_tag=str01 
 end if 
end function 
dim y 
%> <tr align="center"> 
 <td colspan="4"> <%=RecordCount%>个  <font color="#FF0000"><%=page%></font>/<%=pageCount%>页 
  <%=n%>个/页 转到： 
 <SELECT name="select" onchange=window.open(this.options[selectedIndex].value,'_self') > 
 <%y=1 
     do while y<pagecount+1%> 
 <OPTION value=?page=<%=y%>&keyword=<%=server.URLEncode(keyword)%> <%if cstr(page)=cstr(y) then response.Write(" selected") end if%> >第<%=y%>页</OPTION> 
 <%y=y+1 
 loop%> 
 </SELECT></td> 
 </tr> 
</table>

文章就介绍到这了，希望大家以后多多支持脚本之家。

内容总结

以上是互联网集市为您收集整理的asp 多字段模糊搜索的函数全部内容，希望文章能够帮你解决asp 多字段模糊搜索的函数所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/385392.html

来源：【匿名】

【上一篇】使用模板实现ASP代码与页面分离【下一篇】ASP知识讲座四

更多 ►

【asp 多字段模糊搜索的函数】教程文章相关的互联网学习教程文章

服务在ASP.NET Core依赖注入中的生命周期：Transient 类型的服务在每次注入或请求的时候被创建。Scoped 类型的服务按照作用域被创建。在Web程序中，每个Web请求都会创建新的隔离的服务作用域。这意味着Scoped类型的服务通常会根据Web请求创建。Singleton 类型的服务由DI容器创建。这通常意味着它们根据应用程序仅仅被创建一次，然后用于应用程序的整个生命周期。context.Services.AddTransient<ICompressService>(x=>new CompressS...

asp.ne去除html的函数代码

复制代码代码如下:/// <summary> /// 过滤字符串中的html代码 /// </summary> /// <param name="Str"></param> /// <returns>返回过滤之后的字符串</returns> public static string LostHTML(string Str) { string Re_Str = ""; if (Str != null) { if (Str != string.Empty) { string Pattern = "<\\/*[^<>]*>"; Re_Str = Regex.Replace(Str, Pattern, ""); } } return (Re_Str.Replace("\\r\\n", "")).Replace("\\r", ""); } 原...

ASP正则函数替换分页后的参数

Function DRexPage(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.IgnoreCase=True RegEx.pattern="(\&)?page=(\d)+" DRexPage=regEx.replace(Str,"") ‘(Str,"$1") Set RegEx=Nothing End Function 在分页系统里面用到的把page后面得东西都给丢掉原文：http://www.jb51.net/article/15266.htm

ASP函数：根据表和ID和字段名，返回内容

‘//根据表和ID和字段名，返回内容Function dsf_fieldValueFromTable(fTable,id,fieldName) dim rs,sql set rs=server.createobject("adodb.recordset") sql="select * from " & fTable & " where id=" & id rs.open sql,conn,1,1 if not rs.eof then dsf_fieldValueFromTable=rs(fieldName) end if rs.close set rs=nothingEnd Function原文：http://www.cnblogs.com/dotion/p/3809041.html

asp.net 日期函数某月的第一天和最后一天的日期

#region 得到一个月的第一天和最后一天的日期 /// <summary> /// 得到本月的第一天日期 /// </summary> /// <returns>DateTime</returns> public static DateTime GetFirstDayOfMonth() { return GetFirstDayOfMonth(DateTime.Now); } /// <summary> /// 得到本月的最有一天的日期 /// </summary> /// <returns>DateTime</returns> public static DateTime GetLastDayOfMonth() { return GetLastDayOfMonth(DateTime.Now); } /// <...

ASP.NET常用函数表

Abs(number) 取得数值的绝对值。 Asc(String) 取得字符串表达式的第一个字符ASCII 码。 Atn(number) 取得一个角度的反正切值。 CallByName (object, procname, usecalltype,[args()]) 执行一个对象的方法、设定或传回对象的属性。 CBool(expression) 转换表达式为Boolean 型态。 CByte(expression) 转换表达式为Byte 型态。 CChar(expression) 转换表达式为字符型态。 CDate(expression) 转换表达式为Date 型态。 CDbl(expression)...

asp.net中函数返回参数和调用的实例！（超简单示例）

asp.net中函数返回参数和调用的实例！一、接收 read.aspx.cs调用 string cpuInfo = Read.Pro();二、返回函数，建立一个：read.csusing System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Management; using System.Management.Instrumentation;/// <summary> /// read 的摘要说明 /// </summary> /// public class Read {public Read() { }public static string Pro(){return "ok!...

深入理解asp.net中的 __doPostBack函数【代码】

前段时间做一个.net网站的时候,用到了模拟前端按钮刷新updatePanel进行局部刷新的时候,遇见了这个问题,当时没顾上记下来,查看网上资料,记下来留着以后查看.很早以前，当我刚接触asp.NET开发时，我曾有很多很多的疑问（大概是因为我以前一直做jsp开发，也接触过一段时间的asp，脑海中没有这种基于“控件编程”和“事件编程“模型的缘故吧。当然，如果对于一个长期从事桌面程序开发的人，转型做asp.net--webform当然很轻松。）。当我...

做了CDN获取用户真实IP的函数代码(PHP与Asp设置方式)

asp函数代码：复制代码代码如下:function checkip(checkstring)‘用正则判断IP是否合法dim re1set re1=new RegExpre1.pattern=”^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$”re1.global=falsere1.Ignorecase=falsecheckip=re1.test(checkstring)set re1=nothingend function function get_cli_ip()‘取真实IP函数，先 HTTP_CLIENT_IP 再 HTTP_X_FORWARDED_FOR 再 REMOTE_ADDRdim client_ipif checkip(Request.ServerVariable...

一个非常简单的将半角转换为中文的函数

代码如下:function new_str(str) if instr(str,chr(34))<>0 and str<>"" then str_split=split(str,chr(34)) i=1 str_s="" for j=0 to ubound(str_split)-1 if i mod 2 then str_s=str_s&str_split(j)&"“"&str_split(j+1) else str_s=str_s&str_split(j)&"”"&str_split(j+1) end if i=i+1 next end function

两个小函数让你的ASP程序对SQL注入免疫！

Rem ## 长整数转换 Function toNum(s, default) If IsNumeric(s) and s <> "" then toNum = CLng(s) Else toNum = default End If End Function Rem ## SQL 语句转换 Function toSql(str) If IsNull(str) Then str = "" toSql = replace(str, "''", "''''") End Function 示例: Dim sql Dim strWhere, strName, intAge strName = toSql(request("user")) intAge = toNum(request("age"), 20) sql = "SELECT * FR...

ASP常用函数:IIF()

用法: IIF(条件表达式,为真时返回值,为假时返回值) <% Function IIf(bExp1, sVal1, sVal2) If (bExp1) Then IIf = sVal1 Else IIf = sVal2 End If End Function %>

asp数据库连接函数

代码如下:' ******************************************** ' 以下为数据库相关函数 ' ******************************************** ' ============================================ ' 初始化数据库连接对象 ' 使用原则：最迟调用，最早释放 ' ============================================ Sub DBConnBegin() ' 如果数据库对象已打开，不要再打开 If IsObject(oConn) = True Then Exit Sub ' 你可以不需要打开数据库连接对...

asp连接SQL和Access数据代码(asp里的随机函数)

asp连接sql 第一种写法：代码如下:MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;" Set conn = Server.Createobject("ADODB.Connection") conn.open MM_conn_STRING SET RS=SERVER.CreateObject("ADOBD.recordset") SQL="SELECT * FROM TABLE ORDER BY ID DESC" RS.open SQL,CONN,3,3 常用的函数代码：代码如下:DataServer = "jb51" 数据库服务器IP DataUser = "jb51" 访问数据库用户名 D...

创力采集程序用到的函数推荐第1/3页

代码如下:<% '================================================== '过程名：Admin_ShowChannel_Name '作用：显示频道名称 '参数：ChannelID ------频道ID '================================================== Sub Admin_ShowChannel_Name(ChannelID) Dim Sqlc,Rsc,TempStr ChannelID=Clng(ChannelID) Sqlc ="select top 1 ChannelName from Cl_Channel Where ChannelID=" & ChannelID Set Rsc=server.Creat...

首页 / ASP / asp 多字段模糊搜索的函数

asp 多字段模糊搜索的函数

内容导读

内容图文

内容总结

内容备注

内容手机端

【asp 多字段模糊搜索的函数】教程文章相关的互联网学习教程文章

ASP.NET Core 依赖注入传入带参构造函数

asp.ne去除html的函数代码

ASP正则函数替换分页后的参数

ASP函数：根据表和ID和字段名，返回内容

asp.net 日期函数某月的第一天和最后一天的日期

ASP.NET常用函数表

asp.net中函数返回参数和调用的实例！（超简单示例）

深入理解asp.net中的 __doPostBack函数【代码】

做了CDN获取用户真实IP的函数代码(PHP与Asp设置方式)

一个非常简单的将半角转换为中文的函数

两个小函数让你的ASP程序对SQL注入免疫！

ASP常用函数:IIF()

asp数据库连接函数

asp连接SQL和Access数据代码(asp里的随机函数)

创力采集程序用到的函数推荐第1/3页

ASP - 相关标签

字段 - 相关标签

ASP - 技术教程分类

ASP - 最新教程

ASP - 最热教程