Private Sub Command1_Click() Command1.Enabled = False GetHtmlStr Text1 End Sub Private Sub GetHtmlStr(strUrl As String) Dim xml As Object '或者Dim xml As New ServerXMLHTTP Set xml = CreateObject("msxml2.serverxmlhttp") xml.Open "GET", st
这篇文章主要介绍了ASP模拟POST请求异步提交数据的方法,本文使用MSXML2.SERVERXMLHTTP.3.0实现POST请求,需要的朋友可以参考下 有时需要获取远程网站的某些信息,而服务器又限制了GET方式,只能通过POST数据提交,这个时候我们可以通过asp来实现模拟提交post数据,网上有挺多这样的例子的.下面的是我自己写的比较简洁易懂的函数. 首先,需要一个编码设置的函数,因为asp一般为gbk的,而标准的网站现在大都使用utf-8的.所以需要转换. 代码如下: function
C#/VB.NET Excel数据分列 有时候我们需要将保存在Excel单元格中的组合型数据拆分为多列(如将全名拆分为姓和名两列)以方便我们处理.记忆或保存.为了避免重复和大量的手动输入工作,Excel给我们提供了一个数据分列的功能.下面这幅图展示了如何在Excel中实现数据分列: 这篇文章将介绍如何使用C#和VB.NET编程的方式来实现Excel数据分列的功能. 步骤和代码: 第一步:创建一个新的Workbook类的对象,并加载Excel文档. Workbook book = new Work