|
作者:佚名 来源:中国秦腔网 时间:2006-6-2 3:45:57 |
|
178Ⅳ—34 巴陵戏 湖南省岳阳市
179Ⅳ—35 荆河戏 湖南省澧县
180Ⅳ—36 粤剧 广东省文化厅
香港特别行政区民政事务局
澳门特别行政区文化局
广东省广州市、佛山市
181Ⅳ—37 桂剧 广西壮族自治区
182Ⅳ—38 宜黄戏 江西省宜黄县
183Ⅳ—39 乱弹 浙江省台州市、浦江县
184Ⅳ—40 石家庄丝弦 河北省石家庄市
185Ⅳ—41 雁北耍孩儿 山西省大同市
186Ⅳ—42 灵丘罗罗腔 山西省灵丘县
187Ⅳ—43 柳子戏 山东省
188Ⅳ—44 大弦戏 河南省滑县、濮阳县
189Ⅳ—45 闽剧 福建省福州市
190Ⅳ—46 寿宁北路戏 福建省寿宁县
191Ⅳ—47 西秦戏 广东省海丰县
192Ⅳ—48 高甲戏 福建省泉州市、厦门市
193Ⅳ—49 碗碗腔 (孝义碗碗腔) 山西省孝义市
194Ⅳ—50 四平调 河南省商丘市、濮阳市
195Ⅳ—51 评剧 天津市宝坻区 河北省滦南县 辽宁省沈阳市
196Ⅳ—52 武安平调落子 河北省武安市
197Ⅳ—53 越剧 浙江省 上海市
198Ⅳ—54 沪剧 上海市
199Ⅳ—55 苏剧 江苏省苏州市
200Ⅳ—56 扬剧 江苏省扬州市
201Ⅳ—57 庐剧 安徽省合肥市、六安市
202Ⅳ—58 楚剧 湖北省
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
<%
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)
%> |