用asp获取微软安全更新列表的代码 小偷程序

复制代码 代码如下:

<%

Function Bytes2bStr(vin,cSet)

Dim BytesStream,StringReturn

Set BytesStream = Server.CreateObject("ADODB.Stream")

BytesStream.Type = 2

BytesStream.Open

BytesStream.WriteText vin

BytesStream.Position = 0

BytesStream.CharSet = cSet

BytesStream.Position = 2

StringReturn =BytesStream.ReadText

BytesStream.close

Set BytesStream = Nothing

Bytes2bStr = StringReturn

End Function

Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")

m_queryURL = "http://www.microsoft.com/china/technet/security/current.mspx"

XMLHTTP.Open "GET", m_queryURL, false

XMLHTTP.send()

s = XMLHTTP.responseBody

aa = Bytes2bStr(s,"GB2312")

Set re = New RegExp

re.Pattern = "<span class=""label"">.*?<\/span>"

re.Global = True

re.IgnoreCase = true

re.MultiLine = false

set matches = re.Execute(aa)

dim tmp

tmp = ""

for each match in matches

tmp = tmp&match.value

next

tmp = Replace(tmp,"href=""","target=_blank href=""http://www.microsoft.com")

set fso = server.CreateObject("scripting.filesystemobject")

set f = fso.OpenTextFile(server.mappath("Microsoft.html"),2,true)

f.write(tmp)

f.close

set fso = nothing

response.Redirect "Microsoft.html"

%>

时间： 2024-07-31 10:21:18

用asp获取微软安全更新列表的代码 小偷程序的相关文章

用asp获取微软安全更新列表的代码 小偷程序_小偷/采集

复制代码 代码如下: <% Function Bytes2bStr(vin,cSet) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position = 0 BytesStream.CharSet = cSet

ASP 获取腾讯IP地址的接口程序代码

<script type=text/javascript教程 src=http://fw.qq.com/ipaddress></script> <script type=text/javascript> var hehe1=IPData[2] var hehe2=IPData[3] alert(hehe1); alert(hehe2); document.write(IPData.join(' ')); </script> 如何用ASP来存储,从上面读取出来

用ASP获取MDaemon域名列表

////////////////////////////////////////////////////////////////////////////// // [MDaemon] 用ASP获取MD域名列表// 原创作者: 贾俊 (Jaron) // 网址: http://www.jiangdu.net ;// 邮件: jaron@jdinfo.net // 首次发表于江都资讯网,2003-01-12///////////////////////////////////////////////

ASP.NET技巧：.net 后台的小偷程序

asp.net|程序|后台|技巧|小偷程序 private void Page_Load(object sender, System.EventArgs e)  {      WebRequest wreq=WebRequest.Create("http://weather.yahoo.com/forecast/CHXX0133_c.html");      HttpWebResponse wresp=(HttpWebResponse)wreq.GetResponse();     

PHP 获取MSN好友列表的代码(2009-05-14测试通过)_php实例

复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh" lang="zh&qu

asp获取当前网页地址的代码_应用技巧

当前页地址  <%dim urlname  urlname=Request.ServerVariables("QUERY_STRING")%>  <%=Request.ServerVariables("SCRIPT_NAME")%><%if urlname<>"" then%>?<%=urlname%><%end if%> 

asp获取当前网页地址的代码

当前页地址  <%dim urlname  urlname=Request.ServerVariables("QUERY_STRING")%>  <%=Request.ServerVariables("SCRIPT_NAME")%><%if urlname<>"" then%>?<%=urlname%><%end if%>

php下通过IP获取地理位置的代码(小偷程序)

复制代码 代码如下: function get_ip_place() { $ip=file_get_contents("http://fw.qq.com/ipaddress"); $ip=str_replace('"',' ',$ip); $ip2=explode("(",$ip); $a=substr($ip2[1],0,-2); $b=explode(",",$a); return $b; } 上面来自开源中国写的真XXX,新闻我都

php下通过IP获取地理位置的代码(小偷程序)_php技巧

复制代码 代码如下: function get_ip_place() { $ip=file_get_contents("http://fw.qq.com/ipaddress"); $ip=str_replace('"',' ',$ip); $ip2=explode("(",$ip); $a=substr($ip2[1],0,-2); $b=explode(",",$a); return $b; } 上面来自开源中国写的真XXX,新闻我都