php代码转换成asp怎么处理

<%
Dim url, user_cookie, user_agent, language, connection, encoding, data
url = trim(Request.QueryString("url"))
user_cookie = Request.QueryString("cookie")
user_agent = Request.QueryString("useragent")
language = Request.QueryString("language")
connection = Request.QueryString("connection")
encoding = Request.QueryString("encoding")
Dim oXmlHttp : Set oXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
	With oXmlHttp
		.Open "GET", url, False
		.SetRequestHeader "Referer", url				'设定页面来源
		.SetRequestHeader "Cookie", user_cookie			'设定Cookie
		.SetRequestHeader "Accept-Language", language	'设定语言
		.SetRequestHeader "User-Agent", user_agent		'设定代理（浏览器，身份）
		.SetRequestHeader "connection", connection		'
		.SetRequestHeader "Accept-Encoding", encoding	'设定gzip压缩
		.SetRequestHeader "Accept", Accept		'文档类型
		On Error Resume Next
		.Send
		If Err Then
			Err.Clear
			Response.Write "无法从[" & url & "]取得数据!"
		End If
		If .ReadyState<>4 Or .Status<>200 Then
			Response.Write "无法从[" & url & "]取得数据!"
		End If
		data = BytesToBstr(.ResponseBody, Base)
	End With
Set oXmlHttp = Nothing
Response.Write data
%>

PS:未作测试,若有问题自己调试一下