个人博客

一些“事”

fxiang — Mon, 31 Aug 2009 22:00:18 CST

2009年8月31日：

1、许多产业领域中的“国进民退”现象严重,市场垄断力量明显增强,市场化改革进程有所倒退。（政府主导的收购兼并，以大吃小，比如煤炭、钢铁、航空行业等等）

2、再融资30%分红新规成一纸空文（《关于修改上市公司现金分红若干规定的决定》详见以下官方网址：http://www.csrc.gov.cn/n575458/n575667/n4231514/n4231533/n8928778/10930879.html）

3、浙江省高级人民法院刚刚出台的《关于审理交通肇事刑事案件若干意见》的规定：交通肇事后报警并在现场等候处理的行为，不能认定为自首；而交通肇事逃逸后向有关机关投案，并如实供述犯罪事实的，可以认定自首。

　　以下是一些专家的观点：

　　浙江高院刑三庭庭长丁卫强是意见起草者之一，他对媒体解释，刑法已将交通肇事后逃逸的行为规定为加重处罚情节，交通肇事后报警并保护事故现场是道路交通安全法规定的当事人交通肇事后必须履行的义务。如果将这种当事人本来就应该做的事情也认定为自首，那就等于对一件事作了双重评价，不符合立法精神。针对人们“跑了后投案反而比不跑处罚得更轻？”的质疑，丁卫强解释，刑法规定，一般交通肇事案件处3年以下有期徒刑，肇事后逃逸的处3年以上7年以下有期徒刑。所以，逃逸后投案，虽然根据自首的规定可以从轻或减轻处罚，但是量刑幅度却是在3年到7年之内，比一般交通肇事还是要重的。

　　交通部管理干部学院的张柱庭教授曾是《道路交通安全法》起草人之一。他强调，省高院是没有法律解释权的，即使是内部指导意见，也不应当向社会发布，从而对公众产生误导。中国政法大学刑法学教授邬明安认为“浙江省高院的意见属于适用于本地区的内部司法规范，不能与刑法和司法解释规定相背离。”

　　依据最高法院司法解释，在交通肇事后报案并在现场等候处理，或肇事后主动投案，并能如实供述自己肇事罪行的，均符合自首的两个法定条件，应依法认定为自首，不存在“交通肇事后报警与不报警”这一额外的构成要件。

　　邬明安教授说，履行道路交通安全法的义务并不是自首的例外规定，履行报警义务并不能排斥自首规定的适用；肇事后报警并在肇事现场等候处理的行为与主动去司法机关投案有相同的法律效果，不存在重复评价的问题。如肇事者肇事后不履行保护现场、抢救受伤人员并报警的义务而离开现场去投案，或肇事后履行报警义务但并不在现场等候而去投案等都属于自首，岂不更应当把‘肇事后报警并在肇事现场等候处理的行为’认定为自首。

世帛纺织WAP网站开通

fxiang — Wed, 22 Apr 2009 11:58:47 CST

热烈祝贺中国轻纺城世帛纺织WAP网站开通! 竭诚欢迎广大新老客户来人来电洽谈订购!

企业WAP网址：3g.s8tex.com

中国轻纺城世帛纺织网站开通

fxiang — Wed, 22 Apr 2009 11:58:18 CST

热烈祝贺中国轻纺城世帛纺织网站开通! 竭诚欢迎广大新老客户来人来电洽谈订购!

www.s8tex.com

短信网址使用方法

fxiang — Wed, 13 Feb 2008 17:11:09 CST

编辑短信内容：“中华供应商”（不含双引号），发送至“12114”，（不产生任何信息费用）

server.htmlencode

fxiang — Tue, 18 Dec 2007 21:24:51 CST

