日历

<< 2008-5 >>

Sun

Mon

Tue

Wed

Thu

Fri

Sat

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

站点统计

  • 文章总数:744
  • 评论总数:64
  • 引用总数:0
  • 浏览总数:45220
  • 留言总数:10
  • 当前样式:orange
  • 当前语言:zh-CN

友情链接

图标汇集

  • 订阅本站的 ATOM 1.0 新闻聚合
  • 订阅本站的 RSS 2.0 新闻聚合
  • Directory of General Blogs
  • #本站部分信息源自网络,如果任何人对有关内容或资料的版权有异议,请及时通知我们,我们将尽快采取相应措施。 <% ' ******************************************************************** ' Paste this block of code on your web page where you would like text ' links to be displayed. This code will dynamically add and remove text ' links on your web page according to your BackLinks.com settings. ' ******************************************************************** Dim BLKey Dim OpenInNewWindow Dim PostingString Dim ErrorString Dim ResultString Dim LinkUrl ' The following variable defines whether links are opened in a new window ' (1 = Yes, 0 = No) OpenInNewWindow = 1 ' ******************************************************************* ' please do not modify any of the code below ' ******************************************************************* BLKey = "53SQ-M9CQ-4THQ" ' # The following variable is sent to the BackLinks server in order to ' # generate working links on your page: If Request.ServerVariables("HTTPS") = "on" Then LinkUrl="https://" Else LinkUrl="http://" End If If Request.ServerVariables("REQUEST_URI") Then LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI") Else LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO") If Request.ServerVariables("QUERY_STRING") <> "" Then LinkUrl = LinkUrl & "?" & Request.ServerVariables("QUERY_STRING") End If End If LinkUrl = server.URLencode(LinkUrl) ' # Generate the data to post to the BackLinks.com server PostingString = "&Key=" & BLKey PostingString = PostingString & "&OpenInNewWindow=" & OpenInNewWindow & "&LinkUrl=" & LinkUrl Function GetBackLinksData(HTTPQuery, ByRef Resp, ByRef Er) Dim HttpReqObj Set HttpReqObj = Nothing On Error Resume Next Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If On Error Resume Next If HttpReqObj Is Nothing Then On Error Resume Next Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") End If On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Microsoft.XMLHTTP") End If On Error Resume Next If HttpReqObj Is Nothing Then Er = "HTTP requests not supported." GetBackLinksData = False Else HttpReqObj.open "GET", "http://www.backlinks.com/engine.php?" & HTTPQuery, false HttpReqObj.Send If HttpReqObj.status <> 200 Then Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'" GetBackLinksData = False Else Resp = HttpReqObj.responseText GetBackLinksData = True End If Set HttpReqObj = Nothing End If Else HttpReqObj.Open "GET", "http://www.backlinks.com/engine.php?" & HTTPQuery, False HttpReqObj.Send If HttpReqObj.Status <> 200 Then Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText GetBackLinksData = False Else Resp = HttpReqObj.responseText GetBackLinksData = True End If End If End Function If GetBackLinksData(PostingString, ResultString, ErrorString) Then Response.Write ResultString Else Response.Write ErrorString End If ' FINSIHED BackLinks.COM SCRIPT BLOCK %>
  四川受灾严重的7个县目前的情况是,全部取得了联系,其中,理县、青川县光缆恢复,民众通信正常,北川县开进了应急通信车,可以有6000门的电话供指挥使用,汶川县,黑水县,平武县,茂县,目前只能是还是卫星电话。  查看全文 | 发表评论
Tags:
  作为全世界自然灾害最严重的国家之一,我们在灾害信息公开上曾走过弯路,曾经有人认为,在一些特殊的情形或条件下,如战争、疾病或地震、洪水等重大灾难时,公开信息可能会危及到公共利益。  查看全文 | 发表评论
Tags: life  
被救孩子的少先队礼,时间片刻停住  查看全文 | 发表评论
Tags: life  
凭着一腔热血,越来越多的成都志愿者自发组织前往都江堰和德阳等重灾区进行抗灾救灾。然而良好的愿望并非都能受到良好的效果。   查看全文 | 发表评论
Tags: life  
警方就此提醒,灾区群众可以得到政府统一组织的无偿救援、安置。市民捐款务必从正规媒体获取捐助渠道信息;对通过短信、网络渠道获取的信息,须先向相关机构咨询、求证,区分真伪,以免上当。  查看全文 | 发表评论
Tags: life  
希望大家平心对待捐款的多少,不要把这个当成拼比面子的舞台,真心的为地震灾区的人做点实事。  查看全文 | 发表评论
Tags: star  
  昨日(5月14日)本山传媒集团董事长赵本山召开公司全体大会,号召大家为四川地震灾区捐款。赵本山个人捐款100万元,他的弟子王小利夫妇、小沈阳夫妇、唐鉴军夫妇、王小虎夫妇、张小飞夫妇、闫光明夫妇各捐款2万元,总计捐款122万余元。  查看全文 | 发表评论
Tags: star  
  对于刚刚发生的地震,孙俪和邓超都表示完全被吓蒙了,当时一度没有联系上后来短信互相问候了一下,之后就被现场的画面给震撼了。孙俪回忆到,当时我在家里吃西瓜,家里的狗从中午开始就很狂燥,两只狗还一直在打架,我当时还在想怎么这么奇怪,后来听说地震了,就一直看新闻关注最新情况心理特别难过。  查看全文 | 发表评论
Tags: star  
  让我们一同为灾区的同胞祈祷,祈祷他们能够平安度过此次危机,祈祷被困同胞能够早日脱险,祈祷这场灾难能够早日结束。   查看全文 | 发表评论
Tags: star  
  开场郭峰携百名群星、童声唱响《让世界充满爱》感动全场。殷秀梅、蔡国庆唱响义演主题曲《凝聚每份爱》,李谷一、韦唯、田震、任贤齐、李宇春、何洁、华谊群星等先后登台义演。文/小浪  查看全文 | 发表评论
Tags: star  

时尚,优雅美丽的妆容搭配充满阳刚气息的配饰: 以配饰点缀出华丽是时尚点。

营造罗曼蒂克 夏日浪漫配饰

仲夏夜派对 俏配饰相竞艳

时尚新注目!初夏百搭肩背包

经典回顾: Moby《play》音乐奇才绝佳之作

经典回顾: Moby《play》音乐奇才绝佳之作

经典回顾: Moby《play》音乐奇才绝佳之作

明星殿堂:依靠自己努力制胜而成功 的人都是明星

欲望师奶-温翠苹写真 真空湿身露曲线

杰西卡·贝尔迷倒贾斯汀 17岁裸照被曝光

张含韵效仿日本AV女优拍性感照-恶搞

网络红人小龙女彤彤沐浴写真 半裸博出位

组图:“神仙姐姐”的少女情思 刘亦菲性感写真

舒淇展示裸体彩绘艺术 高雅诱惑性感撩人

面对中国出现的通货紧缩和经济增长乏力:出路是进一步改革,是开放社会舆论,让穷人说话,若单纯地就经济论经济,是找不到中国的出路的。

中国十大暴利产品

你的另一半必须知道的一些理财问题

一千元的智慧--避开人生道路上的陷阱

香港自助游详细攻略:一个充满奇迹和神话的城市,一个令人无比激动的城市——香港

感受东方之珠——香港

香港自助游功略

美味的香港—海鲜、早茶及其他

西藏游记、攻略、摄影

最近整理西藏的照片,快可以放出来了

西藏,一块孤独的石头从满整个天空,没有任何夜晚能使我沉睡,没有任何黎明能使我醒来——海子
Text Link Advertising