<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
Function gotTopic(str,strlen)
if str="" then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str,"&nbsp;"," "),"&quot;",chr(34)),"&gt;",">"),"&lt;","<")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
gotTopic=left(str,i) & "…"
exit for
else
gotTopic=str
end if
next
gotTopic=replace(replace(replace(replace(gotTopic," ","&nbsp;"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
End Function
</SCRIPT>

调用代码：<% =(gotTopic((Recwzxs.Fields.Item("wznr").Value),200)) %>


[ 本帖最后由 tepnidh 于 2010-9-4 19:52 编辑 ]

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
Function gotTopic(str,strlen)
if str="" then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str,"&nbsp;"," "),"&quot;",chr(34)),"&gt;",">"),"&lt;","<")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
gotTopic=left(str,i) & "…"
exit for
else
gotTopic=str
end if
next
gotTopic=replace(replace(replace(replace(gotTopic," ","&nbsp;"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
gotTopic="<font sytle='color:#FF00FF;font-size:18px;'>"& gotTopic &"</font>
End Function
</SCRIPT>

谢谢您！但有错误：

错误类型：
Microsoft VBScript compilation (0x800A0409)
Unterminated string constant
/tep/tj-sc/HDPC/scgk/untitled.asp, line 54, column 75
gotTopic="<font sytle='color:#0066FF;font-size:12px;'>"& gotTopic &"</font>

打错字了。
gotTopic="<font style='color:#0066FF;font-size:12px;'>"& gotTopic &"</font>"


[ 本帖最后由 wangjy500 于 2010-9-4 20:31 编辑 ]

成功！谢谢您！学生还想请教老师，如何修改行距啊？请您再帮帮我吧！

style="line-height:18px;"

谢谢您！为了表示对您的感激之情，敬送您50分，请笑纳！！！

单倍行距


字号与磅值是定义字体大小的2种度量单位，如同 米 和 尺。
字号与磅值有对应关系，如：
二号 － 22 ，即二号字和22磅字是一样大小的，余同。
小二 － 18
三号 － 16
小三 － 15
四号 － 14
小四 － 12
五号 － 10.5
小五 － 9



字号控制字大小，
越大字越大。
磅值越大字越粗。



字号「八号」对应磅值5
字号「七号」对应磅值5.5
字号「小六」对应磅值6.5
字号「六号」对应磅值7.5
字号「小五」对应磅值9
字号「五号」对应磅值10.5
字号「小四」对应磅值12
字号「四号」对应磅值14
字号「小三」对应磅值15
字号「三号」对应磅值16
字号「小二」对应磅值18
字号「二号」对应磅值22
字号「小一」对应磅值24
字号「一号」对应磅值26
字号「小初」对应磅值36
字号「初号」对应磅值42


[ 本帖最后由 tepnidh 于 2010-9-9 11:57 编辑 ]