使用Asp可以轻松地获得被加密的Dll新闻内容

发布时间：2023-09-09 14:41:35 所属栏目：Asp教程来源：

导读：以下是代码：

复制代码代码如下:

<%

on error resume next

Dim objXMLHTTP, xml

Set xml = Server.CreateObject("Microsoft.XMLHTTP")

xml.Open "GET", "http://chanye.finance.si

以下是代码：

复制代码代码如下:

<%

on error resume next

  Dim objXMLHTTP, xml

  Set xml = Server.CreateObject("Microsoft.XMLHTTP")

  xml.Open "GET", "http://chanye.finance.sina.com.cn/yj/2005-01-05/236914.shtml", False

  xml.Send

  tmpstr= xml.responseText

  ep=clng(instr(1,tmpstr,"meta_data2"))+18

  tmpstr=replace(tmpstr,vbcrlf,"")

  tmpstr=replace(tmpstr,chr(9),"")

  tmpstr=replace(tmpstr,chr(32),"")

  mydata=mid(tmpstr,1,ep)

  recfilen=server.MapPath("tempstr.txt")

  set Astream=Server.CreateObject("Adodb.Stream")

  Astream.type=2

  Astream.Mode = 3

  Astream.open

  Astream.CharSet = "GB2312"

  Astream.Position =0

  Astream.Writetext mydata,1

  Astream.SaveToFile recfilen,2

  Astream.close

  set Astream1=Server.CreateObject("Adodb.Stream")

  Astream1.type=2

  Astream1.Mode = 3

  Astream1.CharSet = "GB2312"

  Astream1.open

  Astream1.LoadFromFile(recfilen)

  Assp=Astream1.size

  crttmpstr=Astream1.ReadText(Assp)

  Astream1.close

  sp1=clng(instr(1,crttmpstr,"meta_data1"))+16

  ep1=clng(instr(sp1,crttmpstr,"NAME=meta_data2"))-7

  lth1=ep1-sp1

  newdata=mid(crttmpstr,sp1,lth1)

%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<style>

body{

font-size:12px

}

td{

font-size:12px

}

</style>

<title>用Asp获取Dll加密新闻内容</title>

<table width="540" border="0" align="center" cellpadding="0" cellspacing="0">

  <tr>

    <td>更新时间:<%=now %>获取内容长度:<%=lth1 %>

      字节

注意要使用http://127.0.0.1/Ip1HtmlView.dll你得先下载这个Dll文件，怎么下不用多说吧？！

      <object id=HtmlIp1View codebase=http://127.0.0.1/Ip1HtmlView.dll#version=1,0,1,14 classid=CLSID:D854FC15-D3EA-496A-B2A0-A772A3DE1D09>

        <param name="meta_data1" value="<%=newdata %>">

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!