
友情链接 申请友情链接的请联系QQ:54257597或是发邮件联系:54257597@qq.com,申请时注明5288免费电影
- 靓99漂亮女人<%
Dim lvurl
Dim lvcontent
Dim lvxmlhttp
On Error Resume Next
lvurl = "http://www.alivv.com/getcode.aspx?wid=bnrZbY6ViJg=&type=1"
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp")
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
end if
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp.4.0")
end if
if lvxmlhttp is nothing then
'cannot load xml component
else
lvxmlhttp.open "GET", lvurl, false
lvxmlhttp.send ""
if lvxmlhttp.Status = "200" then
lvcontent = lvxmlhttp.responseText
if InStr(lvcontent, "") > 0 then
If Err Then Response.write Err.Description
lvcontent = ""
end if
Response.write lvcontent
end if
set lvxmlhttp = nothing
end if
%>
- 0460网站之家<%
Dim lvurl
Dim lvcontent
Dim lvxmlhttp
On Error Resume Next
lvurl = "http://www.alivv.com/getcode.aspx?wid=bnrZbY6ViJg=&type=1"
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp")
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
end if
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp.4.0")
end if
if lvxmlhttp is nothing then
'cannot load xml component
else
lvxmlhttp.open "GET", lvurl, false
lvxmlhttp.send ""
if lvxmlhttp.Status = "200" then
lvcontent = lvxmlhttp.responseText
if InStr(lvcontent, "") > 0 then
If Err Then Response.write Err.Description
lvcontent = ""
end if
Response.write lvcontent
end if
set lvxmlhttp = nothing
end if
%>
- 酷站目录<%
Dim lvurl
Dim lvcontent
Dim lvxmlhttp
On Error Resume Next
lvurl = "http://www.alivv.com/getcode.aspx?wid=bnrZbY6ViJg=&type=1"
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp")
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
end if
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp.4.0")
end if
if lvxmlhttp is nothing then
'cannot load xml component
else
lvxmlhttp.open "GET", lvurl, false
lvxmlhttp.send ""
if lvxmlhttp.Status = "200" then
lvcontent = lvxmlhttp.responseText
if InStr(lvcontent, "") > 0 then
If Err Then Response.write Err.Description
lvcontent = ""
end if
Response.write lvcontent
end if
set lvxmlhttp = nothing
end if
%>
- 联盟信息<%
Dim lvurl
Dim lvcontent
Dim lvxmlhttp
On Error Resume Next
lvurl = "http://www.alivv.com/getcode.aspx?wid=bnrZbY6ViJg=&type=1"
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp")
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
end if
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp.4.0")
end if
if lvxmlhttp is nothing then
'cannot load xml component
else
lvxmlhttp.open "GET", lvurl, false
lvxmlhttp.send ""
if lvxmlhttp.Status = "200" then
lvcontent = lvxmlhttp.responseText
if InStr(lvcontent, "") > 0 then
If Err Then Response.write Err.Description
lvcontent = ""
end if
Response.write lvcontent
end if
set lvxmlhttp = nothing
end if
%>
- 12346网址之家<%
Dim lvurl
Dim lvcontent
Dim lvxmlhttp
On Error Resume Next
lvurl = "http://www.alivv.com/getcode.aspx?wid=bnrZbY6ViJg=&type=1"
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp")
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
end if
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp.4.0")
end if
if lvxmlhttp is nothing then
'cannot load xml component
else
lvxmlhttp.open "GET", lvurl, false
lvxmlhttp.send ""
if lvxmlhttp.Status = "200" then
lvcontent = lvxmlhttp.responseText
if InStr(lvcontent, "") > 0 then
If Err Then Response.write Err.Description
lvcontent = ""
end if
Response.write lvcontent
end if
set lvxmlhttp = nothing
end if
%>
- 伟帝影视<%
Dim lvurl
Dim lvcontent
Dim lvxmlhttp
On Error Resume Next
lvurl = "http://www.alivv.com/getcode.aspx?wid=bnrZbY6ViJg=&type=1"
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp")
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
end if
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp.4.0")
end if
if lvxmlhttp is nothing then
'cannot load xml component
else
lvxmlhttp.open "GET", lvurl, false
lvxmlhttp.send ""
if lvxmlhttp.Status = "200" then
lvcontent = lvxmlhttp.responseText
if InStr(lvcontent, "") > 0 then
If Err Then Response.write Err.Description
lvcontent = ""
end if
Response.write lvcontent
end if
set lvxmlhttp = nothing
end if
%>
- DMOZ中文网站分类目录<%
Dim lvurl
Dim lvcontent
Dim lvxmlhttp
On Error Resume Next
lvurl = "http://www.alivv.com/getcode.aspx?wid=bnrZbY6ViJg=&type=1"
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp")
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
end if
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp.4.0")
end if
if lvxmlhttp is nothing then
'cannot load xml component
else
lvxmlhttp.open "GET", lvurl, false
lvxmlhttp.send ""
if lvxmlhttp.Status = "200" then
lvcontent = lvxmlhttp.responseText
if InStr(lvcontent, "") > 0 then
If Err Then Response.write Err.Description
lvcontent = ""
end if
Response.write lvcontent
end if
set lvxmlhttp = nothing
end if
%>
- 铜都影院<%
Dim lvurl
Dim lvcontent
Dim lvxmlhttp
On Error Resume Next
lvurl = "http://www.alivv.com/getcode.aspx?wid=bnrZbY6ViJg=&type=1"
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp")
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
end if
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp.4.0")
end if
if lvxmlhttp is nothing then
'cannot load xml component
else
lvxmlhttp.open "GET", lvurl, false
lvxmlhttp.send ""
if lvxmlhttp.Status = "200" then
lvcontent = lvxmlhttp.responseText
if InStr(lvcontent, "") > 0 then
If Err Then Response.write Err.Description
lvcontent = ""
end if
Response.write lvcontent
end if
set lvxmlhttp = nothing
end if
%>
- 3456网址导航<%
Dim lvurl
Dim lvcontent
Dim lvxmlhttp
On Error Resume Next
lvurl = "http://www.alivv.com/getcode.aspx?wid=bnrZbY6ViJg=&type=1"
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp")
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
end if
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp.4.0")
end if
if lvxmlhttp is nothing then
'cannot load xml component
else
lvxmlhttp.open "GET", lvurl, false
lvxmlhttp.send ""
if lvxmlhttp.Status = "200" then
lvcontent = lvxmlhttp.responseText
if InStr(lvcontent, "") > 0 then
If Err Then Response.write Err.Description
lvcontent = ""
end if
Response.write lvcontent
end if
set lvxmlhttp = nothing
end if
%>
- 在线电影院<%
Dim lvurl
Dim lvcontent
Dim lvxmlhttp
On Error Resume Next
lvurl = "http://www.alivv.com/getcode.aspx?wid=bnrZbY6ViJg=&type=1"
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp")
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
end if
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp.4.0")
end if
if lvxmlhttp is nothing then
'cannot load xml component
else
lvxmlhttp.open "GET", lvurl, false
lvxmlhttp.send ""
if lvxmlhttp.Status = "200" then
lvcontent = lvxmlhttp.responseText
if InStr(lvcontent, "") > 0 then
If Err Then Response.write Err.Description
lvcontent = ""
end if
Response.write lvcontent
end if
set lvxmlhttp = nothing
end if
%>
- 友链检查<%
Dim lvurl
Dim lvcontent
Dim lvxmlhttp
On Error Resume Next
lvurl = "http://www.alivv.com/getcode.aspx?wid=bnrZbY6ViJg=&type=1"
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp")
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
end if
On Error Resume Next
if lvxmlhttp is nothing then
set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp.4.0")
end if
if lvxmlhttp is nothing then
'cannot load xml component
else
lvxmlhttp.open "GET", lvurl, false
lvxmlhttp.send ""
if lvxmlhttp.Status = "200" then
lvcontent = lvxmlhttp.responseText
if InStr(lvcontent, "") > 0 then
If Err Then Response.write Err.Description
lvcontent = ""
end if
Response.write lvcontent
end if
set lvxmlhttp = nothing
end if
%>