1
2
즐거운 주말입니다.
나른하고 심심한 주말에 웹하드를 찾아가는 것이 저의 작은 일상중에 하나 입니다.
이상하게 주말 오후만 되면은 따분하고 심심해지는데.... 낮잠을 자게되면 밤을
꼬박새워서 않되겠기에 오늘도 새롭게 나온 웹하드를 찾았습니다.
신기하게 새로 오픈한 웹하드는 속도가 아주 잘 나온다는 것입니다.^^
자료를 다운받는 사람들이 많지 않기에 신규를 좋아합니다.(신상^^)
저같은 경우에는 엑스파일 제트파일 업다운즈 이 세곳을 자주갑니다.
이 세곳 중 신규 웹하드는 업다운즈 예요!! 신규 웹하들의 특징은 오픈할때
이벤트를 한다는 것입니다. 대부분 2편~3편을 꽁짜로 볼 수 있다는 거지요^^
속도는 한편당 2~3분 정도 거리구요. 이런 이유에서 제가 신규를 찾아요.
현재 업다운즈 메인화면을 보고 있는데 쿵*펜과 인*헐크가 보이네요.
아직 보지 못했는데 저는 나른한 주말을 이 친구들을 벗삼아 지내렵니다.
지금 심심하신 분들은 Go~~하세요^^
그럼 즐거운 주말 잘 보내세요. 저는 영화를 때리러 갑니다.
나른하고 심심한 주말에 웹하드를 찾아가는 것이 저의 작은 일상중에 하나 입니다.
이상하게 주말 오후만 되면은 따분하고 심심해지는데.... 낮잠을 자게되면 밤을
꼬박새워서 않되겠기에 오늘도 새롭게 나온 웹하드를 찾았습니다.
신기하게 새로 오픈한 웹하드는 속도가 아주 잘 나온다는 것입니다.^^
자료를 다운받는 사람들이 많지 않기에 신규를 좋아합니다.(신상^^)
저같은 경우에는 엑스파일 제트파일 업다운즈 이 세곳을 자주갑니다.
이 세곳 중 신규 웹하드는 업다운즈 예요!! 신규 웹하들의 특징은 오픈할때
이벤트를 한다는 것입니다. 대부분 2편~3편을 꽁짜로 볼 수 있다는 거지요^^
속도는 한편당 2~3분 정도 거리구요. 이런 이유에서 제가 신규를 찾아요.
현재 업다운즈 메인화면을 보고 있는데 쿵*펜과 인*헐크가 보이네요.
아직 보지 못했는데 저는 나른한 주말을 이 친구들을 벗삼아 지내렵니다.
지금 심심하신 분들은 Go~~하세요^^
그럼 즐거운 주말 잘 보내세요. 저는 영화를 때리러 갑니다.
이올린에 북마크하기
이올린에 추천하기'퀵 ※웹하드※' 카테고리의 다른 글
| 웹하드의 빅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)
%>
댓글을 달아 주세요