|
479Ⅸ—31 雪顿节 西藏自治区
480Ⅸ—32 黄帝陵祭典 陕西省黄陵县
481Ⅸ—33 炎帝陵祭典 湖南省炎陵县
482Ⅸ—34 成吉思汗祭典 内蒙古自治区鄂尔多斯市
483Ⅸ—35 祭孔大典 山东省曲阜市
484Ⅸ—36 妈祖祭典 福建省莆田市 中华妈祖文化交流协会
485Ⅸ—37 太昊伏羲祭典 甘肃省天水市 河南省淮阳县
486Ⅸ—38 女娲祭典 河北省涉县
487Ⅸ—39 大禹祭典 浙江省绍兴市
488Ⅸ—40 祭敖包 内蒙古自治区锡林郭勒盟
489Ⅸ—41 白族绕三灵 云南省大理白族自治州
490Ⅸ—42 厂甸庙会 北京市宣武区
491Ⅸ—43 热贡六月会 青海省同仁县
492Ⅸ—44 小榄菊花会 广东省中山市
493Ⅸ—45 瑶族耍歌堂 广东省清远市
494Ⅸ—46 壮族歌圩 广西壮族自治区南宁市
495Ⅸ—47 苗族系列坡会群 广西壮族自治区融水苗族自治县
496Ⅸ—48 那达慕 内蒙古自治区锡林郭勒盟
497Ⅸ—49 维吾尔刀郎麦西热甫 新疆维吾尔自治区麦盖提县
498Ⅸ—50 秦淮灯会 江苏省南京市
499Ⅸ—51 秀山花灯 重庆市秀山土家族苗族自治县
500Ⅸ—52 全丰花灯 江西省修水县
501Ⅸ—53 泰山石敢当习俗 山东省泰安市
502Ⅸ—54 民间社火 陕西省宝鸡市 山西省潞城县
503Ⅸ—55 鄂尔多斯婚礼 内蒙古自治区鄂尔多斯市
504Ⅸ—56 土族婚礼 青海省互助土族自治县
<< 上一页 [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)
%> |
用户登录 
新用户注册 