<%
On Error Resume Next
Server.ScriptTimeOut=9999999
response.write(getHTTPPage("http://user.youqinglian.cn/all_link/6b/25070.html"))
function getHTTPPage(url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
%>
友情链接>>>申请友情链接联系 ---QQ:347790578
本站中文域名：代开发票.中国 代开发票.cn 网络实名：代开发票
短信网址：代开发票
服务热线：13480196365 联系人：
张先生 E-mail：347790578@qq.com
版权所有 @ 中国代开发票网www.dkfp.org.cn
发票
代开发票
中国代开发票网
发票代开
正规发票
北京代开发票
上海代开发票
广东代开发票
深圳代开发票
广州代开发票
东莞代开发票
佛山代开发票
浙江代开发票
温州代开发票
义乌代开发票
杭州代开发票
海南代开发票
海口代开发票
江苏代开发票
苏州代开发票
徐州代开发票
张家港代开发票
湖南代开发票
常州代开发票
长沙代开发票
四川代开发票
成都代开发票
重庆代开发票
湖北代开发票
武汉代开发票
河北代开发票
河南代开发票
郑州代开发票
南京代开发票
天津代开发票
宁夏代开发票