| ·[图文] 赵丽华拒绝领奖抗议高考作文为诗歌设禁 |
2008-06-12 |
0 |
|
| ·[图文] 于丹地震棚里讲语文课 |
2008-06-12 |
0 |
|
| · 余秋雨被指捏造观点 学者博客观点遭质疑 |
2008-06-11 |
0 |
|
| · 孔庙和国子监文化遗产日正式开放 |
2008-06-11 |
0 |
|
| · 灾后重建将对少数民族特色建筑物实施原址保护 |
2008-06-10 |
0 |
|
| · 少林寺网站发帖邀精英“辩禅” |
2008-06-10 |
0 |
|
| · 75％公众认为端午祭屈原缘于中华民族推崇君子人格 |
2008-06-06 |
0 |
|
| · 郑渊洁出版自救童话 教育孩子安全自救 |
2008-06-06 |
0 |
|
| · 韩寒谈护莎：不要动不动就举国暴怒 |
2008-06-05 |
0 |
|
| · “地震诗抄”让诗歌重回民间 |
2008-06-05 |
0 |
|
| · 阎崇年新书五个视角讲述康熙生平 |
2008-06-05 |
0 |
|
| · 余秋雨重出 删掉受争议文字 |
2008-06-04 |
0 |
|
| · 童话大王郑渊洁60万元书款捐灾区 |
2008-06-04 |
0 |
|
| · 白先勇携青春版昆曲赴伦敦 |
2008-06-03 |
0 |
|
| · 网民：韩寒的做法令中国人寒心 |
2008-06-03 |
0 |
|
| · 韩寒发博挺莎朗斯通 称因果论惹众怒错在媒体 |
2008-06-02 |
0 |
|
| ·[图文] 民间文艺界发起保护羌族文化遗产紧急行动 |
2008-06-02 |
0 |
|
| · 罗琳再写800字《哈利波特》小前传 |
2008-06-02 |
0 |
|
| · “中国文化产业品牌榜”发布 |
2008-05-30 |
0 |
|
| · 绵阳文物武装押运至三星堆 |
2008-05-30 |
0 |
|
| · 专家称都江堰不会失去世界文化遗产名号 |
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-23 |
0 |
|
| · 韩寒黄健翔李承鹏各捐20万元灾区建希望小学 |
2008-05-23 |
0 |
|
| ·[图文] 4千年古寨云朵上的街市萝卜寨消逝 |
2008-05-22 |
0 |
|
| · 文学诺奖得主帕慕克将捐赠来华签售款项 |
2008-05-22 |
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） 结束 ---------''''
%>