Function HTMLEncode(Str)
If Isnull(Str) Then
HTMLEncode = ""
Exit Function
End If
Str = Replace(Str,Chr(0),"", 1, -1, 1)
Str = Replace(Str, """", """, 1, -1, 1)
Str = Replace(Str,"<","<", 1, -1, 1)
Str = Replace(Str,">",">", 1, -1, 1)
Str = Replace(Str, "script", "script", 1, -1, 0)
Str = Replace(Str, "SCRIPT", "SCRIPT", 1, -1, 0)
Str = Replace(Str, "Script", "Script", 1, -1, 0)
Str = Replace(Str, "script", "Script", 1, -1, 1)
Str = Replace(Str, "object", "object", 1, -1, 0)
Str = Replace(Str, "OBJECT", "OBJECT", 1, -1, 0)
Str = Replace(Str, "Object", "Object", 1, -1, 0)
Str = Replace(Str, "object", "Object", 1, -1, 1)
Str = Replace(Str, "applet", "applet", 1, -1, 0)
Str = Replace(Str, "APPLET", "APPLET", 1, -1, 0)
Str = Replace(Str, "Applet", "Applet", 1, -1, 0)
Str = Replace(Str, "applet", "Applet", 1, -1, 1)
Str = Replace(Str, "[", "[")
Str = Replace(Str, "]", "]")
Str = Replace(Str, """", "", 1, -1, 1)
Str = Replace(Str, "=", "=", 1, -1, 1)
Str = Replace(Str, "'", "''", 1, -1, 1)
Str = Replace(Str, "select", "select", 1, -1, 1)
Str = Replace(Str, "execute", "execute", 1, -1, 1)
Str = Replace(Str, "exec", "exec", 1, -1, 1)
Str = Replace(Str, "join", "join", 1, -1, 1)
Str = Replace(Str, "union", "union", 1, -1, 1)
Str = Replace(Str, "where", "where", 1, -1, 1)
Str = Replace(Str, "insert", "insert", 1, -1, 1)
Str = Replace(Str, "delete", "delete", 1, -1, 1)
Str = Replace(Str, "update", "update", 1, -1, 1)
Str = Replace(Str, "like", "like", 1, -1, 1)
Str = Replace(Str, "drop", "drop", 1, -1, 1)
Str = Replace(Str, "create", "create", 1, -1, 1)
Str = Replace(Str, "rename", "rename", 1, -1, 1)
Str = Replace(Str, "count", "count", 1, -1, 1)
Str = Replace(Str, "chr", "chr", 1, -1, 1)
Str = Replace(Str, "mid", "mid", 1, -1, 1)
Str = Replace(Str, "truncate", "truncate", 1, -1, 1)
Str = Replace(Str, "nchar", "nchar", 1, -1, 1)
Str = Replace(Str, "char", "char", 1, -1, 1)
Str = Replace(Str, "alter", "alter", 1, -1, 1)
Str = Replace(Str, "cast", "cast", 1, -1, 1)
Str = Replace(Str, "exists", "exists", 1, -1, 1)
Str = Replace(Str,Chr(13),"
", 1, -1, 1)
HTMLEncode = Replace(Str,"'","''", 1, -1, 1)
End Function

VBScript FormatDateTime函数

fxiang — Thu, 13 Dec 2007 22:09:11 CST

描述

返回一个日期或时间格式的表达式。

语法

FormatDateTime(Date[,NamedFormat])

FormatDateTime函数语法有如下几部分：

部分	描述
Date	必需的。要被格式化的日期表达式。
NamedFormat	可选的。数字值，表示日期/时间所使用的格式。如果忽略该值，则使用vbGeneralDate。

设置值

NamedFormat参数的设置值如下：

常数	值	描述
vbGeneralDate	0	显示日期和/或时间。如果有日期部分，则用短日期格式显示。如果有时间部分，则用长时间格式显示。如果都有，两部分都显示。
vbLongDate	1	用计算机区域设置值中指定的长日期格式显示日期。
vbShortDate	2	用计算机区域设置值中指定的短日期格式显示日期。
vbLongTime	3	用计算机区域设置值中指定的时间格式显示时间。
vbShortTime	4	用24小时格式（hh：mm）显示时间。

Windows中的时间格式还真不少，什么长日期、短日期，两位年份、四位年份等等，在Delphi中可用FormatDateTime函数输出这些格式，下面介绍它的用法：

function FormatDateTime(const Format: string; DateTime: TDateTime): string;

Format参数是一个格式化字符串。DateTime是时间类型。返回值是一种格式化后的字符串，重点来看Format参数中的指令字符：

c 以短时间格式显示时间，即全部是数字的表示
FormatdateTime('c',now);
输出为：2004-8-7 9:55:40

d 对应于时间中的日期，日期是一位则显示一位，两位则显示两位
FormatdateTime('d',now);
输出可能为1～31
dd 和d的意义一样，但它始终是以两位来显示的
FormatdateTime('dd',now);
输出可能为01～31
ddd 显示的是星期几
FormatdateTime('ddd',now);
输出为: 星期六
dddd 和ddd显示的是一样的。
但上面两个如果在其他国家可能不一样。
ddddd 以短时间格式显示年月日
FormatdateTime('ddddd',now);
输出为：2004-8-7
dddddd 以长时间格式显示年月日
FormatdateTime('dddddd',now);
输出为：2004年8月7日

e/ee/eee/eeee 以相应的位数显示年
FormatdateTime('ee',now);
输出为：04 （表示04年）

m/mm/mmm/mmmm 表示月
FormatdateTime('m',now);
输出为：8
FormatdateTime('mm',now);
输出为 08
FormatdateTime('mmm',now);
输出为八月
FormatdateTime('mmmm',now);
输出为八月
和ddd/dddd 一样，在其他国家可能不同

yy/yyyy 表示年
FormatdateTime('yy',now);
输出为 04
FormatdateTime('yyyy',now);
输出为 2004

h/hh,n/nn,s/ss,z/zzz 分别表示小时，分，秒,毫秒
t 以短时间格式显示时间
FormatdateTime('t',now);
输出为 10:17
tt 以长时间格式显示时间
FormatdateTime('tt',now);
输出为10:18:46

ampm 以长时间格式显示上午还是下午
FormatdateTime('ttampm',now);
输出为：10:22:57上午

如果要在Format中加普通的字符串，可以用双引号隔开那些特定义的字符，这样普通字符串中如果含特殊的字符就不会被显示为时间格式啦：
FormatdateTime('"today is" c',now);
输出为：today is 2004-8-7 10:26:58

时间中也可以加"-"或"\"来分开日期：
FormatdateTime('"today is" yy-mm-dd',now);
FormatdateTime('"today is" yy\mm\dd',now);
输出为： today is 04-08-07

也可以用":"来分开时间
FormatdateTime('"today is" hh:nn:ss',now);
输出为：today is 10:32:23

css元素定位

fxiang — Wed, 12 Dec 2007 08:40:28 CST

1. position:static|无定位
position:static是所有元素定位的默认值, 一般不用注明，除非有需要取消继承的别的定位

example:

#div-1 {
position:static;
}

2. position:relative|相对定位
使用position:relative，就需要top,bottom,left,right4个属性来配合，确定元素的位置。
如果要让div-1层向下移动20px,左移40px:

example:

#div-1 {
position:relative;
top:20px;
left:40px;
}

如果用到相对定位，紧随他的层divafter是不会出现在div-1的下方，而是和div-1在同一个高度出现。

可见， position:relative;并不是很好用。

3. position:absolute|绝对定位
使用position:absolute;,能够很准确的将元素移动到你想要的位置，让我将 div-1a 移动到页面的右上角:

example:

#div-1a {
position:absolute;
top:0;
right:0;
width:200px;
}

使用绝对定位的div-1a层前面的或者后面的层会认为这个层并不存在，丝毫不影响到他们。所以position:absolute;用于将一个元素放到固定的位置很好用，但是如果需要div-1a层相对于附近的层来确定位置就不要实现了。
*这里有个Win IE的bug需要提到，就是如果为绝对定位的元素定义一个相对的度，那么在IE下它的宽度取决于父元素的宽度而不是整个页面的宽度。

4. position:relative + position:absolute|绝对定位+相对定位
如果给父元素(div-1)定义为position:relative;子元素(div-1a)定义为position:absolute，那么子元素(div-1a)的位置将相对于父元素(div-1)，而不是整个页面。
让div-1a定位于div-1的右上角：

example:

this is div-1a element.

this is div-1 element.

#div-1 {
position:relative;
}
#div-1a {
position:absolute;
top:0;
right:0;
width:200px;
}

5. two column layout|两列布局
让我们实践position:relative + position:absolute的理论，实现两列布局

example:

this is the column-one

this is the column-two

#div-1 {
position:relative;/*父元素相对定位*/
}
#div-1a {
position:absolute;/*子元素绝对定位*/
top:0;
right:0;
width:200px;
}
#div-1b {
position:absolute;/*子元素绝对定位*/
top:0;
left:0;
width:200px;
}

注意，在这个例子中会发现父元素的高度不会随着子元素的告诉变化，所以如果父元素的背景和边框需要定义一个足够高的高度才能显示出来。

6.float|浮动对齐
使用float定位一个元素有float:left;&float:right;两种值。这种定位只能在水平坐标定位，不能在垂直坐标定位。而且让下面的元素浮动环绕在它的左边或者右边。

example:

#div-1a {
float:left;
width:200px;
}

7.make two clumn with float|浮动实现两列布局
如果让一个元素float:left;另一个float:right;控制好他们的宽度，就能实现两列的布局效果。

example:

#div-1a {
float:left;
width:150px;
}
#div-1b {
float:left;
width:150px;
}

8.clear float|清除浮动
如果你不想让使用了float元素的下面的元素浮动环绕在它的周围，那么你就使用clear,clear有三个值，clear:left;(清除左浮动)，clear:right;(清除右浮动)，clear:both;(清除所有浮动)。

example:

this is div-1a

this is div-1b

this is div-1c

#div-1a {
float:left;
width:190px;
}
#div-1b {
float:left;
width:190px;
}
#div-1c {
clear:both;
}

asp日历代码

fxiang — Tue, 27 Nov 2007 22:23:55 CST

<%
Sub Calendar()

Dim y, m, d
Dim i, j, n, c, w
Dim iEnd

' y, m, d 年月日
y = Year(Date())
m = Month(Date())
d = Day(Date())

' n 一年的天数
If y Mod 400 = 0 Or (y Mod 4 = 0 And y Mod 100 <> 0) Then
n = 366
Else
n = 365
End If

' c 当前月的天数
Select Case m
Case 1, 3, 5, 7, 8, 10, 12
c = 31
Case 2
If n = 366 Then
c = 29
Else
c = 28
End If
Case Else
c = 30
End Select

' w 当前月第一天是星期几
w = CInt(Weekday(DateSerial(y, m, 1)))
iEnd = ((w+c-1)\7-CInt((w+c-1)\7<>(w+c-1)/7))*7

Response.Write "

"
Response.Write ""
For i = 1 To iEnd
If i = 1 Then Response.Write ""
If i > w-1 And i < w+c Then
If i Mod 7 = 1 Then
Response.Write ""
Else
Response.Write ""
End If
If i Mod 7 = 0 And i <> iEnd Then Response.Write ""
If i = iEnd Then Response.Write ""
Next
Response.Write "

日	一	二	三	四	五	六
" Else Response.Write "	" End If If i-w+1 = d Then Response.Write "" & i-w+1 & "" Else Response.Write i-w+1 End If Response.Write "

"
End Sub
%>

IIS HTTP 500 内部服务器错误服务器无法加载应用程序

fxiang — Fri, 23 Nov 2007 09:36:40 CST

查看网络上的资料,发现与DTS服务有关.
在运行里输入命令"services.msc",寻找DTC服务（全名：Distributed Transaction Coordinator），发现服务列表里没有这个服务,到c:\windows\system32下查找,找到了MSDTC目录,而且在c:\windows\system32\inetsrv 中wamreg.dll和asptxn.dll都有,system32下也有msdtc.exe文件.看来是msdtc 服务没有安装上.

运行命令安装 msdtc -install
运行services.msc,发现dtc 服务已经在列表中了,设置为"自动"并启动它.
确认在事件查看器中msdtc服务已经正常启动[这步很关键，如果没有，重新启动下电脑看看],
只有启动了msdtc后才能运行下列命令,否则会失败
cd %windir%\system32\inetsrv

rundll32 wamreg.dll, CreateIISPackage

regsvr32 asptxn.dll

（请注意，CreateIISPackage 区分大小写。）

这时候再刷新要运行的ASPX页面,太好了,已经能正常显示了!!

————————————————————————————————————————————————————————————

启动msdtc：

如果MSDTC服务没有启动就先启动

net start msdtc
启动MSDTC服务然后就可以了
如果启动失败，提示distributed transaction coordinator 服务不能启动，就进行下面的操作

{MSDTC 分布式事务无法启动
错误消息：

---------------------------
服务
---------------------------
Windows 不能在本地计算机启动 Distributed Transaction Coordinator。有关更多信息，查阅系统事件日志。如果这是非 Microsoft 服务，请与服务厂商联系，并参考特定服务错误代码 -1073737712。
---------------------------
确定
---------------------------

解决办法：

把 C:\WINDOWS\system32\dtclog 这个目录重命名（如果有），然后重新建立该目录。
在命令行下： msdtc -resetlog

然后 msdtc 就可以启动了。}

然后在“开始”->“设置”->“控制面板”->“管理工具”->“组件服务”中，“控制台根目录”->“组件服务”->“计算机”->“我的电脑”->“COM+应用程序”中，有一个“IIS Out-Of-Process Pooled”鼠标右键“属性”--“标识”--把“此用户”调整为“交互式用户--目前已登录的用户”。然后“确定”，再鼠标右键“属性”--“启动”。

Page-Enter、Page-Exit的使用

fxiang — Sat, 03 Nov 2007 20:58:30 CST

Page-Enter、Page-Exit是页面被载入和调出时的一些特效。
用法：

注意：blendTrans是动态滤镜的一种，产生渐隐效果。
另一种动态滤镜RevealTrans也可以用于页面进入与退出效果:

Duration　　表示滤镜特效的持续时间(单位：秒)
Transition　滤镜类型。表示使用哪种特效，取值为0-23。

0 矩形缩小
1 矩形扩大
2 圆形缩小
3 圆形扩大
4 下到上刷新
5 上到下刷新
6 左到右刷新
7 右到左刷新
8 竖百叶窗
9 横百叶窗
10 错位横百叶窗
11 错位竖百叶窗
12 点扩散
13 左右到中间刷新
14 中间到左右刷新
15 中间到上下
16 上下到中间
17 右下到左上
18 右上到左下
19 左上到右下
20 左下到右上
21 横条
22 竖条
23 以上22种随机选择一种

个人博客

一些“事”

世帛纺织WAP网站开通

中国轻纺城世帛纺织网站开通

短信网址使用方法

server.htmlencode

VBScript FormatDateTime函数

css元素定位

asp日历代码

IIS HTTP 500 内部服务器错误 服务器无法加载应用程序

Page-Enter、Page-Exit的使用

IIS HTTP 500 内部服务器错误服务器无法加载应用程序