|
作者：佚名 来源：中国秦腔网 时间：2006-6-2 3:45:57 |
|
343Ⅶ—44 漳州木偶头雕刻 福建省漳州市
344Ⅶ—45 萍乡湘东傩面具 江西省萍乡市
345Ⅶ—46 竹刻 上海市嘉定区
(嘉定竹刻、宝庆竹刻) 湖南省邵阳市
346Ⅶ—47 泥塑 天津市
(天津泥人张、惠山泥人、凤翔泥 江苏省无锡市
塑、浚县泥咕咕) 陕西省凤翔县 河南省浚县
347Ⅶ—48 塔尔寺酥油花 青海省湟中县
348Ⅶ—49 热贡艺术 青海省同仁县
349Ⅶ—50 灯彩 浙江省仙居县、海宁市
(仙居花灯、硖石灯彩、泉州花灯、 福建省泉州市
东莞千角灯、湟源排灯) 广东省东莞市 青海省湟源县
350Ⅶ—51 嵊州竹编 浙江省嵊州市
八、传统手工技艺(共计89项)
序号编号 项目名称 申报地区或单位
351Ⅷ—1宜兴紫砂陶制作技艺 江苏省宜兴市
352Ⅷ—2界首彩陶烧制技艺 安徽省界首市
353Ⅷ—3石湾陶塑技艺 广东省佛山市
354Ⅷ—4黎族原始制陶技艺 海南省昌江黎族自治县
355Ⅷ—5傣族慢轮制陶技艺 云南省西双版纳傣族自治州
356Ⅷ—6维吾尔族模制法土陶烧制技艺 新疆维吾尔自治区英吉沙县、喀什市、吐鲁番地区
357Ⅷ—7景德镇手工制瓷技艺 江西省景德镇市
358Ⅷ—8耀州窑陶瓷烧制技艺 陕西省铜川市
359Ⅷ—9龙泉青瓷烧制技艺 浙江省龙泉市
360Ⅷ—10 磁州窑烧制技艺 河北省峰峰矿区
361Ⅷ—11 德化瓷烧制技艺 福建省德化县
362Ⅷ—12 澄城尧头陶瓷烧制 << 上一页 [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)
%> |
用户登录 
新用户注册 
