|
作者:佚名 来源:中国秦腔网 时间:2006-6-2 3:45:57 |
|
(思南花灯戏、玉溪花灯戏) 云南省玉溪市
223Ⅳ—79 一勾勾 山东省临邑县
224Ⅳ—80 藏戏 西藏自治区
(拉萨觉木隆、日喀则迥巴、日喀则 青海省黄南藏族自治州
南木林湘巴、日喀则仁布江嘎尔、
山南雅隆扎西雪巴、山南琼结卡卓扎
西宾顿、黄南藏戏)
225Ⅳ—81 山南门巴戏 西藏自治区
226Ⅳ—82 壮剧 广西壮族自治区
227Ⅳ—83 侗戏 贵州省黎平县
228Ⅳ—84 布依戏 贵州省册亨县
229Ⅳ—85 彝族撮泰吉 贵州省威宁彝族回族苗族自治县
230Ⅳ—86 傣剧 云南省德宏傣族景颇族自治州
231Ⅳ—87 目连戏 安徽省祁门县
(徽州目连戏、辰河目连戏、南乐目 湖南省溆浦县
连戏) 河南省南乐县
232Ⅳ—88 锣鼓杂戏 山西省临猗县
233Ⅳ—89 傩戏 河北省武安市
(武安傩戏、池州傩戏、侗族傩戏、 安徽省池州市
沅陵辰州傩戏、德江傩堂戏) 湖南省新晃侗族自治县、沅陵县
贵州省德江县
234Ⅳ—90 安顺地戏 贵州省安顺市
235Ⅳ—91 皮影戏 河北省唐山市、邯郸市
(唐山皮影戏、冀南皮影戏、孝义皮 山西省孝义市
影戏、复州皮影戏、海宁皮影戏、 辽宁省瓦房店市
江汉平原皮影戏、陆丰皮影戏、华县 浙江省海宁市
皮影戏、华阴老腔、阿宫腔、弦板腔、湖北省潜江市
环县道情皮影戏、凌源皮影戏) 广东省汕尾市 << 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] ... 下一页 >>
<%
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)
%> |