标题:感觉真的是老了,这么简单效果都编不出来...
取消只看楼主
sass2008
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2008-5-27
 问题点数:0 回复次数:3 
感觉真的是老了,这么简单效果都编不出来...
比如一个字符串 357
编一个程序实现显示34567,但其中的357用红色表示,其它用黑色
如果字符串为57,则 显示 567,其中的57也显示红色,共它为黑
如果字符串为127 则显示1234567 其中的127为红色.
大家知道我的意思了吗?就是根据首位数字生成到7的字符串,但出现的字符用红色表示.
我下面的代码就只能显示第一位为红色,怎么改都不成.
<%
a="357"
N=1
for b=3 to 7
' response.write mid(a,N,1) & "--" & b & "<BR>"
  if mid(a,N,1)=trim(b) then
  response.write "<font color=red>" & b & "</font>"
  else
  response.write b
  end if
N=N+1
next
%>
搜索更多相关主题的帖子: 效果 感觉 
2008-05-27 10:45
sass2008
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2008-5-27
得分:0 
急着要这效果呀,大家快帮忙呀.....................
2008-05-27 10:58
sass2008
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2008-5-27
得分:0 
继续顶........................................
2008-05-27 11:35
sass2008
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2008-5-27
得分:0 
[bo][un]flynet[/un] 在 2008-5-27 12:37 的发言:[/bo]

a="17"
a1=left(a,1)
a2=right(a,1)
for i= a1 to a2
if instr(a,i)>0 then
response.Write ""
end if
response.Write i
if instr(a,i)>0 then
response.Write ""
end if
next



=======

谢谢,可能真的是年纪大了,一时脑子没有转过来!呵呵!
2008-05-27 13:59



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




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

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