asp搜索的代码高手进啊_工具

'数据表名：ge

'字段，id,gs,gq,gc

strkey=requestForm("t")

if strkey<>"" then

set rs=serverCreateObject("adodbrecordset")

if strkey=1 then

strsql="select from ge where gs like '%"&strkey&"%'"

rsopen strsql,conn,1,1

while not rseof

strge=rs("gs")

elseif strkey=2 then

strsql="select from ge where gq like '%"&strkey&"%'"

rsopen strsql,conn,1,1

while not rseof

strge=rs("gq")

elseif strkey=3 then

strsql="select from ge where gc like '%"&strkey&"%'"

rsopen strsql,conn,1,1

while not rseof

strge=rs("gc")

end if

rsmovenext

wend

rsclose

set rs=nothing

end if

您搜索的结果：<%=strge%>

你的提交按钮呢

改一下,如下:

</form>

search/searchasp 改动如下：

searchname = trim(request("searchname"))

'这里要判断你输出的搜索词语是否为空 isnumeric是判断输入的值是否是数字

if searchname ="" or isnumeric(searchname ) then

strWhere = "" ‘值为空或是数字查询条件将为空

else

strWhere = " where name like '%"&searchname &"%' " '值为字符串时

end if

set rs = serverCreateObject("adodbrecordset")

sql = "select from products_biao "&strWhere

rsopen sql,conn,1,3

if not rseof then

while not rseof

<tr>

<td width="103"rowspan="3"><a href="productaspid=<%=rs("id")%>"><img src="images/<%=rs("pic")%>"width="100"height="100"border="0"></a></td>

<td width="107">名称：

<%=rs("name")%></td>

</tr>

<tr>

</tr>

</table>

rsmovenext '指向下一个记录

wend

else

responseWrite("你搜索的关键词暂无信息")

end if

rsclose

set rs = nothing

connclose

set conn = nothing

要实现这个功能的话一般都是如下，现在比如数据库为当前目录下的123mdb，其中的表名为：person；的字段是：name,sex,age这几个；

页面一：onehtml;

在body里面加入一下代码

</form>

页面二：dealasp在body里面加入以下代码

<tr>

</tr>

'连接数据库

db = "123mdb"

connstr = "DBQ=" + servermappath(""&db&"") + ";DefaultDir=;DRIVER={Microsoft Access Driver (mdb)};"

Set conn = serverCreateObject("ADODBCONNECTION")

connOpen connstr

set rs = serverCreateObject("adodbrecordset")

'查询数据库

p_name = requestForm("p_name")'要查询的名字

s_type = requestForm("s_type")'要查询的类型，精确查询还是模糊查询

if s_type = "like" then'模糊查询

sql = "select from person where name like '%"&p_name&"%'"

else

sql = "select from person where name = '"&p_name&"'"

end if

rsopen sql,conn,1,1

do while not rseof%>

</tr>

<%rsmovenext

loop

rsclose

</table>

如果你要查出来只有一条记录的话，你的name字段必须是唯一的

首先是ASP与数据库建立连接

<% set dbconnection=Server CREATEOBJECT( ADODB CONNECTION )DBPath = Server MapPath( customer mdb )dbconnection Open driver={Microsoft Access Driver ( mdb)};dbq= & DBPath

建立与数据库的连接与上同

SQL= select from 客户 Order By 时间 DESC SET CustomerList=dbconnection EXECUTE(SQL)%>

建立SQL查询语句表示从客户表中查询所有记录 Order By 时间 DESC表示按时间降序排序这样最后添加的信息再最上面显示下面一句执行SQL查询并将结果返回给Recordset对象CustomerList

<><body><FONT SIZE= ><center>数据库记录</center></FONT><CENTER><TABLE BORDER= ><tr><td>编号</td><td>公司名称</td><td>联络人姓名</td><td>所在城市</td><td>电话号码</td></tr><% DO WHILE NOT CustomerList EOF %>

检测记录是否到了最后一条 EOF表示End of File

<% =CustomerList( 客户编号 ) %>可以说是Response Write方法的简写将客户编号字段内的数据写入TD标签间

<% CustomerList movenext loop %>

如果还没有到最后一条则指针移动到下一条用Do While Loop循环逐一取得所有的记录

</TABLE></CENTER><center><input type= button onclick= javascript:location value= 添加数据 ></center></BODY></HTML>

lishixinzhi/Article/program/net/201311/13022

1>key=requestquerystring("key")或者直接:key=request("key")

2>kind requestquerystring("type") kind=request("type")

3>rsopen sql,conn,1,1

