程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> .NET網頁編程 >> .NET實例教程 >> 寫個偷全國公交數據庫的程序

寫個偷全國公交數據庫的程序

編輯:.NET實例教程

以前常聽到別人做采集程序,今天俺也小試身手。。 
using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Net;
using System.Text;
using System.Text.RegularExpressions;
using System.IO;
using System.Data.SqlClIEnt;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;

namespace Temp
{
 /// <summary>
 /// GetHtmlSourceFromUrl 的摘要說明。
 /// </summary>
 public class GetHtmlSourceFromUrl : System.Web.UI.Page
 {
  private SqlConnection con;
  
  private void Page_Load(object sender, System.EventArgs e)
  {
   // 在此處放置用戶代碼以初始化頁面
   
   if(!IsPostBack)
   {
    InsertToDB();
   }
   
  }
  private void InsertToDB()
  {
   
   for(int i=1;i<1000;i++)
   {
    string Html = string.Empty;
    string SqlText="insert into BeiJingBus(BusLineNumber,Html) Values(@BLN,@Html)";
    string ConnectionString=@"Server=.xxxx;User ID=xxxx;Pwd=xxxxx;DataBase=Map";
    con  =new SqlConnection(ConnectionString);
    
    SqlCommand cmd = new SqlCommand(SqlText,con);
  
    string Url=@"http://beijing.ibusdb.com/?busline="+i+"&s=busline&x=31&y=18"; // ^_^,這是取北京的 轉到首頁,換換參數,就可以取其它城市的了

    string Content = string.Empty;
    
    HttpWebRequest request = (HttpWebRequest)WebRequest.Create(Url);
    HttpWebResponse response =(HttpWebResponse) request.GetResponse();
    StreamReader  stream = new StreamReader(response.GetResponseStream(),Encoding.GetEncoding("gb2312"));
    Content =stream.ReadToEnd();
    stream.Close();   
    response.Close();
   
    int start=3487; //去廣告 取正文
    int end= Content.Length-4222;//去廣告 取正文
    if(end-start>0)  //判斷存在第i路公交
    {
      Html=Regex.Replace(Content.Substring(start,end-start),@"<[^>]+>","");  //分離Html代碼 
    
     try
     {
      cmd.Parameters.Add("@BLN",SqlDbType.Int).Value =i;
      cmd.Parameters.Add("@Html",SqlDbType.Text).Value= Html;
      con.Open(); 
      cmd.ExecuteNonQuery();
     }
     catch(SqlException err)
     {
&
nbsp;     Response.Write(err.Message);
      con.Close();
      break;
     
     }
     con.Close();
    
     
    }
   }
  }

 

--表sql腳本:
CREATE TABLE [dbo].[BeiJingBus](
 [id] [int] IDENTITY(1,1) NOT NULL,
 [BusLineNumber] [int] NULL,
 [Html] [nvarchar](max) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]

不會用簽名:http://hi.baidu.com/陳立/blog

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved