|
作者：中国秦腔网 来源：中国秦腔网 时间：2008-7-24 8:36:24 |
|
陕西省首届农民戏剧节分会场演出活动日程安排
（时间：2008年7月—9月）
主办单位：中共陕西省委宣传部 陕西省文学艺术界联合会 陕西省文化厅 陕西省农业厅 陕西省戏剧家协
承办单位：陕西省戏剧家协会
组委会地址：陕西省戏剧家协会（西安市东木头市200号）
电话：（029）87259625 ；（029）87210330（传真） 邮箱：limy369@126.com
独家网络支持：中国秦腔网(www.qinqiang.com)
西安市（9个）
长安区分会场（4台）
承办单位：长安区文体广电局
演出时间：7月18日-19日晚
演出地点：长安广场（2台）
引镇（8月25日晚）
子午镇（8月26日晚）
周至县分会场（3台）
承办单位：周至县文体局
演出时间：8月16-17日晚
演出地点：云塔广场
户县分会场 （2台）
承办单位：户县文体广电局
演出地点：户县大王镇
演出时间 ：8月16-17日晚
高陵县分会场
承办单位：高陵县文体广播局
演出时间：8月19日晚
演出地点：县体育场
雁塔区分会场（2台）
承办单位：雁塔区文体局
演出时间：8月21日-22日
演出地点：金滹沱村
灞桥区分会场
承办单位：灞桥区文体局
演出时间：8月25日晚
演出地点：席王街办东李村
未央区分会场
承办单位：未央区文体旅游局
演出时间：8月20日晚
演出地点：未央宫东张村
临潼区分会场（2台）
承办单位：临潼区文化广电局
演出时间：8月20-26日晚
演出地点：任留镇
陕鼓社区
阎良区分会场
承办单位：阎良区文体广电局
演出时间：8月19日晚
演出地点：千禧广场
相关评论>>>陕西省首届农民戏剧节
[1] [2] [3] [4] [5] [6] [7] 下一页
<%
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)
%> |
用户登录 
新用户注册 
