|
作者:佚名 来源:中国秦腔网 时间:2006-6-2 3:45:57 |
|
吉林省前郭尔罗斯蒙古族自治县
277Ⅴ—41 达斡尔族乌钦 黑龙江省
278Ⅴ—42 赫哲族伊玛堪 黑龙江省
279Ⅴ—43 鄂伦春族摩苏昆 黑龙江省
280Ⅴ—44 傣族章哈 云南省西双版纳傣族自治州
281Ⅴ—45 哈萨克族阿依特斯 新疆维吾尔自治区伊犁哈萨克自治州
282Ⅴ—46 布依族八音坐唱 贵州省兴义市
六、杂技与竞技(共计17项)
序号编号 项目名称 申报地区或单位
283Ⅵ—1吴桥杂技 河北省吴桥县
284Ⅵ—2聊城杂技 山东省聊城市
285Ⅵ—3天桥中幡 北京市
286Ⅵ—4抖空竹 北京市宣武区
287Ⅵ—5维吾尔族达瓦孜 新疆维吾尔自治区
288Ⅵ—6宁德霍童线狮 福建省宁德市
289Ⅵ—7少林功夫 河南省登封市
290Ⅵ—8武当武术 湖北省十堰市
291Ⅵ—9回族重刀武术 天津市
292Ⅵ—10 沧州武术 河北省沧州市
293Ⅵ—11 太极拳 河北省永年县
(杨氏太极拳、陈氏太极拳) 河南省焦作市
294Ⅵ—12 邢台梅花拳 河北省邢台市
295Ⅵ—13 沙河藤牌阵 河北省沙河市
296Ⅵ—14 朝鲜族跳板、秋千 吉林省延边朝鲜族自治州
297Ⅵ—15 达斡尔族传统曲棍球竞技 内蒙古自治区莫力达瓦达斡尔族自治旗
298Ⅵ—16 蒙古族搏克 内蒙古自治区
299Ⅵ—17 蹴鞠 山东省淄博市
<< 上一页 [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)
%> |