VBScript code —-asp –统计文件夹及其下的所有文件大小
——————————————————————
Function totalsize(size)
If size<1024 Then
totalsize=size&” Bytes”
Elseif size<1048576 Then
totalsize=Round((size/1024),2)&” KB”
Else
totalsize=Round((size/1024/1024),2)&” MB”
End If
End Function
set fs = CreateObject(“Scripting.FileSystemObject”)
Set folder = fs.GetFolder(path)
Response.Write(totalsize(folder.Size) & ” “& vbCrLf)
——————————————————————
重庆市北部新区地税局30日发布消息称，重庆首笔个人住房房产税在当地申报入库，其税款为6154.83元。
30日上午10点，重庆首笔个人住房房产税在北部新区地税局人和契税征收点申报入库，征收个人住房房产税6154.83元。据悉，该笔税款产生于当地某高档社区二手房转让，住宅类型为花园洋房，建筑面积202.73平方米，交易单价13071.57元/平方米。由于该住房建筑面积交易单价达到上两年重庆主城九区新建商品住房成交建筑均价2倍，即9941元/平方米，属于应税住房。
‘名字字符检验
Public Function CheckName(Str)
Checkname=True
Dim Rep,pass
Set Rep=New RegExp ‘ 建立正则表达式。
Rep.Global=True ‘设置全局可用性。
Rep.IgnoreCase=True’设置是否区分字符大小写
‘设置模式。
Rep.Pattern=”[u0009u0020u0022-u0028u002C-u002Eu003A-u003Fu005Bu005Cu0060u007Cu007Eu00FFuE5E5]”
Set pass=Rep.Execute(Str) ‘对指定的字符串执行正则表达式搜索。
我国首部专门规范房地产经纪行为的部门规章出台。“吃差价”、协助签订“阴阳合同”等被正式列入“从业禁止行为”，房产中介“黑手”时代面临终结。
住建部、发改委、人保部近日联合出台《房地产经纪管理办法》，将于4月1日起实施。这是我国第一个专门规范房地产经纪行为的部门规章。
住建部有关负责人表示，《办法》的出台，是全面落实国务院关于加强房地产调控的重要举措，对于整顿房地产市场秩序，规范房地产经纪行为，促进房地产经纪行业健康发展，将起到积极作用。
社部新闻发言人尹成基昨日在新闻发布会上表示，截至2010年12月底，应届高校毕业生就业率达90.7%，较上一年的87%提高了3个百分点。
城镇登记失业率为4.1%
尹成基称，2011年应届高校毕业生将有660万人。
根据官方此前发布的消息，去年应届高校毕业生人数为631万，就业率达90.7%，意味着近60万应届高校毕业生去年未找到工作。
B2C企业京东商城近日陷入“乌龙耳机门”，原价2100元的高级耳机以999元特价促销，引来众多消费者购买，但随后京东以货源不足无法供货为由，取消了大量订单。
订购特价耳机被删单
昨日，两名消费者向《新京报》反映，称去年12月22日在京东商城订购特价耳机，原价2100元，促销价999元。但在他们成功下单后，京东商城却在20多天后通知“缺货”，请消费者撤销订单。据称该款特价耳机下单超过了1000件。
消费者罗先生告诉记者，他知晓京东这一促销活动后，当即下订单购买了这款耳机。当天与罗先生同样被这一价格吸引下单的用户不在少数，并且有的用户一次订购了多个耳机。不过，京东随后致电给购买多个耳机的用户，表示可以保证一个订单有货，其余订单不能保证有货，请求客户自行删除多余的订单。