急！如何向一个asp网页发信息，只要发个字符串就可以了。有delphi 的例子。

Question

DELPHI调用实例
var
stryclsbdh,ExASPstr,strHpzl,strHphm,strClsbdh,strJyjg,strJyrq,strCjdw,strZt,strBj: String;
  sList: TStrings;
  retValue:String;
begin
  strHpzl:= Edit1.Text;
  strHphm:= Edit2.Text;
  strClsbdh:= Edit3.Text;
  strJyjg:= Edit4.Text;
  strJyrq:= Edit5.Text;
  strCjdw:= Edit6.Text;
  stryclsbdh:=edit7.text
  ExASPstr:=’http://192.168.0.1/WriteVehicleMid.asp';
  sList:=TStringList.Create;
  sList.Add('HPZL='+strHpzl);
  Slist.Add('HPHM='+strHphm);
  Slist.Add('CLSBDH='+strClsbdh);
Slist.Add('YCLSBDH='+strYClsbdh);//根据实际情况，该参数可有可无
  Slist.Add('JYJG='+strJyjg);
  Slist.Add('JYRQ='+strJyrq);
  Slist.Add('CJDW='+strCjdw);
  memo1.Lines.Add('开始更新检测信息:'+datetimetostr(now)) ;
  retValue:=IdHttp1.Post(ExASPstr,sList);
  memo1.Lines.Add('检测信息更新完毕:'+datetimetostr(now)) ;
  Edit9.Text:= retValue;//获得操作的结果信息，失败与成功
  sList.Free;
end;

Answer 1

public static string GetPage(string url, string postData,string encodeType,out string err)
{
Stream outstream = null;
Stream instream = null;
StreamReader sr = null; HttpWebResponse response = null;
HttpWebRequest request = null;
Encoding encoding = Encoding.GetEncoding(encodeType);
byte[] data = encoding.GetBytes(postData);
//log4net.ILog log = log4net.LogManager.GetLogger("log");
// 准备请求...
try
{
// 设置参数
request = WebRequest.Create(url) as HttpWebRequest;
request.CookieContainer = new CookieContainer();
request.AllowAutoRedirect = true;
request.Method = "POST";
request.ContentType = "application/x-www-form-urlencoded";
request.ContentLength = data.Length;
outstream = request.GetRequestStream();
outstream.Write(data,0,data.Length);
outstream.Close(); //log.Debug("url = "+url);
//log.Debug("post data = "+postData); //发送请求并获取相应回应数据
response = request.GetResponse() as HttpWebResponse;
foreach(Cookie cookie in response.Cookies)
{
string str = cookie.Name + " : "+cookie.Value + "\n";
//log.Debug("cookie = "+str);
} instream = response.GetResponseStream();
sr = new StreamReader( instream, encoding );
string content = sr.ReadToEnd(); //log.Debug("Response Page ");
// log.Debug(content); err = string.Empty;
return content;
}
catch(Exception ex)
{
err = ex.Message;
return string.Empty;
}
}