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

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42
