仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 3331|回复: 19

[学习教程] ASP教程之在ASP使用法式中到场智能搜刮

[复制链接]
小妖女 该用户已被删除
发表于 2015-2-3 23:42:31 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全法式       用ASP完成搜刮引擎的功效是一件很便利的事,可是,若何完成相似3721的智能搜刮呢?好比,当在搜刮前提框内输出“中国国民”时,主动从中提取“中国”、“国民”等关头字并在数据库内停止搜刮。看完本文后,你就能够发明,这个功效完成起来居然是如斯的复杂。
第一步,咱们要创立一个名为db_sample.mdb的数据库(本文以Access2000数据库为例),并在个中创立表T_Sample。表T_Sample包含以下字段:

  ID 主动编号
  U_Name 文本
  U_Info 备注

  第二步,咱们入手下手设计搜刮页面Search.asp。该页面包含一个表单(Frm_Search),表单内包含一个文本框和一个提交按钮。并将表单的method属性设为“get” ,action属性设为“Search.asp",即提交给网页本身。代码以下:

<!-- Search.asp -->
<form name="frm_Search" method="get" action="Search.asp">
请输出关头字:
<input type="text" name="key" size="10">
<input type="submit" value="搜刮">
</form>
  上面,就进入了完成智能搜刮的关头局部。

  起首,创立数据库毗连。在Search.asp的入手下手处到场以下代码:

