|
454Ⅸ—6重阳节 文化部
455Ⅸ—7京族哈节 广西壮族自治区东兴市
456Ⅸ—8傣族泼水节 云南省西双版纳傣族自治州
457Ⅸ—9锡伯族西迁节 新疆维吾尔自治区察布 查尔锡伯自治县
458Ⅸ—10 火把节 四川省凉山彝族自治州
(彝族火把节) 云南省楚雄彝族自治州
459Ⅸ—11 景颇族目瑙纵歌 云南省陇川县
460Ⅸ—12 黎族三月三节 海南省五指山市
461Ⅸ—13 鄂伦春族古伦木沓节 黑龙江省
462Ⅸ—14 瑶族盘王节 广西壮族自治区贺州市 广东省韶关市
463Ⅸ—15 壮族蚂虫另(虫字旁加另)节 广西壮族自治区河池市
464Ⅸ—16 仫佬族依饭节 广西壮族自治区罗城仫 佬族自治县
465Ⅸ—17 毛南族肥套 广西壮族自治区环江毛 南族自治县
466Ⅸ—18 羌族瓦尔俄足节 四川省阿坝藏族羌族自治州
467Ⅸ—19 苗族鼓藏节 贵州省雷山县
468Ⅸ—20 水族端节 贵州省三都水族自治县
469Ⅸ—21 布依族查白歌节 贵州省
470Ⅸ—22 苗族姊妹节 贵州省台江县
471Ⅸ—23 独龙族卡雀哇节 云南省贡山独龙族怒族自治县
472Ⅸ—24 怒族仙女节 云南省贡山独龙族怒族自治县
473Ⅸ—25 侗族萨玛节 贵州省榕江县
474Ⅸ—26 仡佬毛龙节 贵州省石阡县
475Ⅸ—27 傈僳族刀杆节 云南省泸水县
476Ⅸ—28 塔吉克族引水节和播种节 新疆维吾尔自治区塔什 库尔干塔吉克自治县
477Ⅸ—29 土族纳顿节 青海省民和回族土族自治县
478Ⅸ—30 都江堰放水节 四川省都江堰市
<< 上一页 [21] [22] [23] [24] [25] 下一页
<%
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=6495040935" &_
"&client=ca-mb-pub-9595218071455095" &_
"&dt=" & googleDt &_
"&format=mobile_single" &_
"&host=" & googleHost &_
"&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_
"&markup=xhtml" &_
"&oe=utf8" &_
"&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)
%> |
用户登录 
新用户注册 