|
413Ⅷ—63 武夷岩茶(大红袍)制作技艺 福建省武夷山市
414Ⅷ—64 自贡井盐深钻汲制技艺 四川省自贡市、大英县
415Ⅷ—65 宣纸制作技艺 安徽省泾县
416Ⅷ—66 铅山连四纸制作技艺 江西省铅山县
417Ⅷ—67 皮纸制作技艺 贵州省贵阳市、贞丰县、丹寨县
418Ⅷ—68 傣族、纳西族手工造纸技艺 云南省临沧市、香格里拉县
419Ⅷ—69 藏族造纸技艺 西藏自治区
420Ⅷ—70 维吾尔族桑皮纸制作技艺 新疆维吾尔自治区吐鲁番地区
421Ⅷ—71 竹纸制作技艺 四川省夹江县 浙江省富阳市
422Ⅷ—72 湖笔制作技艺 浙江省湖州市
423Ⅷ—73 徽墨制作技艺 安徽省绩溪县、歙县、黄山市屯溪区
424Ⅷ—74 歙砚制作技艺 安徽省歙县 江西省婺源县
425Ⅷ—75 端砚制作技艺 广东省肇庆市
426Ⅷ—76 金星砚制作技艺 江西省星子县
427Ⅷ—77 木版水印技艺 北京市荣宝斋
428Ⅷ—78 雕版印刷技艺 江苏省扬州市
429Ⅷ—79 金陵刻经印刷技艺 江苏省南京市
430Ⅷ—80 德格印经院藏族雕版印刷技艺 四川省德格县
431Ⅷ—81 制扇技艺 江苏省苏州市
432Ⅷ—82 剧装戏具制作技艺 江苏省苏州市
433Ⅷ—83 桦树皮制作技艺 内蒙古自治区鄂伦春自治旗 黑龙江省
434Ⅷ—84 黎族树皮布制作技艺 海南省保亭黎族苗族自治县
435Ⅷ—85 赫哲族鱼皮制作技艺 黑龙江省
436Ⅷ—86 浏阳花炮制作技艺 湖南省浏阳市
437Ⅷ—87 黎族钻木取火技艺 海南省保亭黎族苗族自治县
438Ⅷ—88 风筝制作技艺 山东省潍坊市
<< 上一页 [21] [22] [23] [24] [25] 下一页
<%
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)
%> |
用户登录 
新用户注册 
