|
作者：佚名 来源：中国秦腔网 时间：2006-6-2 3:45:57 |
|
505Ⅸ—57 撒拉族婚礼 青海省循化撒拉族自治县
506Ⅸ—58 马街书会 河南省宝丰县
507Ⅸ—59 胡集书会 山东省惠民县
508Ⅸ—60 安国药市 河北省安国市
509Ⅸ—61 壮族铜鼓习俗 广西壮族自治区河池市
510Ⅸ—62 楹联习俗 中国楹联学会
511Ⅸ—63 苏州甪直水乡妇女服饰 江苏省苏州市
512Ⅸ—64 惠安女服饰 福建省惠安县
513Ⅸ—65 苗族服饰 云南省保山市 (昌宁苗族服饰)
514Ⅸ—66 回族服饰 宁夏回族自治区
515Ⅸ—67 瑶族服饰 广西壮族自治区南丹县、贺州市
516Ⅸ—68 农历二十四节气 中国农业博物馆
517Ⅸ—69 女书习俗 湖南省江永县
518Ⅸ—70 水书习俗 贵州省黔南苗族布依族自治州 << 上一页 [21] [22] [23] [24] [25]
<%
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)
%> |
用户登录 
新用户注册 