|
作者:佚名 来源:中国秦腔网 时间:2006-6-2 3:45:57 |
|
>251Ⅴ—15 福州伬艺 福建省福州市
252Ⅴ—16 南平南词 福建省南平市
253Ⅴ—17 绍兴平湖调 浙江省绍兴市
254Ⅴ—18 兰溪摊簧 浙江省兰溪市
255Ⅴ—19 贤孝 甘肃省武威市、临夏市
(凉州贤孝、河州贤孝)
256Ⅴ—20 河南坠子 河南省
257Ⅴ—21 山东琴书 山东省
258Ⅴ—22 锣鼓书 上海市南汇区
259Ⅴ—23 绍兴莲花落 浙江省绍兴县
260Ⅴ—24 兰州鼓子 甘肃省兰州市
261Ⅴ—25 扬州清曲 江苏省扬州市
262Ⅴ—26 锦歌 福建省漳州市
263Ⅴ—27 常德丝弦 湖南省常德市
264Ⅴ—28 榆林小曲 陕西省榆林市
265Ⅴ—29 天津时调 天津市
266Ⅴ—30 新疆曲子 新疆维吾尔自治区昌吉回族自治州
267Ⅴ—31 龙舟说唱 广东省佛山市顺德区
268Ⅴ—32 鼓盆歌 湖北省荆州市
269Ⅴ—33 汉川善书 湖北省汉川市
270Ⅴ—34 歌册 福建省东山县 (东山歌册)
271Ⅴ—35 东北二人转 辽宁省黑山县、铁岭市 吉林省 黑龙江省海伦市
272Ⅴ—36 凤阳花鼓 安徽省凤阳县
273Ⅴ—37 答嘴鼓 福建省厦门市
274Ⅴ—38 小热昏 浙江省杭州市
275Ⅴ—39 山东快书 山东省
276Ⅴ—40 乌力格尔 内蒙古自治区扎鲁特旗、科尔沁右翼中旗
辽宁省阜新蒙古族自治县
<< 上一页 [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)
%> |