qa面试题汇总:asp.net中用vbscript对查询结果如何设定字体

来源:百度文库 编辑:神马品牌网 时间:2024/04/30 02:26:17
比如代码如下:
<%@ Page Language="vb" Debug="true" %>
<% @ Import Namespace=System.Data.Oledb %>
<% @ Import Namespace=System.Data %>
<html>
<head><title>表的关联测试</title></head>
<body>
<script Language="VB" Runat="server">
sub page_load(sender as object , e as eventargs)
dim cnstr as string="provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.Mappath

("data\shop.asa")
dim cmstr as string="select * from shop_anclass"
dim da as oledbdataadapter=new oledbdataadapter(cmstr,cnstr)
dim ds as dataset=new dataset
da.fill(ds,"shop_anclass")
da.selectcommand.commandtext="select * from shop_nclass"
da.fill(ds,"shop_nclass")
ds.relations.add("myrelation",ds.tables(0).columns("anclassid"),ds.tables(1).columns

("anclassid"))
dim i as short
dim rowtemp as datarow
for i=0 to ds.tables("shop_anclass").rows.count-1
response.write("大类:" & ds.tables("shop_anclass").rows(i)("anclass") & "<br>包含的小类有:"

)
for each rowtemp in ds.tables("shop_anclass").rows(i).getchildrows("myrelation")
response.write(rowtemp("nclass") & " " & "/ " & " ")
next
response.write("<p><p>")
next
end sub
</script>
</body>
</html>

如果要执行结果的字体是:黑体、5号字怎么修改上面的程序啊
主要是 ds.tables("shop_anclass").rows(i)("anclass") 这个执行的结果不会设定。
请高手帮下忙,谢谢了。

在response.write里面加入:
<span style='font-family:黑体;font-size=10.5'>你要改变字体的东西</span>

初步理解你的意思,可以这么加:
response.write("大类:" & "<span style='font-family:黑体;font-size=10.5'>" & ds.tables("shop_anclass").rows(i)("anclass") & "</span>" & "<br>包含的小类有:" )

如果有错误,稍微调一下就可以了。意思就是加了一段html改变font的标签,
明白了这个道理,你想怎么加都没有问题!

GOOD LUCK!