| · 张学友唱自己的歌咋侵权了？ |
2008-06-11 |
0 |
|
| · 别在伤口上撒盐 忧思震灾影视风！ |
2008-06-03 |
0 |
|
| · 捐款明星不应被称“铁公鸡” |
2008-05-28 |
0 |
|
| ·[图文] 播报灾情名嘴哽咽 此时流泪也是一种坚强 |
2008-05-23 |
0 |
|
| · “天王级”娱乐名人，你们还不如一个农民！ |
2008-05-21 |
0 |
|
| · 中国群众演员生存调查 谁来保护跑龙套的？ |
2008-04-28 |
0 |
|
| ·[图文] 四问导演吴宇森 全面揭秘新作《赤壁》 |
2008-04-24 |
0 |
|
| · 胡玫导演：俺反对女星反串宝玉！ |
2008-04-21 |
0 |
|
| ·[图文] 青歌赛热闹背后的隐忧 |
2008-04-11 |
0 |
|
| · 央视青歌赛是艺术化,还是技术化? |
2008-04-01 |
0 |
|
| · 内地票房大热奥斯卡颗粒无收 何以内热外冷？ |
2008-03-04 |
0 |
|
| · 揭示当前影视圈的怪现状:中国电视剧高产与高难 |
2008-03-03 |
0 |
|
| ·[图文] 别把“新红楼”弄成“烂尾楼” |
2008-02-29 |
0 |
|
| · 中国版仍是意大利歌剧 |
2008-02-27 |
0 |
|
| · 获奖片能否左右国内票房 |
2008-02-20 |
0 |
|
| · 别让春晚流行语成了话语暴力 |
2008-02-19 |
0 |
|
| · “照片门”集体窥私后的反思 |
2008-02-14 |
0 |
|
| · 春晚不好看 为什么呢？ |
2008-02-13 |
0 |
|
| · 网民支持 批警方偏袒 学者:网络暴力严重 |
2008-02-01 |
0 |
|
| · 韩剧遭遇寒流给国产电视剧带来思考 |
2008-01-17 |
0 |
|
| · 名导吸毒 媒体:别只顾着棒喝张元！ |
2008-01-11 |
0 |
|
| · “违规参赛”怎么成了文艺片的救命稻草 |
2008-01-09 |
0 |
|
| · 《集结号》，大片吹来新风 |
2008-01-07 |
0 |
|
| · 专家疾呼：“小品代表不了东北文化的全部” |
2008-01-03 |
0 |
|
| · 2007年文娱事件大盘点：被遗忘和被怀念的 |
2008-01-02 |
0 |
|
| · 《集结号》上新闻联播，且慢拍砖 |
2007-12-27 |
0 |
|
| · 停跳：“选秀”由盛变衰 |
2007-12-19 |
0 |
|
| · 最后一块摇滚之地霍营拆除 摇滚精神散场？ |
2007-12-13 |
0 |
|
| · “忽悠”十多年 春晚离不开赵本山？ |
2007-12-06 |
0 |
|
| · 我们的曲艺怎么了 |
2007-12-03 |
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） 结束 ---------''''
%>
