有时候人总是很懒惰,总想获取别人现存的东西,盗连就是一种。(盗连可耻?)
比如要获取CSDN技术中心 文档列表
见http://www.wgscd.com/dev/articlelist.aspx
------------------------
articlelist.aspx
----------------------------
<%@ Page Language="VB" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System.Net" %>
<script runat="server">
' Insert page code here
'
' *******Get CDDN articlelist********
'wgscd 2006/1/12 ,mail:wgscd126.com
'www.wgscd.com, QQ153964481
'**************************************
sub Page_Load(sender as Object, e as EventArgs)
response.write("<center><A Href=""Http://www.wgscd.com"" Taget=""_Blank"">www.wgscd.com</A></center>")
Dim BaseURL As String = "http://dev.csdn.net/articlelist.aspx"
' *******Get CDDN articlelist********
'wgscd 2006/1/12 ,mail:wgscd126.com
'www.wgscd.com, QQ153964481
'**************************************
If Not Page.IsPostBack Then
' Response.Write("<!--#include file=""../head.htm""-->")
Try
Dim wc As Net.HttpWebRequest
If Request.QueryString("c") <> "" Then
wc = Net.HttpWebRequest.Create(BaseURL & "?c=" & Request.QueryString("c"))
Else
wc = Net.HttpWebRequest.Create(BaseURL)
End If
'wc.AddRange(44, 99)
Dim MyStream As IO.Stream = wc.GetResponse.GetResponseStream
Dim MyStreamReader As New IO.StreamReader(MyStream, System.Text.Encoding.Default)
Dim str As String = ""
str = MyStreamReader.ReadToEnd
Response.Write("<TABLE id=""Table1"" height=""161"" cellSpacing=""0"" cellPadding=""0"" width=""955"" align=""center"" border=""0""><TR><TD vAlign=""top"" width=""165"" colspan=""2""><br><br>")
str = str.Substring(str.IndexOf("<table cellspacing=""1"""))
' str = str.Substring(0, str.Length - 444)
str = str.Substring(0, str.LastIndexOf("<!-- 版权 -->"))
Response.Write("<td width=""150"" valign=""top"">")
str = str.Replace("href=""article/", "href=""Article.aspx?Page=article/")
str = str.Replace("<a href=""/articlelist.aspx", "<a href=""articlelist.aspx")
str = str.Replace("href='/user/", "href='http://dev.csdn.net/user/")
str = str.Replace("href=""user/", "href=""http://dev.csdn.net/user/")
' str = str.Substring(0, str.Length - str.LastIndexOf("</table>"))
Response.Write(str)
MyStreamReader.Close()
' wc.KeepAlive = False
MyStream.Close()
Catch ex As Exception
' Response.Redirect("../NotFound.aspx")
' Response.Write("<br>在页面请求时发生以下错误:<br>")
Response.Write("<br>" & ex.Message & "<br><br><br><font color=red>错误信息已经记录,我们会很快处理这个错误,谢谢 !</font><br><font color=blue>奔腾娱乐</font>")
End Try
End If
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<asp:Label id="Label1" runat="server" height="48px" width="226px">奔腾娱乐www.wgscd.com</asp:Label>
<!-- Insert content here -->
</form>
</body>
</html>
-----------------------------
Article.aspx
---------------------------------
<%@ Page Language="VB" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System.Net" %>
<script runat="server">
' Insert page code here
'' *******Get CDDN articlelist********
'wgscd 2006/1/12 ,mail:wgscd126.com
'www.wgscd.com, QQ153964481
'**************************************
Dim BaseURL As String = "http://dev.csdn.net/"
Sub Page_Load(ByVal sender As System.Object, ByVal e As EventArgs)
'在此处放置初始化页的用户代码
'
'<TD vAlign="top" width="165" colspan="2">
If Not Page.IsPostBack Then
Dim wc As Net.HttpWebRequest
If Request.QueryString("Page") <> "" Then
wc = Net.HttpWebRequest.Create(BaseURL & Request.QueryString("Page"))
' wc = Net.HttpWebRequest.Create(BaseURL)
' wc.AddRange(95777, 108888)
Dim MyStream As IO.Stream = wc.GetResponse.GetResponseStream
Dim MyStreamReader As New IO.StreamReader(MyStream, System.Text.Encoding.Default)
Dim str As String = ""
Response.Write("<center>wgscd.com</center>")
Response.Write("<TABLE id=""Table1"" height=""161"" cellSpacing=""0"" cellPadding=""0"" width=""955"" align=""center"" border=""0""><TR><TD vAlign=""top"" width=""165"" colspan=""2""><br><br>")
str = MyStreamReader.ReadToEnd
str = str.Substring(str.LastIndexOf("<table cellspacing=""1"""))
str = str.Substring(0, str.LastIndexOf("<a name=""#Comment"">"))
str = str.Replace("/articlelist.aspx?", "articlelist.aspx?")
str = str.Replace("href=""/article/", "href=""Article.aspx?Page=article/")
str = str.Replace("href='/user/", "href='" & BaseURL & "user/")
str = str.Replace("href=""user/", "href=""http://dev.csdn.net/user/")
str = str.Replace("<a href=""http://www.csdn.net/"">CSDN</a> - <a href=""http://dev.csdn.net/"">文档中心</a>", "<a href=""http://www.wgscd.com/"">WGSCD</a> - <a href=""http://wgscd.com/dev/articlelist.aspx"">文档中心</a>")
Response.Write(str)
Else
Response.Write("错误 !<br><a href=""www.wgscd.com""> www.wgscd.com</a>")
End If
End If
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<!-- Insert content here -->
</form>
</body>
</html>