ASP抓取带参数的动态网页

dim cs_id
cs_id=Trim(Request.QueryString("cs_id"))

Function getHTTPPage(URL)
Dim http 
Set http = CreateObject("MSXML2.XMLHTTP") 
http.Open "GET", URL, False 
http.send 
If http.ReadyState <> 4 Then 
Exit Function 
End If 
getHTTPPage = BytesToBstr(http.responseBody, "GB2312") 
Set http = Nothing 
If err.Number <> 0 Then err.Clear 
End Function 

Function BytesToBstr(body, Cset)
Dim objstream 
Set objstream = 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

response.Write getHTTPPage("http://kukusoft.net/kukusoft/CustomerService/V1.0/CustomerService_json/?cs_id="&cs_id&"&date="&now())
'后面的那个date参数是必须的，否则无法实时获取动态信息