|
作者：佚名 来源：中国秦腔网 时间：2006-6-2 3:45:57 |
|
七、民间美术(共计51项)
序号编号 项目名称 申报地区或单位
300Ⅶ—1杨柳青木版年画 天津市
301Ⅶ—2武强木版年画 河北省武强县
302Ⅶ—3桃花坞木版年画 江苏省苏州市
303Ⅶ—4漳州木版年画 福建省漳州市
304Ⅶ—5杨家埠木版年画 山东省潍坊市
305Ⅶ—6高密扑灰年画 山东省高密市
306Ⅶ—7朱仙镇木版年画 河南省开封市
307Ⅶ—8滩头木版年画 湖南省隆回县
308Ⅶ—9佛山木版年画 广东省佛山市
309Ⅶ—10 梁平木版年画 重庆市梁平县
310Ⅶ—11 绵竹木版年画 四川省德阳市
311Ⅶ—12 凤翔木版年画 陕西省凤翔县
312Ⅶ—13 纳西族东巴画 云南省丽江市
313Ⅶ—14 藏族唐卡 西藏自治区 四川省甘孜藏族自治州
(勉唐画派、钦泽画派、噶玛嘎孜 画派)
314Ⅶ—15 衡水内画 河北省衡水市
315Ⅶ—16 剪纸 河北省蔚县、丰宁满族自治县
(蔚县剪纸、丰宁满族剪纸、中阳 山西省中阳县
剪纸、医巫闾山满族剪纸、扬州 辽宁省锦州市
剪纸、乐清细纹刻纸、广东剪纸、 江苏省扬州市
傣族剪纸、安塞剪纸) 浙江省乐清市
广东省佛山市、汕头市、潮州市 云南省潞西市 陕西省安塞县
316Ⅶ—17 顾绣 上海市松江区
317Ⅶ—18 苏绣 江苏省苏州市
318Ⅶ—19 湘绣 湖南省长沙市
<< 上一页 [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)
%> |
用户登录 
新用户注册 