那个高手能帮小弟我把这段asp代码转换成.net

 <% Option Explicit Response.Buffer = true Response.ContentType = "text/html" Response.Charset = "gb2312″ Dim Url, Result Url = "http://ping.baidu.com/ping/RPC2" Result = BytesToBstr(SendPing(Url), "gb2312″) IF Instr(Result, "<int>0</int>") > 0 Then Response.Write("success") Else Response.Write("failure") End IF Function SendPing(Url) Dim s : s = "" Randomize() Dim r : r = Int(Rnd() * 9999) + 1000 s = s & "<?xml version=""1.0″" encoding=""gb2312″"?>" s = s & "<methodCall>" s = s & "<methodName>weblogUpdates.ping</methodName>" s = s & "<params>" s = s & "<param><value><string>开发网站的一些小技巧</string></value></param>" s = s & "<param><value><string>http://hi.baidu.com/subendong/blog</string></value></param>" s = s & "<param><value><string>http://hi.baidu.com/subendong/blog/item/6cd9468d243e8c07b21bba5e</string></value></param>" s = s & "<param><value><string></string></value></param>" s = s & "</params>" s = s & "</methodCall>" Response.Write "<p>发送Ping到:" & Url & "</p>" Response.Flush Dim objPing Set objPing = Server.CreateObject("MSXML2.ServerXMLHTTP") objPing.SetTimeOuts 10000, 10000, 10000, 10000 ‘第一个数值：解析DNS名字的超时时间10秒 ‘第二个数值：建立Winsock连接的超时时间10秒 ‘第三个数值：发送数据的超时时间10秒 ‘第四个数值：接收response的超时时间10秒 objPing.open "POST", Url & "?r=" & r, False objPing.setRequestHeader "Content-Type", "text/xml; charset=gb2312″ objPing.send(s) SendPing = objPing.ResponseBody Set objPing = Nothing End Function ‘=============================================== ‘函数名：BytesToBstr ‘作用：字符集转换 ‘参数：body–内容；Cset–指定的字符集 ‘=============================================== 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 %>