<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
on error resume next
response.charset = "gb2312"
Response.ContentType = "text/html"
%>
<!--#include file="inc.asp"-->
<!--#include file="urlcode.asp"-->
<!--#include file="base64.asp"-->
<%
'http头标设置参考：http://baike.baidu.com/view/9472.htm
dim xmls,into,id,url_end,url,dlstart,dlend

xmls=request.querystring("http")
into=request.querystring("into")
id=request.querystring("id")
url_end=request.querystring("end")
url=request.querystring("url")
dlstart=request.querystring("dlstart")
dlend=request.querystring("dlend")
dim xmlhttp,xmlurl,referer,Proxy,sinfo,Languages,Timeouts,Content_Type,cookies,Accept_Language,User_Agent,Accept,Connection,Cache_Control,Pragma,Accept_Encoding,Range

	set xmlhttp=new xmlhttp_class
	xmlhttp.xmlurl=xmls
	xmlhttp.referer=into
	xmlhttp.Proxy="" '代理
	xmlhttp.Languages="gb2312" '解码语言
	xmlhttp.Content_Type="text/html" 'text/html,audio/x-ms-wma
	xmlhttp.cookies="" 'cookie
	xmlhttp.Accept_Language="zh-cn" 'zh-cn 语言
	xmlhttp.User_Agent="Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; aff-kingsoft-ciba; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)" '浏览器代理
	xmlhttp.Accept="*/*" '文档类型
    xmlhttp.Connection="colse" 'colse Keep-Alive连接
	xmlhttp.Cache_Control="" 'no-cache 是否缓存
	xmlhttp.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
	for ii=1 to request.querystring("insert").count
	insert=request.querystring("insert")(ii)
	strs=request.querystring("str")(ii)
	if cint(insert)=i then
	dzzz=dzzz&strs&"/"
	aas=false
	end if
	next
	if aas and i>=2 then dzzz=dzzz+dzz(i)&"/"
	next


%>
document.getElementById("bate_test").value="http://<%=dzzz%>";