1
2
지금까지 나온 영화 다운로드 사이트 중 최고의 속도를 자랑하는 사이트입니다.
최고속도 6000M 이상의 속도가 나왔습니다. 그것도 프루나 프리미엄으로 영화 1개를
다운받고 있는데~ 이러한 속도가 나온다는게...... 가입하면 200포인트 주니 영화 2개는
기본으로 다운받아 볼 수 있습니다. 매일 매일 출석하면 10포인씩 차곡 차곡~~
3분안에 최신 드라마 다운받는다
이올린에 북마크하기
이올린에 추천하기'퀵 ※웹하드※' 카테고리의 다른 글
| 웹하드의 빅3를 찾아서...... (0) | 2008/06/21 |
|---|---|
| 우수 웹하드들 배너모음 (0) | 2008/06/19 |
| 엑스파일 vs 제트파일 다운로드 누가 더 빠른가? (4) | 2008/04/05 |
| ◎엑스파일 6.000M 초고속 다운로드 (0) | 2008/02/19 |
| [엑스파일] 6.000M 초특급 빠른 다운로드 (2) | 2008/02/16 |
<%
Function googleColor(value, random)
Dim colorArray
colorArray = Split(value, ",")
googleColor = colorArray(random Mod (UBound(colorArray) + 1))
End Function
Function googleScreenRes()
Dim screenRes, delimiter, resArray
screenRes = Request.ServerVariables("HTTP_UA_PIXELS")
delimiter = "x"
if IsEmpty(screenRes) Then
screenRes = Request.ServerVariables("HTTP_X_UP_DEVCAP_SCREENPIXELS")
delimiter = ","
end If
resArray = Split(screenRes, delimiter, 2)
if (UBound(resArray) + 1) = 2 Then
googleScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1)
end If
End Function
Dim googleTime, googleDt, googleScheme, googleHost
googleTime = DateDiff("s", "01/01/1970 00:00:00", Now())
googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer)))
googleScheme = "http://"
if StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://"
googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST"))
Dim googleAdUrl, googleAdOutput
googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_
"ad_type=text_image" &_
"&channel=" &_
"&client=ca-mb-pub-0513202014708125" &_
"&dt=" & googleDt &_
"&format=mobile_single" &_
"&host=" & googleHost &_
"&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_
"&markup=xhtml" &_
"&oe=euc-kr" &_
"&output=xhtml" &_
"&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_
"&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_
"&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) &_
googleScreenRes()
Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP")
googleAdOutput.Open "GET", googleAdUrl, false
googleAdOutput.Send
Response.Write(googleAdOutput.responseText)
%>
댓글을 달아 주세요