说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB制作自己的网络搜索软件

HTML文档下载 WORD文档下载 PDF文档下载
VB制作自己的网络搜索软件

大家都知道,获得信息是我们上网的很大一个目的,而获得信息对于大多数人来说要通过网上的搜索引擎来搜索自己所需要的信息,而搜索软件通过向搜索站点发出特殊搜索字串命令(各个站点的格式不一样),然后用软件对结果进行处理后显示出来。原理简单,可是效果却是显著的,能够迅速而方便的搜索到各个站点的信息。下面我就通过介绍使用 vb制作自己的搜索软件和剖析现在流行的搜索软件程序来介绍这些内容:
  我们都知道vb是最简单方便的编程语言,利用vb编写一个小小的搜索软件用不了多少行语句。第一步当然要安装一个vb5.0或者6.0 的运行环境。启动vb以后,首先创建了一个窗体,然后要对运行环境进行一下设置:具体来说呢,就是添加上必要的控件,一般来说,如果您安装了IE4.0以上的浏览器,windows的 system目录中就会有SHDOCVW.DLL的文件,我们通过点击菜单中“工程http://127.0.0.1/netware/”-“部件http://127.0.0.1/netware/”,在弹出的对话框中找到有一栏写着http://127.0.0.1/netware/”microsoft internet controlshttp://127.0.0.1/netware/”的选项,这个选项其实就是上面提到的SHDOCVW.DLL 文件的描述。利用这个文件我们可以初始化一个浏览器的实例。当您选中这个选项后,会发现工具栏中多了一个形状如同地球的按钮,这就是刚才选中的浏览器控件,我们双击这个图标按钮在窗体上生成一个webbrowser1 的部件,接下来我们就使用这个部件来显示查询的结果。

  接下来我们在窗体上放上一个文本框和一个按钮,其实就这几个部件已经可以算是一个最小的搜索程序基本结构了。我们现在来所一说网络搜索的原理:上面已经提到是通过向搜索站点发出特殊搜索字串命令(各个站点的格式不一样),然后用软件对结果进行处理后显示出来,但如何发出搜索字符串、发出怎样的字符串还需要有一定的HTML 知识。我们知道对于网上信息的的发送是通过表单的形式来发送的,也就是说当我们在网上点击某些表单时,通过表单中包含的默认地址中的表单处理程序来接受所有包含在表单中的信息,而这些信息有的是显示的,而另外一些却是隐藏的。您可以试着将一个包含有表单的网页用Frontpage或者Dreamwaver打开,这时你就会发现有很多用浏览器看不到的东西,这些隐藏的标志同样在您发送表单时起着重要的作用。没有这些标志,发出的字符串很可能得不到服务器的应答。我们知道了这些,再返回头来看我们程序所需发出的字符串,举个例子来说:最常用的雅虎中文的搜索代码是 http://127.0.0.1/netware/”http://cn.search.yahoo.com/search/gb?p=***http://127.0.0.1/netware/”,其中***代表的是所要搜索的字符串,而剩余的部分是处理字符串的服务器程序的地址,另外一个我们很常用的搜索引擎Yeah,它的搜索代码相对复杂了一些是http://127.0.0.1/netware/”http://www2.yeah.net/cgi-bin/query2.exe?query=***&start=0&REXP=ANDhttp://127.0.0.1/netware/” ,但基本的东西没有变,它们都是使用了这样一种形式:http://目标URL?参数1名=参数1值&参数2名=参数2值&参数3名=参数3值…

  对于http协议,其中包括重要的几种传送数据的方法,其中比较常用的有GET和POST方法,对于使用GET方法进行传送数据的网站来说,使用上面的形式百发百中,都能够通过一条查询语句返回所需要查询的内容网页,但对于使用 POST方法的网站,有可能返回不了查询结果网页,不过从我的经验看,一般来说是能够成功的。

  知道了如何向服务器发送查询语句,下面我们就从程序的角度来写:假若窗体上有一个文本框Text1、一个标签Label1、一个浏览器Webbrowser1、一个按钮Command11,其中文本框用于输入关键词,浏览器用于显示查询结果网页,按钮用于发出请求语句,那么点击Command1的程序语句可以这样写:

Private Sub Command1_Click()

Dim url As String

On Error Resume Next '出错后继续

If Text1.Text = "" Then MsgBox "请先输入关键字": Exit Sub '防止不输入关键词

