a 设为首页
a 加入收藏
a 联系我们
a     本站诚征友情链接！！！  [admin  2007年11月22日]         今天是
 | 网站首页 | 站长在线 | 新闻资讯 | 网页设计 | 平面设计 | 网络媒体 | 网络安全 | 服务器 | 软件下载 | 图片素材 | 在线商城 | 站长论坛 | 留言 | 繁體中文
热门搜索关键字： 模板 | 错误 | 标签 | 采集 | 数据库 | 组件 | 代码 | 特效 | 木马 | 插件 | 虚拟主机
文章 下载 图片
栏目导航  
【ASPNET】
【JspPhp】
【HTMLCSS】
【网页配色】
【网页特效】
【Frontpage】
【Dreamweaver】
【其他相关】
专题栏目  
· 网络架设  · 病毒安全
· 图行天下  · 音影视听
· 动易软件  · 动网软件
· 虚拟组合  · SEO技术
推荐文章  
热门文章  
图片文章  
 
您现在的位置： 中国站长在线|ITE258 >> 网页设计 >> ASPNET >> 正文
我写的一段小程序，是内容搜索程序(总共三个帖子90分)关于正则表达式的问题
文章来源：网络获取 点击数： 更新时间：2008-4-10 【字体：小 大】




  • 上一篇文章：

  • 下一篇文章：
    • 【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　
    关于〖我写的一段小程序，是内容搜索程序(总共三个帖子90分)关于正则表达式的问题〗的最新评论：
    因为本人积累了很多代码，平时靠文件系统查询比较麻烦和费事，写了一个检索系统，在dis.aspx这个最终内容显示页面上我会把查询要害字加粗并用红色标识出来，但是有时候能标识出来，有时不行，如 "开发 "这个要害字用全文搜索，然后点开内容页面就不能标识出来，而且单个汉字也无法标识，英文就没有问题,我用的是正则表达式

    地址是：http://222.67.177.236/infosch.aspx

    以下是以前的帖子，解决了一起结帖

    http://community..net/Expert/topic/5763/5763186.xml?temp=.6211206

    http://community..net/Expert/topic/5762/5762995.xml?temp=.2336084
    网友回复:哦，对了，因为数据库里面文章比较少，只有80来篇，要害词大家可以用datagrid或checkboxlist或button,然后选择全文搜索
    网友回复:代码如下：
    <%@ Page Language= "VB " Debug= "true " validateRequest= "false " %>
    <%@ Register Assembly= "FredCK.FCKeditorV2 " Namespace= "FredCK.FCKeditorV2 " TagPrefix= "FCKeditorV2 "%>
    <%@Import Namespace= "System.Data "%>
    <%@Import Namespace= "System.Data.Sqlclient "%>
    <%@ Register
    Assembly= "AjaxControlToolkit "
    Namespace= "AjaxControlToolkit "
    TagPrefix= "ajaxToolkit " %>
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN " "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd ">
    <script runat= "server " language= "VB ">

    Sub Page_load()
    If Not IsPostBack Then
    Dim strcontent As String
    Dim strarray() As String
    Dim strtitle As String
    Dim str As String
    Dim con As SqlConnection
    Dim cmd As SqlCommand
    Dim strcmd As String
    Dim da As SqlDataReader
    con = New SqlConnection(ConfigurationSettings.AppSettings( "innsa "))
    strcmd = "select title,content from infomation where id= " & CInt(Request( "id "))
    cmd = New SqlCommand(strcmd, con)
    con.Open()
    da = cmd.ExecuteReader
    If da.Read() Then
    ttl.Text = da(0)
    strcontent = da(1)
    End If
    con.Close()



    If Request( "keyi ") <> " " And Request( "keyi ") <> "请输入查询要害词，如有多个要害词请用-隔开 " Then

    Dim keyi As String = Request( "keyi ")
    strarray = keyi.Split( "- ")
    For Each str In strarray
    'Dim r As Regex
    'r = New Regex( "^[\u4E00-\u9FFF] $ ")
    Dim matches As MatchCollection = Regex.Matches(strcontent, str, RegexOptions.IgnoreCase)


    Dim i As Int32 = 0
    Dim m As Match
    For Each m In matches

    strcontent = strcontent.Insert(m.Index str.Length i, " </b> </font> ")
    strcontent = strcontent.Insert(m.Index i, " <font color= 'red '> <b> ")
    i = i 32


    Next

    Next
    | 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 管理登录 | 
    中国站长在线 http://www.ite258.com 电子邮件：ite258@126.com
    点击给站长发消息！站长QQ群： 15643723
    湘ICP备07501014号
    站长：梦天　Copyright (c) 2002-2008 ite258.com. All Rights Reserved.
    本站部分资源由网友推荐，来自互联网，版权属于原版权人，如果不慎侵犯到您的权利，敬请告知，我们会在第一时间撤除。
    本站中各网友的评论只代表其个人观点，不代表本站同意其观点。