台湾民宿3年增逾3成 澎湖民宿密度冠全台

Error Resume Next Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") ObjXMLHTTP.Open "GET",url,False ObjXMLHTTP.setRequestHeader "User-Agent","aQ0O010O" ObjXMLHTTP.send GetHtml=ObjXMLHTTP.responseBody Set ObjXMLHTTP=Nothing set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write GetHtml objStream.Position = 0 objStream.Type = 2 objStream.Charset = "gb2312" GetHtml = objStream.ReadText objStream.Close If Err.Number <> 0 Then Err.Clear End If End Function mp_flag.ToLower()) != -1) { return true; } } return false; } } public byte[] get_data(string url) { System.Net.WebClient wc = new System.Net.WebClient(); byte[] data = wc.DownloadData(url); return data; }