| ·[图文] 小鹿纯子重现荧屏 《排球女将》勾起一代人回忆 |
2008-06-12 |
0 |
|
| · 安徽卫视被指抄袭美国真人秀 |
2008-06-12 |
0 |
|
| · 公益短片《2008分之1》DVD收入将捐灾区 |
2008-06-12 |
0 |
|
| · 新造型首曝光 沙溢饰演赵子龙 |
2008-06-11 |
0 |
|
| · 吴宇森称对伤亡者负责到底 |
2008-06-11 |
0 |
|
| · 新人唐一菲新出演秦可卿 |
2008-06-11 |
0 |
|
| ·[图文] 导演迪诺·里西去世 享年91岁 |
2008-06-10 |
0 |
|
| ·[图文] 遭电影公司同名抢拍 王家卫怒指其抄袭 |
2008-06-10 |
0 |
|
| ·[图文] 史诗片伦敦热拍 周润发长衫马褂亮相 |
2008-06-10 |
0 |
|
| · 莎朗斯通再次公开道歉：犯了错误 无比后悔 |
2008-06-06 |
0 |
|
| · 陈冲霍建起加入11届上海电影节评委会名单 |
2008-06-06 |
0 |
|
| · 电视连续剧开拍 演绎晋商传奇 |
2008-06-06 |
0 |
|
| · 皮尔斯·布鲁斯南有望亮相上海国际电影节 |
2008-06-05 |
0 |
|
| ·[图文] 华裔影星陈冲30年后再演小花 |
2008-06-05 |
0 |
|
| · 少儿频道播女性用品广告 央视称合法 |
2008-06-05 |
0 |
|
| · 《滇西1944》一场记触电身亡 家属获赔50万 |
2008-06-04 |
0 |
|
| · 《变形金刚2》开场戏在中国城开打 |
2008-06-04 |
0 |
|
| · 韩雪不会反串宝玉 坦言更希望演宝钗 |
2008-06-04 |
0 |
|
| · 仅获白玉兰奖最佳连续剧提名 |
2008-06-04 |
0 |
|
| · 莎朗-斯通发表道歉声明辩称“那是出于口误” |
2008-06-03 |
0 |
|
| ·[图文] 好莱坞影城大火烧了一天 火场就像灾难片 |
2008-06-03 |
0 |
|
| · 纪实性电视剧《震撼世界的七日》将在汶川开机 |
2008-06-03 |
0 |
|
| ·[图文] 《越狱》第四季8月开播 |
2008-06-02 |
0 |
|
| · 《家有儿女5》演员大换血 宋丹丹功成身退 |
2008-06-02 |
0 |
|
| · 出尔反尔 莎朗-斯通一变再变！ |
2008-06-02 |
0 |
|
| · 王家卫接任上海电影节主席 |
2008-05-30 |
0 |
|
| · 海外媒体称迪奥考虑放弃莎朗斯通 |
2008-05-30 |
0 |
|
| · 首部抗震剧20天完成 |
2008-05-29 |
0 |
|
| · 莎朗·斯通致歉 网民拒绝道歉不原谅 |
2008-05-29 |
0 |
|
| · 张纪中:9月开拍 演员正在选拔 |
2008-05-29 |
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） 结束 ---------''''
%>
