對，我用：“cint(rs("aa"))”如下：

<%
aa=rs("a")
if cint(rs("a"))>90 then
str="<font color=#ff0000>"&aa&"</font>"
else
str="<font color=#00ff00>"&aa&"</font>"
response.write str
end if
%>

沒有報錯，但沒有顯示出結果來呢？

我的源代碼如下：
<%set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("ce.mdb")
%>
<%
exec="select * from ce order by id=61 "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>

<%
dim aa,str
aa=rs("a")
if cint(aa)>90 then
str="<font color=#ff0000>"&aa&"</font>"
else
str="<font color=#00ff00>"&aa&"</font>"
response.write str
end if
%>

這樣都沒有報錯了，可是就是沒有顯示出來呀。網頁打開後是空的呀。

這樣子對吧：

<%set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("ce.mdb")
%>
<%
exec="select * from ce where id=61 "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>

<%
dim aa,str
aa=rs("a")
if cint(aa)>90 then
str="<font color=#ff0000>大于90</font>"
else
str="<font color=#00ff00>小于90</font>"
response.write str
end if
%>