62,243
社区成员




<%
dim XmlHttp
set XmlHttp=Server.createobject("Microsoft.XMLHTTP")
XmlHttp.open "POST","http://www.s2m.cc/rest/ip/getAddress/?token=03b92716-d6f9-490f-86c1-c4c017832083&ip=202.101.172.46",false
XmlHttp.send "token=03b92716-d6f9-490f-86c1-c4c017832083&ip=202.101.172.46"
response.write bytesToBSTR(XmlHttp.responseBody,"utf-8")
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream =Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>
///<summary>
///【POST】获取网站的html
///</summary>
///<param name="URL">url地址</param>
///<param name="strPostdata">发送的数据,格式:id=1&idd=2&type=3</param>
///<param name="Enco">编码格式,例如 utf-8【默认】,gb2312</param>
///<returns></returns>
public static string PostWebHtml(string URL, string strPostdata, string Enco = "UTF-8")
{
strPostdata = strPostdata.FCoding(1)
.Replace("%3d", "=")
.Replace("%26", "&")
.Replace("%3f", "?")
.Replace("%3a", ":")
.Replace("%2f", "/");
Encoding encoding = Encoding.Default;
HttpWebRequest request = (HttpWebRequest)WebRequest.Create(URL);
request.Method = "post";
request.Accept = "text/html, application/xhtml+xml, */*";
request.ContentType = "application/x-www-form-urlencoded";
byte[] buffer = encoding.GetBytes(strPostdata);
request.ContentLength = buffer.Length;
request.GetRequestStream().Write(buffer, 0, buffer.Length);
HttpWebResponse response = (HttpWebResponse)request.GetResponse();
using (StreamReader reader = new StreamReader(response.GetResponseStream(), System.Text.Encoding.GetEncoding(Enco)))
{
return reader.ReadToEnd();
}
}
Dim data As Byte()
data = System.Text.Encoding.UTF8.GetBytes("token=03b92716-d6f9-490f-86c1-c4c017832083&ip=202.101.172.46“)
Dim myReq As System.Net.HttpWebRequest = System.Net.WebRequest.Create(”http://www.s2m.cc/rest/ip/getAddress/“)
myReq.Method = "POST"
myReq.ContentType = "application/x-www-form-urlencoded;charset=UTF-8"
myReq.ContentLength = data.Length
Dim myStream As System.IO.Stream = myReq.GetRequestStream
myStream.Write(data, 0, data.Length)
myStream.Close()
Dim myResponse As System.Net.HttpWebResponse = myReq.GetResponse
myStream = myResponse.GetResponseStream
Dim myStreamReader As New System.IO.StreamReader(myStream)
Response.Write(myStreamReader.ReadToEnd)
myStreamReader.Close()
myStreamReader = Nothing
myStream.Close()
myStream=Nothing
myReq = Nothing
public static string Post(string Url, string Data)
{
string result = "";
WebClient myClient = new WebClient();
myClient.Headers.Add("U-ApiKey", "XOO");
myClient.Encoding = System.Text.Encoding.UTF8;
try
{
result = myClient.UploadString(Url, Data);
}
catch (Exception ex)
{
result = ex.Message;
}
return result;
}
发送post并且获取返回值