Question

如何调用数据库中输入的文字以设定好的颜色在ASP页面上显示出来并滚动

<%if rs("num1")<>0 then%>
<img src="images/<%=rs("num1")%>.gif">
<%else%>

<%end if%>
<%if rs("num2")<>0 then%>
<img src="images/<%=rs("num2")%>.gif">
<%else%>

<%end if%>
<%if rs("num3")<>0 then%>
<img src="images/<%=rs("num3")%>.gif">
<%else%>

<%end if%>
以上代码我在数据库里num2输入2它就调用名称为2的GIF图片
怎么才能直接调出我输入的内容和修改相应的颜色呢？比如说我输入A到E任意一个字母，他就直接显示红色的相应字母，输入F到J就显示蓝色的相应字母，输入K到O就显示绿色的相应字母……
出了以后比如说我在数据库的num1到num3上分别输入了AEK这3个字母，显示出红蓝绿3个颜色的AEK，怎么让它们从右向左滚动呢？

Answer 1

<%
Dim num1,num2,num3,AllNum,resultNum,temp
num1 = "A" '这里按你的需求写成num1 = rs("num1"),下面的类推
num2 = "F"
num3 = "K"
AllNum = num1 & num2 & num3
For i=1 To Len(AllNum)
On Error Resume Next '发生错误时继续
temp = Mid(AllNum,i,1)
temp = CInt(temp) '转换一下为整数（字母是不能转换的，所以会出错，直接调用转换颜色)
If Err then
temp = "<font color=""" & getFontColor(temp) & """>" & temp & "</font>"
Else
temp = "<img src=""images/" & temp & ".gif"">"
End if
resultNum = resultNum & temp
Next
Response.write "结果为:"
Response.write "<MARQUEE scrollAmount=""3"" width=""100"">" & resultNum & "</MARQUEE>"

'设定颜色函数
Function getFontColor(ByVal myStr)
Dim tempStr
tempStr = LCase(myStr) '转换为小写
If tempStr>="a" And tempStr<="e" Then
getFontColor = "red"
ElseIf tempStr>="f" And tempStr<="j" Then
getFontColor = "blue"
ElseIf tempStr>="k" And tempStr<="o" Then
getFontColor = "green"
'其它情况自己写
End if
End function
%>

追问

num1 = "1" '这里按你的需求写成num1 = rs("num1"),下面的类推
num2 = "2"
num3 = "3"
这里直接显示图出来了，怎么才能让它直接显示字母或者数字呢？
我想要的效果是一个ASP页面上，数据库的num1里打1，页面上就显示1在滚动，下面一排就显示1的图片，现在是下面图片那正常显示，上面要滚动的按照您给的方法他还是显示图

追答

我还以为你是数字显示图片，字母显示变色滚动呢
如果上面显示，就不需要转换为数字了
你上面的介绍是数字就转为图片
我这给我的代码重点是字母加上颜色
其它的你只要看看代码就能做出来了啊

追问

能否再给个数字直接显示数字的代码啊？已经增悬赏分了……我基础知识太差了……麻烦了……