Question

ASP程序中如何修改字体大小,颜色?

程序如下:

sub ShowAllClass()
if rsBigClass.bof and rsBigClass.eof then
response.Write "Nothing here...."
else
dim sqlClass,rsClass,strClassName
rsBigClass.movefirst
do while not rsBigClass.eof
strClassName= "<a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") & "'><b>" & rsBigClass("BigClassName") & "</b></a><br>"
sqlClass="select * from SmallClass where BigClassName='" & rsBigClass("BigClassName") & "' Order by SmallClassID"
Set rsClass= Server.CreateObject("ADODB.Recordset")
rsClass.open sqlClass,conn,1,1
do while not rsClass.eof
strClassName=strClassName & "--><a href='Product.asp?BigClassName=" & rsClass("BigClassName") & "&SmallClassName=" & rsClass("SmallClassName") & "'>" & rsClass("SmallClassName") & "<br></a>"
rsClass.movenext
loop
response.write strClassName & ""
rsBigClass.movenext
loop
rsClass.close
set rsClass=nothing
end if
end sub

上面的程序是显示所有产品分类的,网页上面调用<call ShowAllClass()>,但是显示的字体很难看,我修改css也改不了; 想用后台程序修改,不知道在哪里加,请高手指教,谢谢~
比如在这段话里面加上style,该怎样加呢?
strClassName=strClassName & "--><a href='Product.asp?BigClassName=" & rsClass("BigClassName") & "&SmallClassName=" & rsClass("SmallClassName") & "'>" & rsClass("SmallClassName") & "<br></a>"

Answer 1

在<a>标签里加就可以了三。比如：
"--><a href='Product.asp?BigClassName=" & rsClass("BigClassName") & "&SmallClassName=" & rsClass("SmallClassName") & "'>" 改为：
"--><a href='Product.asp?BigClassName=" & rsClass("BigClassName") & "&SmallClassName=" & rsClass("SmallClassName") & "'" & " style='font-size:14px;color:red;'>"就行了。

Answer 2

<span style="font-weight:bold;font-size:14;color:blue">asdf</span>
显示的效果为粗体的大小为14的蓝色的“asdf”
还可以用javascript在客户端进行控制这些属性
还可以在css里进行设置：
body{font-family:verdana;font-size:9pt;color:blue｝

Answer 3

css 不可能改不了。a里面没有class属性，那么就是把a宏定义了，你找找有没有.css后缀的文件。很有可能就在那里。

你可以在这个页面的头部定义内部css样式。
a:link{...}
a:hover{...}
a:visted{...}