|
作者：佚名 来源：中国秦腔网 时间：2006-6-2 3:45:57 |
|
319Ⅶ—20 粤绣 广东省广州市、潮州市 (广绣、潮绣)
320Ⅶ—21 蜀绣四川省成都市
321Ⅶ—22 苗绣 贵州省雷山县、贵阳市、剑河县
(雷山苗绣、花溪苗绣、剑河苗绣)
322Ⅶ—23 水族马尾绣 贵州省三都水族自治县
323Ⅶ—24 土族盘绣 青海省互助土族自治县
324Ⅶ—25 挑花 湖北省黄梅县
(黄梅挑花、花瑶挑花) 湖南省隆回县
325Ⅶ—26 庆阳香包绣制 甘肃省庆阳市
326Ⅶ—27 象牙雕刻 北京市崇文区 广东省广州市
327Ⅶ—28 扬州玉雕 江苏省扬州市
328Ⅶ—29 岫岩玉雕 辽宁省岫岩满族自治县
329Ⅶ—30 阜新玛瑙雕 辽宁省阜新市
330Ⅶ—31 夜光杯雕 甘肃省酒泉市
331Ⅶ—32 金石篆刻 浙江省杭州市西泠印社 (西泠印社)
332Ⅶ—33 青田石雕 浙江省青田县
333Ⅶ—34 曲阳石雕 河北省曲阳县
334Ⅶ—35 寿山石雕 福建省福州市
335Ⅶ—36 惠安石雕 福建省惠安县
336Ⅶ—37 徽州三雕 安徽省黄山市
(婺源三雕) 江西省婺源县
337Ⅶ—38 临夏砖雕 甘肃省临夏县
338Ⅶ—39 藏族格萨尔彩绘石刻 四川省色达县
339Ⅶ—40 潮州木雕 广东省潮州市
340Ⅶ—41 宁波朱金漆木雕 浙江省宁波市
341Ⅶ—42 乐清黄杨木雕 浙江省乐清市
342Ⅶ—43 东阳木雕 浙江省东阳市
<< 上一页 [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)
%> |
用户登录 
新用户注册 
