|
(潍坊风筝、南通板鹞风筝、拉萨 江苏省南通市
风筝) 西藏自治区拉萨市
439Ⅷ—89 凉茶 广东省文化厅
香港特别行政区民政事务局
澳门特别行政区文化局
九、传统医药(共计9项)
序号编号 项目名称 申报地区或单位
440Ⅸ—1中医生命与疾病认知方法 中国中医科学院
441Ⅸ—2中医诊法 中国中医科学院
442Ⅸ—3中药炮制技术 中国中医科学院 中国中药协会
443Ⅸ—4中医传统制剂方法 中国中医科学院 中国中药协会
444Ⅸ—5针灸 中国中医科学院 中国针灸学会
445Ⅸ—6中医正骨疗法 中国中医科学院
446Ⅸ—7同仁堂中医药文化 中国北京同仁堂(集团)有限责任公司
447Ⅸ—8胡庆余堂中药文化 浙江省杭州市
448Ⅸ—9藏医药 西藏自治区
(拉萨北派藏医水银洗炼法和藏药仁 四川省甘孜藏族自治州
青常觉配伍技艺、甘孜州南派藏医药)
十、民俗(共计70项)
序号编号 项目名称 申报地区或单位
449Ⅸ—1春节 文化部
450Ⅸ—2清明节 文化部
451Ⅸ—3端午节 文化部
(屈原故里端午习俗、西塞神舟会、汨罗江畔端午习俗、苏州端午习俗)
湖北省宜昌市、秭归县、黄石市 湖南省汨罗市 江苏省苏州市
452Ⅸ—4七夕节 文化部
453Ⅸ—5中秋节 文化部
<< 上一页 [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)
%> |