4>如果想出的错误最少的话，建议把你网站下所有目录和文件全部用英文代替，哪怕用拼音也比用汉字命名的会少出错误。

基于ASP的站内多值搜索

运行环境：IIS

脚本语言：VBScript

数据库：Access/SQL Server

数据库语言：SQL

1．概要：

不论是在论坛，还是新闻系统，或是下载系统等动态网站中，大家经常会看到搜索功能：搜索帖子，搜索用户，搜索软件（总之搜索关键字）等，本文则是介绍如何建立一个高效实用的，基于ASP的站内多值搜索。

本文面对的是“多条件模糊匹配搜索”，理解了多条件的，单一条件搜索也不过小菜一碟了。一般来讲，有两种方法进行多条件搜索：枚举法和递进法。搜索条件不太多时（n<=3）,可使用枚举法，其语句频度为2的n次方，成指数增长，n为条件数。很明显，当条件增多以后，无论从程序的效率还是可实现性考虑都应采用递进法，其语句频度为n，成线性增长。需要指出的是，枚举法思路非常简单，一一判断条件是否为空，再按非空条件搜索，同时可以利用真值表技术来对付条件极多的情况（相信没人去干这种事，4条件时就已经要写16组语句了）；递进法的思想方法较为巧妙，重在理解，其巧就巧在一是使用了标志位（flag）,二是妙用SQL中字符串连接符&。下面以实例来讲解引擎的建立。

2．实例：

我们建立一通讯录查询引擎，数据库名为addressbookmdb,表名为address,字段如下：

ID Name Tel School

1 张三 33333333 电子科技大学计算机系

2 李四 44444444 四川大学生物系

3 王二 22222222 西南交通大学建筑系

… … … …

Web搜索界面如下：

姓名：电话：学校：搜索按钮

采用枚举法的源程序如下：

<%@ CODEPAGE = "936" %>

'连接数据库

dim conn

dim DBOath

dim rs

dim sql

Set conn=ServerCreateObject("ADODBConnection")

DBPath = ServerMapPath("addressbookmdb")

connOpen "driver={Microsoft Access Driver (mdb)};dbq=" & DBPath

Set rs=ServerCreateObject("ADODBRecordset")

'从Web页获取姓名、电话、学校的值

dim Name

dim Tel

dim School

Name=request("Name")

Tel=request("Tel")

School=request("School")

'枚举法的搜索核心，因为有3个条件所以要写8组If判断语句

if trim(Name)="" and trim(Tel)="" and trim(School)="" then

sql="select from address order by ID asc"

end if

if trim(Name)="" and trim(Tel)="" and trim(School)<>"" then

sql="select from address where School like '%"&trim(School)&"%' order by ID asc"

end if

if trim(Name)="" and trim(Tel)<>"" and trim(School)="" then

sql="select from address where Tel like '%"&trim(Tel)&"%' order by ID asc"

end if

if trim(Name)="" and trim(Tel)<>"" and trim(School)<>"" then

sql="select from address where Tel like '%"&trim(Tel)&"%' and School like '%"&trim(School)&"%' order by ID asc"

end if

if trim(Name)<>"" and trim(Tel)="" and trim(School)="" then

sql="select from address where Name like '%"&trim(Name)&"%' order by ID asc"

end if

if trim(Name)<>"" and trim(Tel)="" and trim(School)<>"" then

sql="select from address where Name like '%"&trim(Name)&"%' and School like '%"&trim(School)&"%' order by ID asc"

end if

if trim(Name)<>"" and trim(Tel)<>"" and trim(School)="" then

sql="select from address where Name like '%"&trim(Name)&"%' and Tel like '%"&trim(Tel)&"%' order by ID asc"

end if

if trim(Name)<>"" and trim(Tel)<>"" and trim(School)<>"" then

sql="select from address where Name like '%"&trim(Name)&"%' and Tel like '%"&trim(Tel)&"%' and School like '%"&trim(School)&"%' order by ID asc"

end if

rsopen sql,conn,1,1

'显示搜索结果

if rseof and rsbof then

responsewrite "目前通讯录中没有记录"

else

do while not rseof

responsewrite "姓名："&rs("Name")&"电话："&rs("Tel")&"学校："&rs("School")&"<br>"

rsmovenext

loop

end if

'断开数据库

set rs=nothing

connclose

set conn=nothing

理解上述程序时，着重琢磨核心部分，8组语句一一对应了3个搜索框中的8种状态

Name Tel School

空空空

空空非空

空非空空

空非空非空

非空空空

非空空非空

非空非空空