url = "http://search.chinese.yahoo.com/search/gb?p=" +Text1.Text '将关键词放入查询语句中

Webbrowser1.Navigate url'调用浏览器显示查询结果

End Sub

  雅虎的查询语句比较简单,而对于比较复杂网站的查询语句一定要注意的是各个关键参数之间一定要用“&http://127.0.0.1/netware/”来隔开。虽然你只是学会了这一招,但已经足够利用网上的资源来编写你的第一个程序了,因为网上所有类型的表单都能表示了,无论是查询股票、软件、书籍、图片,都不外乎这种模式。只要你将查询网页调入 Frontpage、Dreamwaver等所见即所得的网页编辑软件中,便会毫无遮拦的展现在你的面前,利用这些链接,再加上一个好的界面,当然可以制作自己的搜索工具软件了,不过要注意的是,有些表单的传送路径的是相对路径,这时要加上网站的地址链接。
  可能有人要说,这么简单,谁不知道,不是为了赚稿费吧?错。刚才的方法比起直接访问搜索站点的确能节省不少上网的时间,但并没有将程序的优势全部发挥出来,我们现在继续讲另外一种检索网页的方法:首先介绍一个控件Microsoft Internet Transfer(这个控件在安装vb或者某些程序的时候会自动安装),这个控件允许建立与其他计算机的链接,并传送文件。它使两个Internet规则 HTTP和FTP的使用变得容易。当正常访问一个网页时,Internent Transfer用GET命令访问网络浏览器的一个文件。例如,如果打开了URL http://www.cpcw.com/index.htm,浏览器将建立与地址在www.cpcw.com的机器的链接,并传送命令GET/index.htm。HTML 将通过链接以普通文本的方式返回,因为返回的内容只是所要的网页的源文件,节省了很多用于传送显示网页中图像的时间,速度要快了许多,但最重要的是我们可以很方便地使用自己的逻辑对凡会的源文件进行正确地分析和格式化,重新整理网页的查询结果。

  我们还用刚才的窗体,只是要在菜单中选择“工程“-http://127.0.0.1/netware/”部件“,在弹出的对话框中找到一项是:Microsoft Internet Transfer Control,选中后,在工具栏中您就会发现增添了一个显示有地球和计算机的小按钮,双击这个按钮会在窗体上加入一个 Internet Transfer实例Inet1,完成了这些步骤后,窗体应如图一所示。现在准备在实例工程中加入代码。

  Internet Transfer控件有一个事件StateChanged。这个事件的目的是当不同的操作发生时通知用户程序。例如:控件在与网络服务器链接时是一种状态,检索HTML是另一种状态。当前的状态用事件过程的State 参数来表示。在示例程序的StateChanged事件中输入如下代码:

Private Sub Inet1_StateChanged(ByVal State As Integer)

Select Case State

Case 12 '表明网络连接检索正常

stemp=Inet1.GetChunk(1024) '使用GetChunk方法从缓冲区中一次提取1024个字节的回应文本,并存放在stemp临时变量中

While stemp<>http://127.0.0.1/netware/”http://127.0.0.1/netware/”'当仍然返回信息时

LastResult=LastResult+stemp'将整个网页的源文件代码放入LastResult变量中

stemp=Inet1.GetChunk(1024)'循环

Wend

Case 11

MsgBox "未返回搜索结果"

End Select

End Sub

尽管StateChanged事件包含了这个示例程序代码的主要部分,我们仍然需要在Command1的Click事件中加入代码,以初始化这个请求。下面就是这段代码:

