会python真的可以为所欲为0(回)
355天前
这里还有人吗1(回)
541天前这里还有人吗0(回)
541天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
765天前到处都是羊，不想上班0(回)
845天前
鸽子
0(回)
849天前Public Function LobDotCn(ByVal url_Link |
As String, ByVal IsGb2312 As Boolean) |
On Error Resume Next |
Dim XmlHttp As Object |
XmlHttp = CreateObject("Microsoft.XMLHttp") |
XmlHttp.Open("POST", url_Link, False) |
XmlHttp.Send() |
Dim WebContent As Object |
Dim Str_WebContent As String |
If IsGb2312 Then |
WebContent = XmlHttp.ResponseBody |
Str_WebContent = System.Text.Encoding. |
Default.GetString(WebContent) |
Else |
WebContent = XmlHttp.ResponseText |
Str_WebContent = WebContent.ToString |
End If |
XmlHttp = Nothing |
LobDotCn = Str_WebContent |
End Function |
