微软本周二首次公开展示了Windows 7，并表示将吸取Windows Vista的教训。微软还公布了Windows 7的版本计划，并向开发人员发布了一款预β测试版Windows 7。
微软Windows和Windows Live部门高级副总裁史蒂文·斯诺夫斯凯（Steven Sinofsky）表示，首款
金色草堂
宁可在尝试中失败 不愿在保守中成功
2008年10月29日
微软发布预测试版Windows 7
微软本周二首次公开展示了Windows 7，并表示将吸取Windows Vista的教训。微软还公布了Windows 7的版本计划，并向开发人员发布了一款预β测试版Windows 7。
微软Windows和Windows Live部门高级副总裁史蒂文·斯诺夫斯凯（Steven Sinofsky）表示，首款
Tags:
发布:Tony | 分类:互联网新闻 | 评论:0 | 引用:0 | 浏览:
2008年10月29日
"钉子户"小店坚守路中央
每天到武汉市汉阳区“市五”医院看病的有1400多人，都会看到这样一个奇特的景观——医院门口的马路中间，矗立着一幢破旧二层小屋，里面经营着副食。
记者调查得知，“市五”医院门前的显正路以前只有20米宽，私房、民房成片，“生命通道”长年被包围其中，汉阳区人大代表、政协委员多次呼吁打通“生命通道”。2004年开
Tags:
发布:Tony | 分类:娱乐新闻 | 评论:0 | 引用:0 | 浏览:
2008年10月10日
港媒爆张曼玉年底嫁德国小男友
44岁的张曼玉（Maggie）被爆将与37岁的国际建筑界奇才Ole Scheeren年底结婚，她这回趁着十一黄金周假期返港，被目击安排妈妈、姐姐与未来女婿碰面，其圈内密友透露这次碰面就是为年底婚事做初步讨论。
据香港《忽然1周》报道，一向勇于追求爱情的张曼玉，与Ole交往虽然只有1年，但她甘为情郎舍弃她最爱的
Tags:
发布:Tony | 分类:娱乐新闻 | 评论:0 | 引用:0 | 浏览:
2008年9月25日
孙悦见面会吸引50家媒体 中国魔术师苦练肌肉
北京时间9月25日凌晨，洛杉矶湖人队方向为新近加盟抵达洛杉矶的中国球员孙悦召开了一次媒体见面会，到场的有50多家媒体，其中超过30家媒体是来自亚洲的电视台和平面媒体记者。
在媒体见面会现场，孙悦先做了一番自我介绍，孙悦在做自我介绍的时候重点强调了自己是一名身高达6英尺9英寸的控卫，在谈到如何适应NBA这
Tags:
发布:Tony | 分类:体育新闻 | 评论:0 | 引用:0 | 浏览:
2008年9月24日
飞控中心第一现场：“万事俱备”
我们都知道，神舟七号载人航天飞行的执行一定离不开它的“神经中枢”，那就是北京航天飞行控制中心。
飞控中心历史：
飞控中心已经成为世界第三也是我国第一具有透明控制能力的现代化载人航天飞控中心。自1996年组建以来，该中心已圆满完成了神舟一号至神舟四号4次无人飞行以及神舟五号、六号两次载人航天飞行任务。在攀
Tags:
发布:Tony | 分类:国内新闻 | 评论:0 | 引用:0 | 浏览:
2008年9月22日
张卫健夫妻携手走出流产阴影
经历了不幸流产的张茜，和爱人张卫健昨天（21日）携手出现在《风尚志》两周年庆典活动现场。夫妇二人时而牵手温情对视，时而贴面悄悄私语，与此前的忧愁伤感大相径庭。
活动邀请到了张卫健、张茜、祁刚、宁静、立威廉等明星。活动接近尾声时，主持人电话连线未能到场的文章，得知他在陪护已经喜生贵子的妻子马伊俐。
Tags:
发布:Tony | 分类:娱乐新闻 | 评论:0 | 引用:0 | 浏览:
2008年9月19日
李嘉欣自曝炒股亏上亿 12月赶嫁只请50宾客
日前，香港媒体爆出李嘉欣与许晋亨已确定在今年12月举办小型婚礼，再去意大利度蜜月。而前晚以600万元行头出席首饰派对的李嘉欣，在被追问婚讯时笑逐颜开，并大卖关子说：“到时候大家会知道！”此外，她更自曝因为股市低迷，自己炒股输掉了上亿元身家。
秘密注册12月补办婚礼？
现年38岁的李嘉欣，自2006年被踢爆与许晋亨拍拖后，二人感情一日千里
Tags:
发布:Tony | 分类:娱乐新闻 | 评论:0 | 引用:0 | 浏览:
2008年9月19日
湖北公安侦破熊猫烧香病毒案荣立一等功
2006年12月，互联网上大规模爆发“熊猫烧香”病毒及其变种。我省公安机关对此高度重视，在全国率先立案，迅速抽调精干力量组成专案组，精心组织，周密部署，全力以赴开展案件侦破工作。
他们从调查互联网用户感染病毒情况入手，广泛搜集线索，深入调查取证，先后辗转山东、浙江、云南等地。经过两个多月的连续奋战，成功
Tags:
发布:Tony | 分类:国内新闻 | 评论:0 | 引用:0 | 浏览:
2008年9月17日
周星驰炒楼大卖 骑单车带操盘女友庆功
周星驰()(星爷)有“贤内助”于文凤操盘，投资有方，4年前他与菱电集团斥资3.2亿元港币买下地皮，重建山顶“天比高”豪宅，前日传出其中1幢以3.75亿元港币成交，他不仅回本还赚了5000多万港币，为庆祝卖屋赚大钱，前晚他骑单车约女友于
Tags:
发布:Tony | 分类:娱乐新闻 | 评论:0 | 引用:0 | 浏览:
2008年9月16日
火爆的“开心网”也有死穴
开心网的火爆已经是一个不争的事实—据说一些公司为了防止员工在上班时间花太多的时间在它上面已经准备屏蔽掉这个网站。
开心网的迅速走红至少告诉我们几件事—
首先，在央视们、新浪们和江南春们把广告变得无处不在的今天，病毒式口碑营销的价值尤为突出，特别是对于那些需要人群聚拢才有意义或者才有意思的产品和服务来说。开心网在没有任何广告宣传的情况下可以火爆到如此程度，靠的完全是朋
开心网的迅速走红至少告诉我们几件事—
首先，在央视们、新浪们和江南春们把广告变得无处不在的今天，病毒式口碑营销的价值尤为突出，特别是对于那些需要人群聚拢才有意义或者才有意思的产品和服务来说。开心网在没有任何广告宣传的情况下可以火爆到如此程度，靠的完全是朋
Tags:
发布:Tony | 分类:娱乐新闻 | 评论:0 | 引用:0 | 浏览:
最近留言
最近引用
Search
站点统计
- 文章总数:39
- 评论总数:47
- 引用总数:0
- 浏览总数:245
- 留言总数:0
- 当前主题:default
- 当前样式:default2
网站收藏
友情链接
-
<%
Function getTime()
getTime = DateDiff("s", "1970-01-01 08:00:00", Date()) * 1000 + Int(CDbl(Timer()) * 1000)
End Function
Function FlashgetEncode(t_url,uid)
Dim prefix,FlashgetURL,fg_uid,fg_time
fg_uid = uid
fg_time = Now()
prefix = "Flashget://"
FlashgetURL = prefix & fg_strAnsi2Unicode(fg_Base64encode(fg_strUnicode2Ansi("[FLASHGET]" & t_url & "[FLASHGET]"))) & "&" &uid
'&"&"& fg_uid & "&" & getTime()
FlashgetEncode= FlashgetURL
End Function
Function strUnicodeLen(asContents)
//计算unicode字符串的Ansi编码的长度
Dim asContents1, len1, k, i
asContents1="a"&asContents
len1=len(asContents1)
k=0
for i=1 to len1
Dim asc1
asc1=asc(mid(asContents1,i,1))
if asc1<0 then asc1=65536+asc1
if asc1>255 then
k=k+2
else
k=k+1
end if
next
strUnicodeLen=k-1
End Function
Function fg_strUnicode2Ansi(asContents)
//将Unicode编码的字符串，转换成Ansi编码的字符串
Dim len1, i
fg_strUnicode2Ansi=""
len1=len(asContents)
for i=1 to len1
Dim varchar, varasc, varHex, varlow, varhigh
varchar=mid(asContents,i,1)
varasc=asc(varchar)
if varasc<0 then varasc=varasc+65536
if varasc>255 then
varHex=Hex(varasc)
varlow=left(varHex,2)
varhigh=right(varHex,2)
fg_strUnicode2Ansi=fg_strUnicode2Ansi & chrb("&H" & varlow ) & chrb("&H" & varhigh )
else
fg_strUnicode2Ansi=fg_strUnicode2Ansi & chrb(varasc)
end if
next
End function
Function fg_strAnsi2Unicode(asContents)
//将Ansi编码的字符串，转换成Unicode编码的字符串
Dim len1, i
fg_strAnsi2Unicode = ""
len1=lenb(asContents)
if len1=0 then exit function
for i=1 to len1
dim varchar, varasc
varchar=midb(asContents,i,1)
varasc=ascb(varchar)
if varasc > 127 then
fg_strAnsi2Unicode = fg_strAnsi2Unicode & chr(ascw(midb(asContents,i+1,1) & varchar))
i=i+1
else
fg_strAnsi2Unicode = fg_strAnsi2Unicode & chr(varasc)
end if
next
End function
Function fg_Base64encode(asContents)
//将Ansi编码的字符串进行Base64编码
//asContents应当是ANSI编码的字符串（二进制的字符串也可以）
Dim sBASE_64_CHARACTERS
sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
sBASE_64_CHARACTERS = fg_strUnicode2Ansi(sBASE_64_CHARACTERS)
Dim lnPosition
Dim lsResult
Dim Char1
Dim Char2
Dim Char3
Dim Char4
Dim Byte1
Dim Byte2
Dim Byte3
Dim SaveBits1
Dim SaveBits2
Dim lsGroupBinary
Dim lsGroup64
Dim m3,m4,len1,len2
len1=Lenb(asContents)
if len1<1 then
fg_Base64encode=""
exit Function
end if
m3=Len1 Mod 3
If m3 > 0 Then
//补足位数是为了便于计算
asContents = asContents & String(3-m3, chrb(0))
len1=len1+(3-m3)
len2=len1-3
else
len2=len1
end if
lsResult = ""
For lnPosition = 1 To len2 Step 3
lsGroup64 = ""
lsGroupBinary = Midb(asContents, lnPosition, 3)
Byte1 = Ascb(Midb(lsGroupBinary, 1, 1)): SaveBits1 = Byte1 And 3
Byte2 = Ascb(Midb(lsGroupBinary, 2, 1)): SaveBits2 = Byte2 And 15
Byte3 = Ascb(Midb(lsGroupBinary, 3, 1))
Char1 = Midb(sBASE_64_CHARACTERS, ((Byte1 And 252)/4) + 1, 1)
Char2 = Midb(sBASE_64_CHARACTERS, (((Byte2 And 240)/16) Or (SaveBits1 * 16) And &HFF) + 1, 1)
Char3 = Midb(sBASE_64_CHARACTERS, (((Byte3 And 192)/64) Or (SaveBits2 * 4) And &HFF) + 1, 1)
Char4 = Midb(sBASE_64_CHARACTERS, (Byte3 And 63) + 1, 1)
lsGroup64 = Char1 & Char2 & Char3 & Char4
lsResult = lsResult & lsGroup64
Next
//处理最后剩余的几个字符
if M3 > 0 then
lsGroup64 = ""
lsGroupBinary = Midb(asContents, len2+1, 3)
Byte1 = Ascb(Midb(lsGroupBinary, 1, 1)): SaveBits1 = Byte1 And 3
Byte2 = Ascb(Midb(lsGroupBinary, 2, 1)): SaveBits2 = Byte2 And 15
Byte3 = Ascb(Midb(lsGroupBinary, 3, 1))
Char1 = Midb(sBASE_64_CHARACTERS, ((Byte1 And 252)/4) + 1, 1)
Char2 = Midb(sBASE_64_CHARACTERS, (((Byte2 And 240)/16) Or (SaveBits1 * 16) And &HFF) + 1, 1)
Char3 = Midb(sBASE_64_CHARACTERS, (((Byte3 And 192)/64) Or (SaveBits2 * 4) And &HFF) + 1, 1)
if M3=1 then
lsGroup64 = Char1 & Char2 & ChrB(61) & ChrB(61) //用=号补足位数
else
lsGroup64 = Char1 & Char2 & Char3 & ChrB(61) //用=号补足位数
end if
lsResult = lsResult & lsGroup64
end if
fg_Base64encode = lsResult
End Function
Function Base64decode(asContents)
//将Base64编码字符串转换成Ansi编码的字符串
//asContents应当也是ANSI编码的字符串（二进制的字符串也可以）
Dim sBASE_64_CHARACTERS
sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
sBASE_64_CHARACTERS = fg_strUnicode2Ansi(sBASE_64_CHARACTERS)
Dim lsResult
Dim lnPosition
Dim lsGroup64, lsGroupBinary
Dim Char1, Char2, Char3, Char4
Dim Byte1, Byte2, Byte3
Dim M4,len1,len2
len1= Lenb(asContents)
M4 = len1 Mod 4
if len1 < 1 or M4 > 0 then
//字符串长度应当是4的倍数
Base64decode = ""
exit Function
end if
//判断最后一位是不是 = 号
//判断倒数第二位是不是 = 号
//这里m4表示最后剩余的需要单独处理的字符个数
if midb(asContents, len1, 1) = chrb(61) then m4=3
if midb(asContents, len1-1, 1) = chrb(61) then m4=2
if m4 = 0 then
len2=len1
else
len2=len1-4
end if
For lnPosition = 1 To Len2 Step 4
lsGroupBinary = ""
lsGroup64 = Midb(asContents, lnPosition, 4)
Char1 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 1, 1)) - 1
Char2 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 2, 1)) - 1
Char3 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 3, 1)) - 1
Char4 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 4, 1)) - 1
Byte1 = Chrb(((Char2 And 48)*16) Or (Char1 * 4) And &HFF)
Byte2 = lsGroupBinary & Chrb(((Char3 And 60)*4) Or (Char2 * 16) And &HFF)
Byte3 = Chrb((((Char3 And 3) * 64) And &HFF) Or (Char4 And 63))
lsGroupBinary = Byte1 & Byte2 & Byte3
lsResult = lsResult & lsGroupBinary
Next
//处理最后剩余的几个字符
if M4 > 0 then
lsGroupBinary = ""
lsGroup64 = Midb(asContents, len2+1, m4) & chrB(65) //chr(65)=A，转换成值为0
if M4=2 then
//补足4位，是为了便于计算
lsGroup64 = lsGroup64 & chrB(65)
end if
Char1 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 1, 1)) - 1
Char2 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 2, 1)) - 1
Char3 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 3, 1)) - 1
Char4 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 4, 1)) - 1
Byte1 = Chrb(((Char2 And 48)*16) Or (Char1 * 4) And &HFF)
Byte2 = lsGroupBinary & Chrb(((Char3 And 60)*4) Or (Char2 * 16) And &HFF)
Byte3 = Chrb((((Char3 And 3) * 64) And &HFF) Or (Char4 And 63))
if M4=2 then
lsGroupBinary = Byte1
elseif M4=3 then
lsGroupBinary = Byte1 & Byte2
end if
lsResult = lsResult & lsGroupBinary
end if
Base64decode = lsResult
End Function
%>