<%
 Dim strProvider,CNN
 strProvider="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
 strProvider=strProvider & Server.MapPath("\") & "\data\db_Sample.mdb" 假定数据库寄存在主页根目次下的data目次下
 Set CNN = Server.CreateObject("ADODB.connection")
 CNN.Open strProvider 翻开数据库毗连
%>
  接上去,判别 ASP页所吸收到的数据,并在数据库中停止搜刮。

<%
 Dim S_Key,RST,StrSQL
 S_Key = Trim(Request("key")) 失掉搜刮关头字的值
 If S_Key <>"" then
  Set RST=Server.CreateObject("ADODB.RecordSet")
  StrSQL=AutoKey(S_Key) 此处利用自界说函数 AutoKey(),该函数为完成智能搜刮的中心
  RST.Open StrSQL,CNN,3,2 失掉搜刮后的纪录
  If RST.BOF And RST.EOF Then
%>
<font color="#FF0000">未找就任何了局!!!</font>
<%
Else
%>
搜刮称号为“<font color="#FF0000"><%= S_Key %></font>”的项,共找到 <font color="#FF0000"><%= RST.RecordCount %></font> 项:<p>
<%
While Not RST.EOF 遍历全部纪录集,显示搜刮到的信息并设置链接
%>
<!-- 此处可设为你所需求的链接方针 -->
<font style="font: 12pt 宋体"><a href="info.asp?ID=<%= RST("ID") %>" target="_blank"><%= RST("U_Name") %></a></font>

<!-- 显示局部具体内容 -->
<font style="font: 9pt 宋体"><%= Left(RST("U_Info"),150) %></font><p>
<%
 RST.MoveNext
 Wend
  RST.Close
  Set RST=Nothing
 End If
End If
%>
  在下面的代码中,有一个自界说函数 AutoKey ,该函数是完成智能搜刮的中心地点。代码以下:

<%
Function AutoKey(strKey)
CONST lngSubKey=2
Dim lngLenKey, strNew1, strNew2, i, strSubKey
  检拆字符串的正当性,若不正当则转到失足页。失足页你可以依据需求停止设定。

if InStr(strKey,"=")<>0 or InStr(strKey,"`")<>0 or InStr(strKey,"")<>0 or InStr(strKey," ")<>0 or InStr(strKey," ")<>0 or InStr(strKey,"")<>0 or InStr(strKey,chr(34))<>0 or InStr(strKey,"\")<>0 or InStr(strKey,",")<>0 or InStr(strKey,"<")<>0 or InStr(strKey,">")<>0 then
Response.Redirect "error.htm"
End If

lngLenKey=Len(strKey)
Select Case lngLenKey
Case 0 若为空串,转到失足页
Response.Redirect "error.htm"
Case 1 若长度为1,则不设任何值
strNew1=""
strNew2=""
Case Else 若长度大于1,则从字符串首字符入手下手,轮回取长度为2的子字符串作为查询前提
For i=1 To lngLenKey-(lngSubKey-1)
strSubKey=Mid(strKey,i,lngSubKey)
strNew1=strNew1 & " or U_Name like %" & strSubKey & "%"
strNew2=strNew2 & " or U_Info like %" & strSubKey & "%"
Next
End Select
  失掉完全的SQL语句

AutoKey="Select * from T_Sample where U_Name like %" & strKey & "% or U_Info like %" & strKey & "%" & strNew1 & strNew2

End Function
%>
  要完成智能搜刮,其中心就是将搜刮关头字停止主动分组。在此处,咱们利用了轮回取长度为2的子串的办法。为何不将子串长度定为1、3、4或其他呢?这是由于若子串长度小于2即为1时,会得到将关头字分组的功效,而若子串长度大于2,则会丧失一些词组。人人可以将 CONST lngSubKey=2改成其他数字试一试,孰优孰劣自见分晓。

  最初,别忘了将数据毗连封闭,以释放资本。

<%
CNN.Close
Set CNN=Nothing
%>
  至此,这个智能搜刮引擎已完成了。你还可以将其持续完美,好比添加分页、凸起显示等功效。好了,不延误人人工夫了,从速去试一试吧。 </p>  帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。
不帅 该用户已被删除
发表于 2015-2-4 06:06:38 | 显示全部楼层
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
若天明 该用户已被删除
发表于 2015-2-5 14:43:46 | 显示全部楼层
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
简单生活 该用户已被删除
发表于 2015-2-12 06:54:45 | 显示全部楼层
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
老尸 该用户已被删除
发表于 2015-3-2 23:50:09 | 显示全部楼层
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
精灵巫婆 该用户已被删除
发表于 2015-3-11 07:37:49 | 显示全部楼层
哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
小妖女 该用户已被删除
 楼主| 发表于 2015-3-16 06:45:44 | 显示全部楼层
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
冷月葬花魂 该用户已被删除
发表于 2015-3-17 11:10:54 | 显示全部楼层
那么,ASP.Net有哪些改进呢?
因胸联盟 该用户已被删除
发表于 2015-3-24 08:49:48 | 显示全部楼层
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
变相怪杰 该用户已被删除
发表于 2015-3-27 14:08:48 | 显示全部楼层
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
莫相离 该用户已被删除
发表于 2015-4-14 14:02:52 | 显示全部楼层
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
山那边是海 该用户已被删除
发表于 2015-4-14 19:01:49 | 显示全部楼层
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
飘飘悠悠 该用户已被删除
发表于 2015-4-24 11:00:45 | 显示全部楼层
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
兰色精灵 该用户已被删除
发表于 2015-4-30 01:10:57 | 显示全部楼层
他的语法和设计思路和VB完全相同,导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是,相当多的ASP教程混合了Javascript,VBscript等等脚本语言,搞的初学者。
透明 该用户已被删除
发表于 2015-7-8 21:09:30 | 显示全部楼层
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
乐观 该用户已被删除
发表于 2015-7-9 14:38:15 | 显示全部楼层
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
谁可相欹 该用户已被删除
发表于 2015-7-12 05:36:01 | 显示全部楼层
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
深爱那片海 该用户已被删除
发表于 2015-10-4 20:40:20 | 显示全部楼层
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
只想知道 该用户已被删除
发表于 2015-10-11 19:23:37 | 显示全部楼层
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
飘灵儿 该用户已被删除
发表于 2015-10-13 16:54:03 | 显示全部楼层
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-3-29 20:15

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表