<%
'======================================
'取左边N个字符,1个中文=2个英文=2个字符
'参数:字符串,左边位数,超出部分截断的替换字符串(如:...)
'======================================
function getleftstr(str,n,nexttext)
if isnull(str)=false and str<>"" then
dim f_str,f_i,f_k,f_a
f_k=0
for f_i=1 to len(str)
f_a=mid(str,f_i,1)
dim re : set re=New RegExp '建立正则表达式
re.Pattern="[^\x00-\xff]" '设置模式,即建立正则式规则
re.Global=False '设置全局可用性
re.Ignorecase=True '设置是否区分字符大小写
re.MultiLine=False '设置多行标记可用性
f_k=f_k+len(re.replace(f_a,"$2")) '执行搜索测试
if f_k<=n then
f_str=f_str & f_a
else
f_str=f_str & nexttext
exit for
end if
next
getleftstr=f_str
end if
end function
%>
以上是我自己编写并一直用的自定义函数
至于你另一个问题,你直接输出:NoticeList.Fields.Item("NoticeTitle").Value
看这个有没有值,如果有值的话,应该是没有问题的语句
你直接 输出 NoticeList.Fields.Item("NoticeTitle").Value
看下是什么内容,是否正常?