|
387Ⅷ—37 龙泉宝剑锻制技艺 浙江省龙泉市
388Ⅷ—38 张小泉剪刀锻制技艺 浙江省杭州市
389Ⅷ—39 芜湖铁画锻制技艺 安徽省芜湖市
390Ⅷ—40 苗族银饰锻制技艺 贵州省雷山县 湖南省凤凰县
391Ⅷ—41 阿昌族户撒刀锻制技艺 云南省陇川县
392Ⅷ—42 保安族腰刀锻制技艺 甘肃省积石山保安族东 乡族撒拉族自治县
393Ⅷ—43 景泰蓝制作技艺 北京市崇文区
394Ⅷ—44 聚元号弓箭制作技艺 北京市朝阳区
395Ⅷ—45 明式家具制作技艺 江苏省苏州市
396Ⅷ—46 蒙古族勒勒车制作技艺 内蒙古自治区东乌珠穆沁旗
397Ⅷ—47 拉萨甲米水磨坊制作技艺 西藏自治区
398Ⅷ—48 兰州黄河大水车制作技艺 甘肃省兰州市
399Ⅷ—49 万安罗盘制作技艺 安徽省休宁县
400Ⅷ—50 雕漆技艺 北京市崇文区
401Ⅷ—51 平遥推光漆器髹饰技艺 山西省平遥县
402Ⅷ—52 扬州漆器髹饰技艺 江苏省扬州市
403Ⅷ—53 天台山干漆夹苎技艺 浙江省天台县
404Ⅷ—54 福州脱胎漆器髹饰技艺 福建省福州市
405Ⅷ—55 厦门漆线雕技艺 福建省厦门市
406Ⅷ—56 成都漆艺 四川省成都市
407Ⅷ—57 茅台酒酿制技艺 贵州省
408Ⅷ—58 泸州老窖酒酿制技艺 四川省泸州市
409Ⅷ—59 杏花村汾酒酿制技艺 山西省汾阳市
410Ⅷ—60 绍兴黄酒酿制技艺 浙江省绍兴市
411Ⅷ—61 清徐老陈醋酿制技艺 山西省清徐县
412Ⅷ—62 镇江恒顺香醋酿制技艺 江苏省镇江市
<< 上一页 [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)
%> |
用户登录 
新用户注册 
