|
作者：佚名 来源：中国秦腔网 时间：2006-6-2 3:45:57 |
|
11Ⅰ—11济公传说 浙江省天台县
12Ⅰ—12满族说部 吉林省
13 Ⅰ—13河西宝卷 甘肃省武威市凉州区、酒泉市肃州区
14 Ⅰ—14耿村民间故事 河北省藁城市
15 Ⅰ—15伍家沟民间故事 湖北省丹江口市
16 Ⅰ—16下堡坪民间故事 湖北省宜昌市夷陵区
17 Ⅰ—17走马镇民间故事 重庆市九龙坡区
18 Ⅰ—18古渔雁民间故事 辽宁省大洼县
19 Ⅰ—19喀左东蒙民间故事 辽宁省喀喇沁左翼蒙古族自治县
20 Ⅰ—20谭振山民间故事 辽宁省新民市
21 Ⅰ—21河间歌诗 河北省河间市
22 Ⅰ—22吴歌 江苏省苏州市
23 Ⅰ—23刘三姐歌谣广西壮族自治区宜州市
24 Ⅰ—24四季生产调云南省红河哈尼族彝族自治州
25 Ⅰ—25玛纳斯 新疆维吾尔自治区克孜勒苏柯尔克孜 自治州、新疆维吾尔自治区文联民间 文艺家协会
26 Ⅰ—26江格尔 新疆维吾尔自治区和布克赛尔蒙古自 治县、博尔塔拉蒙古自治州、巴音郭 楞蒙古自治州、新疆维吾尔自治区文 联民间文艺家协会
27 Ⅰ—27格萨(斯)尔 西藏自治区
青海省
甘肃省
四川省
云南省
内蒙古自治区
新疆维吾尔自治区
中国社会科学院《格萨(斯)尔》办公室
28 Ⅰ—28阿诗玛 云南省石林彝族自治县
29 Ⅰ—29拉仁布与吉门索青海省互助土族自治县
30 Ⅰ—30畲族小说歌福建省霞浦县
上一页 [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)
%> |
用户登录 
新用户注册 
