<%
on error resume next
dim xmlhttp,xmlurl,referer,Proxy,sinfo,Languages,Timeouts,Content_Type,cookies,Accept_Language,User_Agent,Accept,Connection,Cache_Control,Pragma,Accept_Encoding,Range

						'------------------采集---------------------
	sql="select * from url where url_id="&url_up
set rs=server.createobject("adodb.recordset")
	rs.open sql,conn_link,1,3
	if rs.eof and rs.bof then response.write "没有MP3" :response.end
	if rs("url_identify") = "yes" then
		id=cstr(rs("url_alias"))
		dlstart=rs("url_start")
		dlend=rs("url_end")
		url_end=rs("url_endTail")

		InsertCount=0
			if len(rs("url_change_id1"))>0 and len(rs("url_change_word1"))>0 then InsertCount=1
			if len(rs("url_change_id2"))>0 and len(rs("url_change_word2"))>0 and len(rs("url_change_id1"))>0 and len(rs("url_change_word1"))>0 then InsertCount=2

		set xmlhttp=new xmlhttp_class
		xmlhttp.xmlurl=rs("url_http")
		xmlhttp.referer=rs("url_into")
		xmlhttp.Proxy=rs("url_Proxy") '代理
		xmlhttp.Languages=rs("url_Languages") '解码语言
		xmlhttp.Content_Type=rs("url_Content_Type") 'text/html,audio/x-ms-wma
		xmlhttp.cookies=rs("url_cookies")'cookie
		xmlhttp.Accept_Language=rs("url_Accept_Language") 'zh-cn 语言
		xmlhttp.User_Agent=rs("url_User_Agent") '浏览器代理
		xmlhttp.Accept=rs("url_Accept") '文档类型
        xmlhttp.Connection=rs("url_Connection") 'colse Keep-Alive连接
		xmlhttp.Cache_Control=rs("url_Cache_Control") 'no-cache 是否缓存
		xmlhttp.Pragma=rs("url_Pragma") 'no-cache 是否缓存 在HTTP/1.1协议中，它的含义和Cache-Control:no-cache相同
		xmlhttp.Accept_Encoding="" '"gzip, deflate" gzip压缩(gzip, deflate)
		xmlhttp.Range="" '设置返回多少数据 //表示头500个字节：bytes=0-499 //表示第二个500字节：bytes=500-999 //表示最后500个字节：bytes=-500 //表示500字节以后的范围：bytes=500- //第一个和最后一个字节：bytes=0-0,-1 //同时指定几个范围：bytes=500-600,601-999
		xmlhttp.http()
		set xmlhttp=nothing

		if url_end < 1 then url_end=0
		innum=instr(1,sInfo,dlstart)+len(dlstart)
		innum2=instr(innum+1,sInfo,dlend)
		dz=mid(sInfo,innum,innum2-innum)
		dzz=split(dz,"/")
		dzzz=""
		for i=1 to ubound(dzz)-cint(url_end)-1 step 1
			aas=true
				if InsertCount<>0 then
					for ii=1 to InsertCount
					insert=rs("url_change_id"&cint(ii))
					strs=rs("url_change_word"&cint(ii))
						if cint(insert)=i then
						dzzz=dzzz&strs&"/"
						aas=false
						end if
					next
				end if
			if aas and i>=2 then dzzz=dzzz+dzz(i)&"/"
		next
		rs("url_dl_http")="http://"&dzzz
		rs.update
	end if
	rs.close
set rs=nothing
	Response.Cookies("456vv_"&url_up) = Empty	'清除全部COOKIES
						'------------------采集---------------------
%>