|
技艺 陕西省澄城县
363Ⅷ—13 南京云锦木机妆花手工织造技艺 江苏省南京市
364Ⅷ—14 宋锦织造技艺 江苏省苏州市
365Ⅷ—15 苏州缂丝织造技艺 江苏省苏州市
366Ⅷ—16 蜀锦织造技艺 四川省成都市
367Ⅷ—17 乌泥泾手工棉纺织技艺 上海市徐汇区
368Ⅷ—18 土家族织锦技艺 湖南省湘西土家族苗族自治州
369Ⅷ—19 黎族传统纺染织绣技艺 海南省五指山市、白沙黎族自治县、保亭黎族 苗族自治县、乐东黎族自治县、东方市
370Ⅷ—20 壮族织锦技艺 广西壮族自治区靖西县
371Ⅷ—21 藏族邦典、卡垫织造技艺 西藏自治区山南地区、日喀则地区
372Ⅷ—22 加牙藏族织毯技艺 青海省湟中县
373Ⅷ—23 维吾尔族花毡、印花布织染技艺 新疆维吾尔自治区吐鲁番地区
374Ⅷ—24 南通蓝印花布印染技艺 江苏省南通市
375Ⅷ—25 苗族蜡染技艺 贵州省丹寨县
376Ⅷ—26 白族扎染技艺 云南省大理市
377Ⅷ—27 香山帮传统建筑营造技艺 江苏省苏州市
378Ⅷ—28 客家土楼营造技艺 福建省龙岩市
379Ⅷ—29 景德镇传统瓷窑作坊营造技艺 江西省
380Ⅷ—30 侗族木构建筑营造技艺 广西壮族自治区柳州市、三江侗族自治县
381Ⅷ—31 苗寨吊脚楼营造技艺 贵州省雷山县
382Ⅷ—32 苏州御窑金砖制作技艺 江苏省苏州市
383Ⅷ—33 苗族芦笙制作技艺 贵州省雷山县 云南省大关县
384Ⅷ—34 玉屏箫笛制作技艺 贵州省玉屏侗族自治县
385Ⅷ—35 阳城生铁冶铸技艺 山西省阳城县
386Ⅷ—36 南京金箔锻制技艺 江苏省南京市
<< 上一页 [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)
%> |
用户登录 
新用户注册 