Function retuText(send_URL,user,pw)
  PostStr = "?a=b&u="&user&"&p="&pw
  Response.Write "<br>"&Len(PostStr)&"<br>"
  Set Retrieval = Server.CreateObject("Msxml2.xmlHttp") ''Microsoft.XMLHTTP
  With Retrieval
 .Open "POST",send_URL,False," ", " "
 .setRequestHeader "Content-Length",len(PostStr)
 .setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
 .Send(PostStr)
 retuText = .ResponseText
  End With
  Set Retrieval = Nothing
End Function

s = ""
for i=1 to 4200
  s=s&i&";- "
next
a1 = "http://www.dg.gd.cn/dgnews/view.asp?ID=132DBFA55DB7BATE133KPWKH"
a2 = "http://localhost:240/u/demo/ext/xtemp/http-get.asp"
ad = a2
user = "test12"
pw = "pw123423"&s

te=retuText(ad,user,pw)
Response.Write "<br>"&Len(te)&"<br>"
Response.Write te&Now()
Response.End()