|
作者：佚名 来源：中国秦腔网 时间：2006-6-2 3:45:57 |
|
安徽省岳西县 湖南省辰溪县、泸溪县、常德市
152Ⅳ—8新昌调腔 浙江省新昌县
153Ⅳ—9宁海平调 浙江省宁海县
154Ⅳ—10 永安大腔戏 福建省永安市
155Ⅳ—11 四平戏 福建省屏南县、政和县
156Ⅳ—12 川剧 四川省 重庆市
157Ⅳ—13 湘剧 湖南省衡阳市
158Ⅳ—14 广昌孟戏 江西省广昌县
159Ⅳ—15 正字戏 广东省陆丰市
160Ⅳ—16 秦腔 陕西省
161Ⅳ—17 汉调桄桄 陕西省汉中市
162Ⅳ—18 晋剧 山西省
163Ⅳ—19 蒲州梆子 山西省临汾市、运城市
164Ⅳ—20 北路梆子 山西省忻州市
165Ⅳ—21 上党梆子 山西省晋城市
166Ⅳ—22 河北梆子 河北省
167Ⅳ—23 豫剧 河南省
168Ⅳ—24 宛梆 河南省内乡县
169Ⅳ—25 怀梆 河南省沁阳市
170Ⅳ—26 大平调 河南省濮阳县、滑县、延津县
171Ⅳ—27 越调 河南省周口市
172Ⅳ—28 京剧 中国京剧院
北京市 天津市 辽宁省 山东省 上海市
173Ⅳ—29 徽剧 安徽省、黄山市 江西省婺源县
174Ⅳ—30 汉剧 湖北省武汉市
175Ⅳ—31 汉调二簧 陕西省安康市
176Ⅳ—32 泰宁梅林戏 福建省泰宁县
177Ⅳ—33 闽西汉剧 福建省龙岩市
上一页 [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)
%> |
用户登录 
新用户注册 
