1
If (e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.EditItem) Then
2 Dim dc_name As HyperLink = CType(e.Item.FindControl("dc_name"), HyperLink)
3 Select Case dc_name.Text
4 Case "新闻"
5 dc_name.ForeColor = dc_name.ForeColor.FromName("#0000FF")
6 Case "娱乐"
7 dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
8 Case "体育"
9 dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
10 Case "I T"
11 dc_name.ForeColor = dc_name.ForeColor.FromName("#0000FF")
12 Case "体育"
13 dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
14 Case "图片"
15 dc_name.ForeColor = dc_name.ForeColor.FromName("#FF0066")
16 Case "文化"
17 dc_name.ForeColor = dc_name.ForeColor.FromName("#CC0000")
18 Case "影音"
19 dc_name.ForeColor = dc_name.ForeColor.FromName("#CC00CC")
20 Case "生活"
21 dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
22 Case "财经"
23 dc_name.ForeColor = dc_name.ForeColor.FromName("#009900")
24 Case "军事"
25 dc_name.ForeColor = dc_name.ForeColor.FromName("#0000FF")
26 Case "技术"
27 dc_name.ForeColor = dc_name.ForeColor.FromName("#666666")
28 Case "情感"
29 dc_name.ForeColor = dc_name.ForeColor.FromName("#FF0066")
30 Case "游戏"
31 dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
32 Case "商机"
33 dc_name.ForeColor = dc_name.ForeColor.FromName("#0000FF")
34 Case "就业"
35 dc_name.ForeColor = dc_name.ForeColor.FromName("#CC6600")
36 Case "两性"
37 dc_name.ForeColor = dc_name.ForeColor.FromName("#FF0066")
38 Case "体育"
39 dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
40 Case "其他"
41 dc_name.ForeColor = dc_name.ForeColor.FromName("#666666")
42 End Select
If (e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.EditItem) Then
2
Dim dc_name As HyperLink = CType(e.Item.FindControl("dc_name"), HyperLink)
3
Select Case dc_name.Text
4
Case "新闻"
5
dc_name.ForeColor = dc_name.ForeColor.FromName("#0000FF")
6
Case "娱乐"
7
dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
8
Case "体育"
9
dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
10
Case "I T"
11
dc_name.ForeColor = dc_name.ForeColor.FromName("#0000FF")
12
Case "体育"
13
dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
14
Case "图片"
15
dc_name.ForeColor = dc_name.ForeColor.FromName("#FF0066")
16
Case "文化"
17
dc_name.ForeColor = dc_name.ForeColor.FromName("#CC0000")
18
Case "影音"
19
dc_name.ForeColor = dc_name.ForeColor.FromName("#CC00CC")
20
Case "生活"
21
dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
22
Case "财经"
23
dc_name.ForeColor = dc_name.ForeColor.FromName("#009900")
24
Case "军事"
25
dc_name.ForeColor = dc_name.ForeColor.FromName("#0000FF")
26
Case "技术"
27
dc_name.ForeColor = dc_name.ForeColor.FromName("#666666")
28
Case "情感"
29
dc_name.ForeColor = dc_name.ForeColor.FromName("#FF0066")
30
Case "游戏"
31
dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
32
Case "商机"
33
dc_name.ForeColor = dc_name.ForeColor.FromName("#0000FF")
34
Case "就业"
35
dc_name.ForeColor = dc_name.ForeColor.FromName("#CC6600")
36
Case "两性"
37
dc_name.ForeColor = dc_name.ForeColor.FromName("#FF0066")
38
Case "体育"
39
dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
40
Case "其他"
41
dc_name.ForeColor = dc_name.ForeColor.FromName("#666666")
42
End Select
