使用CSS文件

本节内容适合已经掌握CSS的用户。

同样,教会你CSS不是我们的任务,有人干这个我们擅长很多,如果有兴趣,可以访问:http://www.w3school.com.cn/css/index.asp,通常不会超过半天时间就能基本掌握。

使用CSS文件和使用js文件的方法一样,只是CSS文件通常在head块引入,js通常在body块的结束位置引入。

一个例子

1、在"d:\web"目录下,建立一个子目录css,在这个子目录中新建一个文本文件,文件名为文件名为“test.css”,文件内容为:

.rd{color:red;}
.gr{color:green;}

2、然后修改HttpRequest事件的代码,在有变化的地方,我加上了注释:

Dim fl As String = "d:\web\" & e.path
If
filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css"
'
这里加上了css扩展名
            e.WriteFile(fl)
    End
Select

Else

    Dim sb As New StringBuilder
    sb.AppendLine("<!doctype html>")
    sb.AppendLine("<html>")
    sb.AppendLine("<head>")
    sb.AppendLine("<meta charset='utf-8'>")
    sb.AppendLine(
"<title>CSS
测试</title>")
    sb.AppendLine("<link rel='stylesheet' href='./css/test.css'/>")
'
引入css文件
    sb.AppendLine("</head>")
    sb.AppendLine("<body>")
    sb.AppendLine("<p class='rd'>This Is some text. This Is some text.</p>")
'
通过class属性指定所采用的样式
    sb.AppendLine("<p class='gr'>This Is some text. This Is some text.</p>")
    sb.AppendLine("</body>")
    sb.AppendLine("</html>")
   
e.WriteString(sb.ToString)
End
If

在浏览器的显示结果为:


本页地址:http://www.foxtable.com/mobilehelp/topics/0017.htm