非空非空非空

另外trim()是VB的函数，将输入的字符串前后的空格去掉；%是SQL语言中的多字符通配符（_是单字符通配符），由此可见%"&trim()&"%对搜索框中输入的关键字是分别向左向右匹配的；SQL语言中用and连接说明非空条件之间是“与”关系。

再来看看递进法，与枚举法相比它们只有核心部分不同：

'递进法的搜索核心，依次判断条件为空否，非空则将其加入搜索条件

sql="select from address where"

if Name<>"" then

sql=sql&" Name like '%"&Name&"%' "

flag=1

end if

if Tel<>"" and flag=1 then

sql=sql&" and Tel like '%"&Tel&"%'"

flag=1

elseif Tel<>"" then

sql=sql&" Tel like '%"&Tel&"%'"

flag=1

end if

if Company<>"" and flag=1 then

sql=sql&" and Company like '%"&Company&"%'"

flag=1

elseif Company <>"" then

sql=sql&" Company like '%"&Company&"%'"

flag=1

end if

if flag=0 then

sql="select from address order by ID asc"

end if

rsopen sql,conn,1,1

递进法是一个明智的算法，单从语句的长短就可以看出来了。这个算法的难点和精髓就在flag和&上。首先你应该清楚&在SQL中就是一个字符串连接符，把该符号左右的字符拼接在一起。再回到程序，当Name不为空时sql="select from address where Name like '%"&Name&"%' "同时flag=1；接下来当Name不为空时且Tel不为空时，即Tel<>"" and flag=1时，sql="select from address where Name like '%"&Name&"%' and Tel like '%"&Tel&"%' "同时flag=1，否则当Name为空Tel不为空，sql="select from address where Tel like '%"&Tel&"%' "同时flag=1；以此类推就可以推广到n个条件的搜索。当然条件皆为空时，即flag=0将选择所有表中所有项。

3．验证：

至此，一个搜索引擎就建立起来了。以下是一些使用示例：

姓名：张电话：学校：搜索按钮

搜索结果为：

姓名：张三电话：33333333 单位：电子科技大学计算机系

姓名：电话：学校：大学搜索按钮

搜索结果为：

姓名：张三电话：33333333 单位：电子科技大学计算机系

姓名李四电话：44444444 单位：四川大学生物系

姓名：王二电话：22222222 单位：西南交通大学建筑系

姓名：电话：4444 学校：四川搜索按钮

搜索结果为：

姓名李四电话：44444444 单位：四川大学生物系

姓名：电话：学校：交%大搜索按钮

搜索结果为：

姓名：王二电话：22222222 单位：西南交通大学建筑系

4．改进：

其实这个引擎还有些缺陷，问题主要在于通配符%。一方面是因为人们平时习惯把作为通配符，另一方面%若出现在超链接中，通过request获取时%将被“吃”掉，如下：

--testhtm--

…

<a href=testaspcontent=test%the%sign>click here</a>

…

--testasp--

content=request(“content”)

responsewrite content

在IE中浏览testhtm时点击超链接，显示为：

testthesign

可见%直接被超链接忽略掉了。怎么才能解决这个问题呢？很简单，我们做点小小的手脚--偷梁换柱。

将以下代码加在搜索核心之前：

Name=replace(Name,"","%")

Tel=replace(Tel,"","%")

Company=replace(Company,"","%")

将以下代码加在搜索核心之后：

Name=replace(Name,"%","")

Tel=replace(Tel,"%","")

Company=replace(Company,"%","")

在我们来分析一下这些语句。replace()是VB中字符串替换函数，replace(Name,"","%") 就是将Name中所有的换成%。也就是说，我们把3个条件中凡是出现的都替换为%，这样一来前3句就将通配符改成了。而后3句就可以防止%被“吃”掉。所有问题就迎刃而解了吧。

姓名：电话：学校：交%大搜索按钮

搜索结果为：

姓名：王二电话：22222222 单位：西南交通大学建筑系

将上面的语句再改一改，把用空格代替，不就成了我们在Google、BaiDu中常用的用空格来分开搜索条件的搜索引擎了吗？

以上就是关于asp搜索的代码高手进啊全部的内容，包括:asp搜索的代码高手进啊、asp搜索数据库关键字、求一段asp查询代码，要能输入名字就能查出来他在数据库表中的所有信息，我还真是菜鸟啊等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/sjk/10200805.html

asp搜索的代码高手进啊

发表评论

评论列表（0条）

asp搜索的代码 高手进啊

发表评论

评论列表（0条）

asp搜索的代码高手进啊