`

Private Sub Command1_Click()

url = "http://search.chinese.yahoo.com/search/gb?p=" +Text1.Text

Inet1.protocol=icHTTP'指明控件协议类型

Inet1.Execute CStr(url),http://127.0.0.1/netware/”GET /http://127.0.0.1/netware/” '发出请求

While Inet1.StillExecuting

DoEvents

Wend

End Sub

  前面已经提到,以这种方法返回的信息包含了搜索的结果网页,同直接搜索的区别就是由于这样返回的就是源代码,暂时存储到一个临时变量中,这样一来,你既可以将返回的信息直接存储到一个文件中,另一种方法,这就是我们下面要提到的对代码的优化处理。

  什么叫对代码的优化处理呢?因为返回的结果中包含许多其他没有什么用处的修饰,比如表格、banner、menta等等信息,而这些信息并不是我们需要的,去掉这些信息,只保留对我们来说有用的结果,这就是优化。那么怎样优化呢?分析HTML语法您就会看到,许多信息都是包含在一些关键词之间。举个例子:对于插入的图片来说,都是用http://127.0.0.1/netware/”http://127.0.0.1/netware/”来结尾,这样一来就清楚了,只要把代码中所有的满足以上条件的语句删掉,这样代码中就不会出现直接图片信息,我们参考以下的一段代码:

Public Function picFilter(downCode)'定义一个过滤图片信息的过程

Dim pStart As Long, pStop As Long

Dim pString1 As String, pString2 As String

pString1 = "
pString2 = ">" '分别将两个关键词定义

pStart = InStr(downCode, pString1)'找到第一个图片信息的起始位置

If pStart <> 0 Then '如果代码中有图片信息的话

pStop = InStr(pStart, downCode, pString2) + 1 '从上面找的起始部位开始找到第一个用于结束图片信息的http://127.0.0.1/netware/”>http://127.0.0.1/netware/”

Do While pStart <> 0 '只要仍旧有图片信息

Mid(downCode, pStart, pStop - pStart) = Space(pStop - pStart) '将代码中的图片信息用空格代替,实现删除效果

pStart = InStr(pStop, downCode, pString1)'重复上面的过程,删除其他的图片信息

If pStart = 0 Then Exit Do '没有图片信息后,退出循环

pStop = InStr(pStart, downCode, pString2, 1) + 1

Loop

picFilter=downCode '将处理过后的代码返回过程函数

End Function

接下来只要使用

lastResult=picFilter lastResult

就实现了对临时变量中搜索结果代码的图片信息去除工作,以此类推,很容易去掉诸如http://127.0.0.1/netware/”
  上面所说的是一种方法,但我们知道HTML语法中关键词很多,如果都用以上的条件过滤的话,会使程序的效率大大降低,运行速度也会减慢很多。有没有更好的方法?有,如果是有心人的话,您就会发现不同的搜索引擎返回的结果有其独特的编排方式,我们仍旧以雅虎为例,你只要察看其返回的结果源代码就会发现:每一条信息的链接和主题部分排列都是以“
  • http://127.0.0.1/netware/”开始,以“http://127.0.0.1/netware/”结束,而在“http://127.0.0.1/netware/” 和接下来的第一个“
    Public Function yahooFilter(downCode)

    Dim sString1 As String, sString2 As String, sString3 As String

    Dim sStart As Long, sStop As Long

    Dim string1 As String, string2 As String, lastString as string

    sString1 = "
  • "

    sString2 = "
    "

    sString3 = "<"

    sStart = InStr(downCode, sString1)'取得第一条主题信息的起始位置

    Do While sStart <> 0

    sStop = InStr(sStart, downCode, sString2)

    string1 = Mid(downCode, sStart + 4, sStop - sStart) '将第一条主题信息存放在string1变量中

    sStart = InStr(sStop, downCode, sString1) '从第一条主题信息的结束部位开始查找该主题的简单描述

    sStart = sStop + 4

    sStop = InStr(sStart, downCode, sString3) '取得该主题描述部分的结束位置

    If sStop = sStart Then '判断只有主题而没有描述的信息

    string2 = ""

    ElseIf sStop <> sStart Then

    string2 = Mid(downCode, sStart, sStop - sStart - 1) '取出主题描述部分

    End If

    lastString = lastString + "

    " + string1 + string2 '将提炼的结果存放在临时变量中

    sStart = InStr(sStop, downCode, sString1)'重新定位下一条信息的起始位置

    Loop'循环

    yahooFilter = lastString'

    End Function


    经过了上面复杂的提炼,然后将提炼的结果写到一个网页文件中,然后调用浏览器显示,会出现整整齐齐的结果,象图二一样:

      返回头来我们看一下现在比较流行的搜索软件,比如 SearchX98、Crazysearch、Inforian Quest 99,无论他们说明写的再好,也跳不出上面所说的原理,但他们各自有自己的一些独特之处,比如SearchX98 能够连续搜索多个引擎,其实就是发出一条搜索指令后,程序本身连续在各个搜索引擎发出搜索指令,将返回的结果经过简单的处理生成一个页面,其他的内容搜索更是最简单的直接发出搜索指令而已。而对于 Crazysearch,你只要打开注册表,就会发现其中文搜索只能搜索中文雅虎,英文只能搜索Excite,但号称注册版本能够搜索1000条记录,其实您只要分析一下雅虎的搜索代码就会发现,其中有一个关键词是 “n=http://127.0.0.1/netware/”,代表一次搜索返回的结果数目;另外一个是“b=http://127.0.0.1/netware/”,代表从第几条记录开始显示,就这两个关键词起到了这么重大的作用,但Crazysearch的独特之处在于返回的搜索结果以表格方式排列,直观醒目。最后要推荐的是Inforian Quest 99,尽管其原理也超脱不了以上的范围(您只要打开其目录下的site子目录中的文件就清楚了),但我还是极力推荐,因为无论是从站点的数量,搜索范围的广泛,搜索的速度,结果的详细,没有能过超过Inforian Quset 99的,而且要差很多。当然基于对国产软件的支持,我们还是可以对上面的两个软件寄予厚望。同是由于本人水平有限,难免有疏漏之处,敬请大家指正。

  • 移动应用广告新竞争,Facebook不再一家独大 为什么Fire Phone手机价格不便宜? 老牌播放器暴风影音发力线下与自制内容 APP运营:“小数据”为合理化推送定位 TCL H5TV:回归电视本质,与开发者共赢 烽火星空徐国龙:依托平台,坚持开放与标准,企业移动化快速研发之道 首届bong线上黑客马拉松第一阶段达成! 12支团队晋级 APSys 2014,AMD将发表基于异构体系的DNN实现与评估 PagerDuty实战分析:将MySQL迁移至XtraDB并成功运行EC2 Molecule:自食其力的免费HTML5游戏框架 智能家居升级:Nest启动开发者计划,并开放API Docker,从这里做起! 《近匠》云巴创始人张虎:低门槛云服务为小团队创造更多机会 Oculus公司同意收购Xbox 360手柄设计团队 公有云VS私有云 哪个数据更安全? 调查:开发者越老越吃香吗? Facebook在线支付:取代虚拟货币的终极边界 Google I/O前析:关于新一代设计框架Quantum Paper的猜想 Google I/O 2014前瞻:“令人发指”的Android产品线 福昕熊雨前:PDFium开源项目的背后 Dropbox无法登陆,国内企业网盘横向评测! 如果编程语言是超级英雄…… 谷歌发布Material Design设计语言 系统、功能与设计,Android L究竟新在哪儿? 《近匠》游道易副总裁孙可:发行商眼中的手游市场 布道师徐立:Docker是标准化IT结构的新方式 解读全新Google Play Games:多屏游戏时代终于来了! 设计神器PaintCode 2.1发布,完全支持Swift 一周消息树:天河二号以每秒3.3亿亿次的速度再居世界超算榜首 传闻微软计划用Lumia品牌取代Surface 【CTO俱乐部读书会】杨立东:技术团队留人“三板斧” 请问我是不是被攻击了? 求这样的SQL语句,我脑子转不过来了。 请问各位大侠,如何在WIN2000下重启计算机。 不爱说话的男生怎么找女朋友呀 急! datagrid的第一列是空白列,怎么才能删除掉 在textBox上点一下,textbox中的文字清空,接受用户输入,怎么实现? 请问如何补齐笔划 如何在一个表里实现某一个字段的值都加一呢 有关xp中bios的几个问题 "评选最具实力的汇编、底层的开发论坛。" 这个帖子怎么不见了????里面有我急需的东西啊!!!! 大家帮帮我啊(让我郁闷好长时间了) 救助 谁有 中文Lotus Domino R5 Web开发指南 下载? 为什么我的jsp在weblogic里部署后老是乱码? 数组元素的合并,头痛 请问listview中item的data属性 是怎样存入和读取的??????????????????????????????????????? 用MSCOMM出了DEBUG,现在想改用API,但有几个问题不明白,请各位高手进来帮忙!! 哪位大大哥会让IIS6.0支持PHP和CGI?要多少分我都送! 我用FlatStyle里的TflatTitlebar,如何做出像优化大师标题栏一样的渐变色? WIN98\W2000雙系統問題 如何辨别ADSL是否有端口映射功能? 急啊!!!在线等 请问如何在VC中实现SDK,或者打开并断点运行SDK程序代码啊? asp如何控制时间? 如何在一个表里实现某一个字段的值都加一呢 怎样在WinRunner中使用TSL读取Excel中的内容??? XP的电源问题 请问关于SDK-ipconfig.cpp程序的断点运行! 怒了,还是关于两个JFrame传值的问题,100分!!! 请问这个判断应该怎样写? 我建立的anywhere数据库 *.db 怎么给库里的表增加记录! win2000 server中的active directory 到底应如何使用 奇怪盘的用途 关于提交与页面刷新,问了又问? 一个站点下两个根目录? 诺顿严重卸载问题 jsp 和 servlet的数据传递问题 求教版主:关于LDAP 我有java帮助文件jdk.hlp,如何加到jcreator上的jdk帮助上去呢 再问个问题!请帮忙看一下,先谢谢了1 msn的登录问题 我太菜了,清问高手全局变量在哪里定义 有关sql server 2000 jdbc 设置的一个菜鸟问题 sybase 其实,每天在这里看某人的低素质show也很不错. 如何还原WIN2000以前系统默认的策略? 关于TEvent::WaitFor() 进程运行的模拟过程 今天买了本电子工业出版社的<<asp.net宝典>>,送分 vmware求助!!!!!!!!!!!!!!!!! 说话客观是什么意思 为什么地球上海陆分布不对称?(北半球大陆多,南北球大洋多)用构造学的观点回答! 解二元一次方程组(2) 打不出来大括号里加两个式子(*^__^*) 嘻嘻…… ①{3x+2y=2 {x-2y=6要有全部过程不要只是答案 “格物致知”这句话怎么理解?究竟哪一种更接近于现代社会? 地球上海陆分布不均匀,地球表面是‘_____,______''.;陆地主要集中在____. It is nicer to be poor andbhappy,than and a fraid(中文) 肉博是什么意思? 2.5.7.21.9.25.33.最好是哪个数字 遂组词至少10个 我比较客观,所代表的含义?求深解一直分不清楚客观与主观的区别,别人说我客观我一直无法理解,求深解 宇涵是什么意思 新语文活页答案呀~~~急 高分悬赏我上www.xywhycom上不上去呀~~咋回事?我想要七年级下册第二单元语文活页试卷或答案急呀~~~~~~~~~~~~~~~~~~~拜托拉 我就60分呀~~~ 凸和鼎的笔顺和笔画数是多少? 已知函数fx等于mx平方加nx减2的一个零点为2,则1/m+2/n的最小值为 2+4+6+8+.+2000+2002+2004=几? 解集中的“|”表示什么意思?如:不等式x-5>2的解集表示为:{x|x-5>2},其中的“|'的意思是... 函数y=定积分0到xcosxdx的导数是? 把海地太子港与地球球心连起来,它的延长线穿过地壳,你知道那里是什么地方? c# 坐标轴画图 2007个34相乘积的尾数是什么 英语阅读测试Captain Spens and Mrs Spens were flying home from South Africa.They were sitting side by side in the aeroplane,for in spite of all his doubts and fears he had found it very easy to persuade her to come back with him; it had been qui 按要求写句子:Cindy,be happy、sad Is Cindy happy or sad?the students,are playing basketball、football 公博什么意思 一篇英语阅读(测试报) 客观是什么意思? 我要再明白不过的答案~`? 请教下复印的事情.例子是,我一张纸 破了个洞 要是去复印的话 能不能补好破了的洞借上面 能不能补好破了的洞 并且复印出来的东西是完整的 干净的 正方体AC1中,P∈BB1(异于BB1)PA∩BA1=M,PC∩BC1=N.求证:MN‖平ABCD 王阳明的“致良知”学说怎样理解?其中“致”是什么意思? 请问我现在是一张白纸还是一张破纸 已知函数fx =1/(x+1)-3,x属于(-1,0】:x,x属于(0,1】,且gx=fx-mx-m在(-1,1】内有且仅有两个不同的零点则实数m的取值范围是? 化简求值 [(x+2y)(x-2y)-(2x-y)ˆ2+(3x+y)(2x+5y)]÷(-1/2x),其中x=3,y=1. 《锋利的纸》是真的吗?为什么一张纸能割破手呢? 英语阅读, 怎样用王阳明先生“致良知”的理论来克服人性的弱点呢,譬如 惰性,私欲. 把一张纸撕裂他的分子破裂了吗为什么 谁能教我涵数 王阳明“致良知”学说的弊端. 看英语阅读时,不认得的单词要不要查 长方体ABCD-A1B1C1D1中,P是BB1上一点,PA与PC分别交A1B和C1B于R,S点.求证:RS平行于平面ABCD我知道应该先连接AC 但如何证明RS平行于AC呢PB/A1A=PR/PA 为什么? 黄的笔顺怎么写 一轮船从甲地顺流而下4时到达乙地,原路返回5时到达甲地,已知船在静水中速度为36千米每时,求甲乙两地的距 英语中有哪些关于Jack的俚语活或单词英语中有哪些关于Jack的俚语或单词 作文题目《合作》我眼里的合作在社会变革日新月异的今天,合作重新被人们所重视,合作不在只是一种商业运营方式,而逐渐变为一种精神,成了推动社会发展不可或缺的巨大动力。合作 计算定积分∫e^xcosxdx 上限π下限0 求IF涵数高手A10 它的值就是:(A-10)*4+40 A要为整数 黄的笔画有多少如题 黄这个字到底有多少划阿`为什么有的是11有的是12呢 定积分∫上限π/2,下限0 e^xcosxdx 怎么求? 二次涵数 f(x)=(a+1)lnx+ax'+1 讨论其单调性((')表示平方) 计算定积分∫上限是π/2下限是0 xcos2xdx 有关俚语 求个俚语单词美国 英国俚语中 有小屁孩 或奶瓶的意思的单词 已知函数f(x)=(2a-3)lnx+ax的平方+1 的单调性急 急 急 9999····99×9999····99 (1994个9×1994个9)求下面两个多位数的乘积的各位数之和. 涵数问题EXCEL,想问下,有没有一种工能是能够这样的:以下是一排数字A列 B列500 >0(这是设定工式的)40 >0-53 说话客观的意思 ( )省略十分位后的尾数是6.0 A 6.03 B6.09 C5.94 选哪一个 Don't listen ____ the music.It's _____noisy.A.at,too B.by,in C.to a D.to tooDon't listen ____ the music.It's _____noisy.A.at,too B.by,in C.to a D.to too “ ╮ ” 谁告诉告诉我这符号是咋打的?没人知道吗…… 是 ╮ 不是 、 地球上海陆分布很不均匀,陆地主要集中在?A北半球 B南半球 C东半球 D西半球 5.Don’tspeak so strangely to me.It ____ insincere to me.A.listen to B.sounds C.looks D.smells 默克尔向奥巴马要说法 奥巴马避谈“未\"大黄鸭\"中国之旅进入倒计时 成奥斯卡影后赞与查尔斯王子跳舞比“亲热世界最高大的狗在美国去世 身高可比肩日媒调查:出轨女性的异常行为表现冰岛蝉联全球男女最平等国家 中国再排日本一女子被控在网吧卫生间生下男婴后潘晓婷赢得第十个世界冠军:十全十美太上海实施油品升级全面完成沪五汽油置换中年男子躲商场男厕偷拍男人 事败后迅曼城出线在望图雷遭球迷种族歧视 俱乐范佩西或因与主帅不和被雪藏 赛前对话高校生“共享”淫秽视频 “随手之举”南京科委坦言不完全排除靠关系申请科技江苏成人高考:医学类考生考试要查指纹首尔FC主场如临大敌 恒大球迷将占到土硬顶别买中国导弹警告 已用中方导弹金正恩出席朝军2万人连长大会 发表\中印携手,印媒欢呼并警惕美国情报机构“搞砸了”奥斯卡影后赞与查尔斯王子跳舞比“亲热本周前几天有雨水清明假期好天气,气温保时捷女车主被绑,遭索2000万赎金原料商告广琪拖欠货款、银行告广琪拖欠嘉兴高速运输车起火:19辆全新商务车浙江籍奥运冠军吕林之子问鼎德乒赛男双北景园芳洲苑昨晚大火十几个男人合力抬绿城惨败主帅揽下责任下定决心锻炼年轻限牌后生意骤冷二手车老板夫妇想跳楼已婚人士比单身者更易上当;戒心强反而男人天生更花心,出轨的男人往往有个爱华夏财富宝取消赎回T+0系统升级暂停户外达人带本哲学书上灯塔16年前老乡■一句话评论男子沉迷彩票 侵占货款16万感受万达品牌魅力部分历史遗留违建可按规确权廉政账户须完善制度设计反腐持久战 斗勇也斗智熄灯一小时 电企也参与“010恐惧症”是怎样形成的价值大于争议
    备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