标题:如何在下面的“截取文章部分内容代码”中修改文字的大小、字体的颜色及行距 ...
只看楼主
tepnidh
Rank: 2
等 级:论坛游民
帖 子:192
专家分:24
注 册:2009-8-2
结帖率:87.5%
已结贴  问题点数:50 回复次数:8 
如何在下面的“截取文章部分内容代码”中修改文字的大小、字体的颜色及行距?谢谢![送50分]

<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 编辑 ]
搜索更多相关主题的帖子: 行距 字体 文字 颜色 代码 
2010-09-04 13:47
wangjy500
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:13
帖 子:457
专家分:2569
注 册:2010-7-11
得分:50 
<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>

QQ:63572063
2010-09-04 15:07
tepnidh
Rank: 2
等 级:论坛游民
帖 子:192
专家分:24
注 册:2009-8-2
得分:0 
回复 2楼 wangjy500
谢谢您!但有错误:

错误类型:
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>
2010-09-04 19:48
wangjy500
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:13
帖 子:457
专家分:2569
注 册:2010-7-11
得分:0 
打错字了。
gotTopic="<font style='color:#0066FF;font-size:12px;'>"& gotTopic &"</font>"


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

QQ:63572063
2010-09-04 20:28
tepnidh
Rank: 2
等 级:论坛游民
帖 子:192
专家分:24
注 册:2009-8-2
得分:0 
回复 4楼 wangjy500
成功!谢谢您!学生还想请教老师,如何修改行距啊?请您再帮帮我吧!
2010-09-04 20:51
wangjy500
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:13
帖 子:457
专家分:2569
注 册:2010-7-11
得分:0 
style="line-height:18px;"

QQ:63572063
2010-09-04 21:19
tepnidh
Rank: 2
等 级:论坛游民
帖 子:192
专家分:24
注 册:2009-8-2
得分:0 
回复 6楼 wangjy500
谢谢您!为了表示对您的感激之情,敬送您50分,请笑纳!!!
2010-09-05 18:22
tepnidh
Rank: 2
等 级:论坛游民
帖 子:192
专家分:24
注 册:2009-8-2
得分:0 
回复 8楼 花落之痕
单倍行距


字号与磅值是定义字体大小的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 编辑 ]
2010-09-09 11:52



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-318243-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021320 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved