<!-- #include file = "Cls_AspHttp.asp" -->
<!-- #include File="function_www_888wang_com.asp" -->
<%
	Dim DoGet
	Dim sCookie
	Dim sUserAgent
	Set DoGet = New FlyCms_AspHttp
	'Rw "下载91f的文件<br>"
	'Down91f
	Rw "<br>下载haoting的文件<br>"
	DownHaoting
	Set DoGet = Nothing

	Sub Down91f()
		'91f 欺骗身份

		sCookie = ""
		sUserAgent = "NSPlayer/9.0.0.2991 WMFSDK/9.0 "	'这句模拟Media Player身份
		FromUrl = "http://202.101.235.99/mu/MP/@2AC6BFD79E8BA1E58860618CDD2CEEB14//f/71/2.Wma"
		ToFiles = "33/2.wma"
		Call SaveData(FromUrl, ToFiles, sCookie, sUserAgent, 1, 1)
	End Sub

	Sub DownHaoting()
		'欺骗Cookie+欺骗身份

		sUrl = "http://localhost/inc/getUUCode.asp"		'Cookie认证页面,我们可以从这里取得Cookie
		TempStr = HttpGet(10000,10000,20000,20000,"GET",sUrl,"",sData,"","zh-cn","application/x-www-form-urlencoded","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)","gzip, deflate","*/*","gb2312")
		'call re1(TempStr)
		sCookie = GetCookie(DoGet.strHeaders,-1) '这句用来取得上页面中的Cookie
		'call re1(sCookie)
		sUserAgent = "NSPlayer/9.0.0.2991 WMFSDK/9.0 "	'这句模拟Media Player身份
		FromUrl = "http://p1.dj19.com/UUAuth/wwwdj19com/2/2007.10/26/30.rm"
		ToFiles = "22/1.rm"
		Call SaveData(FromUrl, ToFiles, sCookie, sUserAgent, 1, 1)
	End Sub

%>





