- 浏览: 1454237 次
- 性别:
- 来自: 苏州
文章分类
- 全部博客 (564)
- 算法 (7)
- 流金岁月 (1)
- Javascript (30)
- actionscript (108)
- as3.0 game (14)
- flex (84)
- fms2 (27)
- 正则表达式 (7)
- 开源组件代码(as3.0) (1)
- Pv3d (13)
- Cairngorm (4)
- vbs (54)
- VB程序设计 (26)
- 计算机应用与维护 (4)
- 职场实用穿衣技巧 (3)
- 历史风云 (15)
- 淡泊明志,宁静致远 (12)
- 情感 (26)
- 杂谈 (41)
- 越南风 (14)
- DirectX (9)
- Dev-cpp (11)
- 回望百年 (2)
- 建站经验 (2)
- Python (24)
- 网络赚钱 (4)
- php (2)
- html (1)
- ob0短址网 (1)
- ob0.cn (1)
- wordpress (1)
- pandas logistic (1)
- haxe (1)
- opencv (1)
- 微信小程序 (3)
- vue (3)
- Flutter (1)
最新评论
-
GGGGeek:
第一个函数滚动监听不起作用,onPageScroll可以
微信小程序--搜索框滚动到顶部时悬浮 -
naomibyron:
解决办法:工具 -> 编译选项 -> 编译器 ...
dev-c++中编译含WINSOCK的代码出现错误的解决方法 -
haichuan11:
这个…… 代码不全真的是让人很憋屈的感觉啊
actionScript 3.0 图片裁剪及旋转 -
chenyw101:
老兄能留个QQ号吗?具体的我有些东西想请教下你
用VB制作网站登陆器 -
yantao1943:
貌似有点问题,只派发一次事件啊
使用ActionScript 2.0或ActionScript 3.0处理音频文件的提示点(cue
'==================================================
'函数名:GetHttpPage
'作 用:获取网页源码
'参 数:HttpUrl ------网页地址
'==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True Or Len(HttpUrl)<18 Or HttpUrl="$False$" Then
GetHttpPage="$False$"
Exit Function
End If
Dim Http
Set Http=server.createobject("MSXML2.XMLHTTP.3.0")
Http.open "GET",HttpUrl,False
Http.Send()
If Http.Readystate<>4 then
Set Http=Nothing
GetHttpPage="$False$"
Exit function
End if
GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
Set Http=Nothing
If Err.number<>0 then
Err.Clear
End If
End Function
'==================================================
'函数名:BytesToBstr
'作 用:将获取的源码转换为中文
'参 数:Body ------要转换的变量
'参 数:Cset ------要转换的类型
'==================================================
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
'==================================================
'函数名:GetBody
'作 用:截取字符串
'参 数:ConStr ------将要截取的字符串
'参 数:StartStr ------开始字符串
'参 数:OverStr ------结束字符串
'参 数:IncluL ------是否包含StartStr
'参 数:IncluR ------是否包含OverStr
'==================================================
Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR)
If ConSt*="$**lse$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then
GetBody="$False$"
Exit Function
End If
Dim ConStrTemp
Dim Start,Over
ConStrTemp=Lcase(ConStr)
StartStr=Lcase(StartStr)
OverStr=Lcase(OverStr)
Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare)
If Start<=0 then
GetBody="$False$"
Exit Function
Else
If IncluL=False Then
Start=Start+LenB(StartStr)
End If
End If
Over=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare)
If Over<=0 Or Over<=Start then
GetBody="$False$"
Exit Function
Else
If IncluR=True Then
Over=Over+LenB(OverStr)
End If
End If
GetBody=MidB(ConStr,Start,Over-Start)
End Function
'==================================================
'函数名:GetArray
'作 用:提取链接地址,以||分隔
'参 数:ConStr ------提取地址的原字符
'参 数:StartStr ------开始字符串
'参 数:OverStr ------结束字符串
'参 数:IncluL ------是否包含StartStr
'参 数:IncluR ------是否包含OverStr
'==================================================
Function GetArray(Byval ConStr,StartStr,OverStr,IncluL,IncluR)
If ConSt*="$**lse$" or ConStr="" Or IsNull(ConStr)=True or StartStr="" Or OverStr="" or IsNull(StartStr)=True Or IsNull(OverStr)=True Then
GetArray="$False$"
Exit Function
End If
Dim TempStr,TempStr2,objRegExp,Matches,Match
TempStr=""
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "("&StartStr&").+?("&OverStr&")"
' objregEx.Pattern = "http://(.+?)\.(jpg|gif|png|bmp)" '定义文件后缀
Set Matches =objRegExp.Execute(ConStr)
For Each Match in Matches
TempStr=TempStr & "||" & Match.Value
Next
Set Matches=nothing
If TempStr="" Then
GetArray="$False$"
Exit Function
End If
TempStr=Right(TempStr,Len(TempStr)-7)
If IncluL=False then
objRegExp.Pattern =StartStr
TempStr=objRegExp.Replace(TempStr,"")
End if
If Inclu*=**lse then
objRegExp.Pattern =OverStr
TempStr=objRegExp.Replace(TempStr,"")
End if
Set objRegExp=nothing
Set Matches=nothing
TempStr=Replace(TempStr,"""","")
TempStr=Replace(TempStr,"'","")
TempStr=Replace(TempStr," ","")
TempStr=Replace(TempStr,"(","")
TempStr=Replace(TempStr,")","")
If TempStr="" then
GetArray="$False$"
Else
GetArray=TempStr
End if
End Function
发表评论
-
使用bat 处理文件 批量下载图片,下载文件
2018-11-17 10:42 3936Download Wscript.Arguments(0) ... -
VB6逆向工程浅析
2011-12-29 07:36 1737前言 VB的编译有两种方式,一种是P-Code ... -
VB函数——逆向分析备查
2011-12-28 21:39 1490Variant 变量的内部表示:_____________ ... -
VB程序逆向常用的函数
2011-12-28 21:38 14851) 数据类型转换: ... -
用XML创建可排序、分页的数据显示页面
2008-08-30 08:10 1396在Web开发中,我们经常 ... -
SQL注入天书 - ASP注入漏洞全接触
2008-08-28 17:39 1082随着B/S模式应用开发的发展,使用这种模式编写应用程序的程序员 ... -
一个学校的网站安全性测试
2008-08-28 17:38 1153本文作者:angel文章性质:原创发布日期:2004-04-0 ... -
改mdb为asp所带来的灾难
2008-08-28 17:36 1001本文作者:SuperHei·Lilo文章性质:原创发布日期: ... -
XML实例解析
2008-08-28 17:35 1104提纲: 一:实例效果 ... -
选单连动
2008-08-28 17:34 1066动机: 现在我们做个在IE里应用XML的一个小例子:解决双下 ... -
ASP常用的代码(不断更新)
2008-08-28 17:34 12421.获得系统时间:<%=now()%>2.取得来访 ... -
动态排序
2008-08-28 17:31 1135动机: 排序功能让我们页面上的数据显的更人性化,是我们在网站 ... -
动态查询
2008-08-28 17:31 877动机: 查询功能是我们 ... -
XML卷之动态分页
2008-08-28 17:30 1202动机: 为了方便用户查看大批量数据,我们会用到动态分页,因此 ... -
对xml+xsl实现分页排序的改进,使支持对所有数据进行排序
2008-08-28 17:29 2099以往见过的利用xml+xsl来实现分页排序的基本都只能本页内排 ... -
使用XML、XSLT和XPath创建可排序、分页、重用的数据显示页
2008-08-28 17:27 1330在Web开发中,我们经常 ... -
用ASP+XML编写留言本
2008-08-28 17:16 2867一、读者指引 读者 ... -
asp查询xml的代码,实现了无刷新、模糊查询功能
2008-08-28 17:13 1161<html> <head> ... -
用Asp+XmlHttp实现RssReader功能
2008-08-28 17:12 874<style>body {margin:10px; ... -
vb+Webbrowser控件详解
2008-08-25 20:48 6825vb+Webbrowser控件详解 1、获得浏览器信息: P ...
相关推荐
本函数可以获取指定页面指定单元格中的内容。 文档附例为获取中央气象台的天气预报以形成自己的天气预报显示信息。 本函数以表格布局为目标,如果要改为DIV,其实做法上更简单,有问题的朋友请联系我。
chuanqi.php //小偷 <? extract($_GET);extract($_POST); $clinchurl = “http://www.haosf.com”; //目标站 $url = $clinchurl.$domain; $fp=@fopen($url,”r”) or die(“timeout”);//...
- **输出结果**:使用 `printf` 函数输出符合条件的变量值。 - **暂停程序**:`system("pause");` 使程序暂停运行,直到用户按下任意键才继续。 #### 三、逻辑分析 1. **变量含义**:在这个程序中,A可以理解为...
在这个游戏中,我们将用到C语言的关键元素,如变量、条件语句(if-else)、循环(for, while)、函数以及输入/输出操作。 游戏规则如下:玩家扮演警察,目标是通过控制警察的移动来捕捉小偷。游戏地图通常由二维...
《“警察抓小偷”小型打字游戏》是一款基于Visual Basic(VB)开发的趣味打字练习软件。VB是一款由微软公司推出的可视化编程工具,它以其直观易用的界面和强大的编程能力,使得初学者也能快速上手进行程序开发。 在...
5. **用户输入处理**:Python的`input()`函数可以用来获取用户的输入,如选择难度级别或控制警察移动。输入需要进行验证,确保其有效且符合游戏规则。 6. **错误处理**:良好的编程实践中,应包含错误处理机制来...
教程将教授如何使用vivi内置的函数或自定义脚本来清洗和处理数据,使其符合预期的格式。 5. **动态加载与JavaScript处理**:许多现代网页使用AJAX动态加载技术,这给采集带来挑战。教程将讲解如何处理这些动态内容...
2. **第16讲.ppt**:这可能是关于PHP小偷程序的一堂课的幻灯片,里面可能详细解释了原理和步骤,包括关键函数和技巧。 3. **使用说明文档.txt**:这个文档可能提供了如何使用上述代码示例的详细指南,包括配置、...
在农牧场小偷的源码中,可能会有处理用户输入、计算得分、更新游戏状态等函数或过程。 4. **事件驱动编程**:易语言支持事件驱动编程,游戏中的许多行为可能由用户的点击或系统时间触发,这涉及到事件的定义和响应...
4. **图片下载**:使用file_put_contents函数将图片数据保存到本地,可以设定不同的命名规则和存储路径。 5. **数据库操作**:为了便于管理和查询,源码可能还包括了数据库操作部分,将图片信息存储在MySQL等数据库...
在Windows系统中,可能涉及ReadDirectoryChangesW函数来监控目录变更。 3. **系统调用**:通过系统调用如`ioctl()`,程序可以与操作系统进行交互,获取硬件设备的状态,如U盘的插入信息。 4. **设备驱动交互**:在...
[removed] //连接数据库 function connOpen(DataBaseConnectStr){ var conn = Server.CreateObject(“ADODB.Connection”); conn.Open(DataBaseConnectStr); return conn; } //利用AdoDb.Stream对象来读取指定...
标题中的“闪盘小偷”DELPHI版指的是一个用DELPHI编程语言开发的程序,该程序设计的目的是在U盘(闪存盘)插入计算机时自动复制系统中的特定文件。DELPHI是一种强大的面向对象的编程环境,主要用于Windows应用软件的...
4. **信息提取**:在服务器端,使用PHP的DOM解析库(如DOMDocument)或正则表达式(如`preg_match_all()`函数)来匹配和提取所需信息。 5. **返回数据**:处理后的数据以JSON或其他格式响应给前端。 6. **前端展示**...
1. **获取网页内容**:通过`file_get_contents`函数从搜狐网的一个新闻页面抓取HTML源码。 2. **正则表达式匹配**:使用正则表达式`/(.*)target=_blank>(.*)<\/a>/U`来匹配并提取所有带有`target="_blank"`属性的`...
在ASP小偷采集程序的实际应用中,首先定义`getHTTPPage`函数以获取网页内容,然后利用`BytesToBstr`函数处理编码问题,确保中文字符能够正确显示。通过`InStr`、`Mid`、`Replace`等函数可以对获取的网页内容进行...
根据给定文件的信息,我们可以提炼出关于“小偷程序”(在网络安全领域通常指的是网络爬虫或数据抓取工具)的详细知识点,尤其关注于如何使用XMLHttpRequest对象进行网络请求和数据获取。以下是对该主题的深入解析:...
开发者可以利用PHP的curl库或者file_get_contents函数发送HTTP请求,然后解析返回的HTML或JSON数据,提取出需要的信息。 360rjxt可能是压缩包内主要的PHP源代码文件或程序入口文件,其中包含了实现上述功能的具体...
4. **dibu.asp** - 这个文件名可能表示“底部”或“基础”,在ASP网站中可能是一个包含页脚信息或全局函数的文件,比如版权信息、页脚链接等。 5. **说明.htm** - 这是一个HTML文件,可能包含了程序的使用说明、...