|
作者：佚名 来源：中国秦腔网 时间：2006-6-2 3:45:57 |
|
陕西省渭南市、华阴市、富平县、乾县 甘肃省环县 辽宁省凌源市
236Ⅳ—92 木偶戏 福建省泉州市、晋江市、漳州市
(泉州提线木偶戏、晋江布袋木偶戏、 辽宁省锦州市
漳州布袋木偶戏、辽西木偶戏、邵阳 湖南省邵阳县
布袋戏、高州木偶戏、潮州铁枝木偶 广东省高州市、潮州市
戏、临高人偶戏、川北大木偶戏、石 海南省临高县
阡木偶戏、郃阳提线木偶戏、泰顺药 四川省
发木偶戏) 贵州省石阡县 陕西省 浙江省泰顺县
五、曲艺(共计46项)
序号编号 项目名称 申报地区或单位
237Ⅴ—1苏州评弹 江苏省苏州市
(苏州评话、苏州弹词)
238Ⅴ—2扬州评话 江苏省扬州市
239Ⅴ—3福州评话 福建省福州市
240Ⅴ—4山东大鼓 山东省
241Ⅴ—5西河大鼓 河北省河间市
242Ⅴ—6东北大鼓 辽宁省沈阳市 黑龙江省
243Ⅴ—7 木板大鼓 河北省沧县
244Ⅴ—8 乐亭大鼓 河北省乐亭县
245Ⅴ—9 潞安大鼓 山西省长治市
246Ⅴ—10 京东大鼓 天津市宝坻区
247Ⅴ—11 胶东大鼓 山东省烟台市
248Ⅴ—12 河洛大鼓 河南省洛阳市
249Ⅴ—13 温州鼓词 浙江省瑞安市
250Ⅴ—14 陕北说书 陕西省延安市
<< 上一页 [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)
%> |
用户登录 
新用户注册 