|
作者：佚名 来源：中国秦腔网 时间：2006-6-2 3:45:57 |
|
203Ⅳ—59 荆州花鼓戏 湖北省潜江市
204Ⅳ—60 黄梅戏 安徽省安庆市 湖北省黄梅县
205Ⅳ—61 商洛花鼓 陕西省商洛市
206Ⅳ—62 泗州戏 安徽省宿州市、蚌埠市
207Ⅳ—63 柳琴戏 山东省枣庄市
208Ⅳ—64 歌仔戏 福建省漳州市、厦门市
209Ⅳ—65 采茶戏 江西省赣州市
(赣南采茶戏、桂南采茶戏) 广西壮族自治区博白县
210Ⅳ—66 五音戏 山东省淄博市
211Ⅳ—67 茂腔 山东省高密市、胶州市
212Ⅳ—68 曲剧 河南省
213Ⅳ—69 曲子戏 甘肃省敦煌市、华亭县
(敦煌曲子戏、华亭曲子戏)
214Ⅳ—70 秧歌戏 河北省隆尧县、定州市
(隆尧秧歌戏、定州秧歌戏、朔州 山西省朔州市、繁峙县
秧歌戏、繁峙秧歌戏)
215Ⅳ—71 道情戏 山西省右玉县、临县
(晋北道情戏、临县道情戏、太康道 河南省太康县
情戏、蓝关戏、陇剧) 山东省莱州市 甘肃省
216Ⅳ—72 哈哈腔 河北省清苑县、青县
217Ⅳ—73 二人台 内蒙古自治区呼和浩特市 山西省河曲县 河北省康保县
218Ⅳ—74 白字戏 广东省海丰县
219Ⅳ—75 花朝戏 广东省紫金县
220Ⅳ—76 彩调 广西壮族自治区
221Ⅳ—77 灯戏 重庆市梁平县
(梁山灯戏、川北灯戏) 四川省南充市
222Ⅳ—78 花灯戏 贵州省思南县
<< 上一页 [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)
%> |
用户登录 
新用户注册 
