新浪新闻
来源:互联网 发布:sftp和ssh端口分离 编辑:程序博客网 时间:2024/06/02 13:55
<%@ Import NameSpace="System.Net" %>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
'下面首先将新浪网站首页数据下载到字符串strTemp中
Dim wc As New WebClient()
Dim strTemp As String
strTemp = Encoding.Default.GetString(wc.DownloadData("http://www.sina.com.cn"))
'下面在该字符串中查找重要新闻
Dim intStart,intEnd As Integer'两个变量分别表示开始和结束位置
intStart = strTemp.IndexOf("<!---此部分为新浪首页要闻区内容---->",0) + 24
intEnd = strTemp.IndexOf("<!---此部分为新浪首页要闻区内容 end---->",intStart) - 1
strTemp = strTemp.Substring(intStart, intEnd - intStart + 1)'从中提取重要新闻
Message.Text = strTemp'显示重要新闻
End Sub
</script>
<html>
<head><meta http-equiv="refresh" content="3"></head>
<body>
<h3 align="center">从新浪首页获取重要新闻</h3>
<asp:Label id="message" runat="server" />
</body>
</html>
请参考一下。不过时间要修改,抓取的内容也修改一下。
建议你先看看sina首页的原代码。计算一下吧
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
'下面首先将新浪网站首页数据下载到字符串strTemp中
Dim wc As New WebClient()
Dim strTemp As String
strTemp = Encoding.Default.GetString(wc.DownloadData("http://www.sina.com.cn"))
'下面在该字符串中查找重要新闻
Dim intStart,intEnd As Integer'两个变量分别表示开始和结束位置
intStart = strTemp.IndexOf("<!---此部分为新浪首页要闻区内容---->",0) + 24
intEnd = strTemp.IndexOf("<!---此部分为新浪首页要闻区内容 end---->",intStart) - 1
strTemp = strTemp.Substring(intStart, intEnd - intStart + 1)'从中提取重要新闻
Message.Text = strTemp'显示重要新闻
End Sub
</script>
<html>
<head><meta http-equiv="refresh" content="3"></head>
<body>
<h3 align="center">从新浪首页获取重要新闻</h3>
<asp:Label id="message" runat="server" />
</body>
</html>
请参考一下。不过时间要修改,抓取的内容也修改一下。
建议你先看看sina首页的原代码。计算一下吧
- 新浪新闻
- 新浪图片新闻特效
- 新浪新闻图片样式
- 新浪新闻爬虫程序
- python获取新浪新闻
- 爬新浪新闻
- 获取新浪新闻信息
- 新浪的图片新闻效果
- 新浪的新闻发布规范
- RSS解析新浪新闻IOS
- 仿新浪新闻留言界面
- python_爬取新浪新闻
- Python爬取新浪新闻
- iOS仿网易新闻、新浪新闻的新闻客户端
- python爬虫——获取新浪新闻前两页新闻信息
- 新浪首页改版,您还去新浪看新闻吗?
- 模拟新浪新闻在线聊天功能
- 从新浪首页获取重要新闻
- Web2.0创业:程序员的创业?
- ATL_NO_VTABLE详解
- 十条减少软件缺陷的真经
- 公司、项目、管理和员工
- 如何安装卸载 .tar.gz 格式的文件
- 新浪新闻
- ASP.NET如何在窗体和窗体之间传送数据(使用类)
- 疯狂VC邪恶的钱:一个视频站创始人的狼狈退出
- 天气预报
- vb中怎样将excel表导入到access中
- 汇总c#常用函数和方法集
- 两个学生的诗,写得很经典.评评谁的好
- 剖析互联网“you”时代各种盈利模式
- javascript框架间函数传递