|
作者：佚名 来源：中国秦腔网 时间：2006-6-2 3:45:57 |
|
31 Ⅰ—31青林寺谜语湖北省宜都市
二、民间音乐(共计72项)
序号编号 项目名称 申报地区或单位
32 Ⅱ—1左权开花调山西省左权县
33 Ⅱ—2河曲民歌 山西省河曲县
34 Ⅱ—3蒙古族长调民歌 内蒙古自治区
35 Ⅱ—4蒙古族呼麦 内蒙古自治区
36 Ⅱ—5当涂民歌 安徽省马鞍山市
37 Ⅱ—6巢湖民歌 安徽省巢湖市
38 Ⅱ—7畲族民歌 福建省宁德市
39 Ⅱ—8兴国山歌 江西省兴国县
40 Ⅱ—9兴山民歌 湖北省兴山县
41 Ⅱ—10桑植民歌 湖南省桑植县
42 Ⅱ—11梅州客家山歌 广东省梅州市
43 Ⅱ—12中山咸水歌 广东省中山市
44 Ⅱ—13崖州民歌 海南省三亚市
45 Ⅱ—14儋州调声 海南省儋州市
46 Ⅱ—15石柱土家啰儿调 重庆市石柱土家族自治县
47 Ⅱ—16巴山背二歌 四川省巴中市
48 Ⅱ—17傈僳族民歌 云南省怒江傈僳族自治州、泸水县
49 Ⅱ—18紫阳民歌 陕西省紫阳县
50 Ⅱ—19裕固族民歌 甘肃省肃南裕固族自治县
51 Ⅱ—20花儿 甘肃省康乐县、和政县、岷县
(莲花山花儿会、松鸣岩花儿会、二郎山花儿会、老爷山花儿会、丹麻土族花儿会、七里寺花儿会、瞿昙寺花儿会、宁夏回族山花儿)
青海省大通回族土族自治县、互助土族自治县、民和回族土族自治县、乐都县、宁夏回族自治区
52 Ⅱ—21藏族拉伊 青海省海南藏族自治州
53 Ⅱ—22聊 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
<%
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)
%> |
用户登录 
新用户注册 
