'################################################
'## 功 能：获取文件名 ##
'## 输入参数：文件路径 ##
'## 输出参数：文件名 ##
'## 创建日期：2010-01-19 ##
'## 修改日期：2010-01-19 ##
'################################################
Function fun_GetBaseName()
Dim FSO
Set FSO=CreateObject("Scripting.FileSystemObject")
fun_GetBaseName=FSO.GetBaseName(fun_GetFileFullPath())
Set FSO=Nothing
End Function
如果加个回车会咋样
试试就知道 chr(10)
冒似不错的说
还好还好编辑的时候没有出现空行，只是在浏览的时候有
CSS设置
<style type="text/css">
.box {
border:#eee solid 1px;
width:300px;
height:120px;
line-height:120px;
display:table-cell;
vertical-align:middle;
text-align:center;
}
</style>
1.文本
<div class="box">Sample text</div>
Sample text
2.图片(IE下在图片后面加一 ......
