GridView отображает ссылку как код html

@hamele0n · Регистрация: 01.10.2010

Студворк — интернет-сервис помощи студентам

есть код

VB.NET
1
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
            Dim myConn As Data.OleDb.OleDbConnection
            myConn = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.AppDomain.CurrentDomain.BaseDirectory & "App_Data\main.mdb")
            myConn.Open()
            Try
                Dim myCmd As Data.OleDb.OleDbCommand = New Data.OleDb.OleDbCommand()
                myCmd.CommandText = "select slovo, page,dat,referer,pc,user,ip from referer order by dat desc"
                myCmd.Connection = myConn
                Dim DA As New Data.OleDb.OleDbDataAdapter(myCmd)
                Dim DS As Data.DataSet = New Data.DataSet("DefaultTable")
                Dim DT As New Data.DataTable
                DA.Fill(DS, "DefaultTable")
 
 
                For i = 0 To DS.Tables("DefaultTable").Rows.Count - 1
                    DS.Tables("DefaultTable").Rows(i).Item("slovo") = Web.HttpUtility.UrlDecode(DS.Tables("DefaultTable").Rows(i).Item("slovo").ToString)
                    DS.Tables("DefaultTable").Rows(i).Item("page") = ResolveUrl("<a target='_blank' href='" & DS.Tables("DefaultTable").Rows(i).Item("page") & "'>" & DS.Tables("DefaultTable").Rows(i).Item("page").ToString & "</a>")
                    DS.Tables("DefaultTable").Rows(i).Item("referer") = "<a target='_blank' href='" & Mid$(DS.Tables("DefaultTable").Rows(i).Item("referer").ToString, 1, 100) & "'>" & DS.Tables("DefaultTable").Rows(i).Item("referer").ToString & "</a>"
 
 
                Next i
 
                GridView1.DataSource = DS.Tables("DefaultTable")
                GridView1.DataBind()
 
                l1.Text = GridView1.Rows.Count
 
            Catch ex As Exception
                MSG("Произошла ошибка получения данных...", Me.Page) : Exit Sub
            Finally
                myConn.Close()
            End Try

так вот одно поле содержит url, gridview отображает как код html а не как ссылку, как можно решить проблему?

Добавлено через 2 часа 14 минут
проблему решил, вот код, думаю что пригодится еще кому нибудь

VB.NET
1
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
   Dim myConn As Data.OleDb.OleDbConnection
            myConn = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.AppDomain.CurrentDomain.BaseDirectory & "App_Data\main.mdb")
            myConn.Open()
            Try
                Dim myCmd As Data.OleDb.OleDbCommand = New Data.OleDb.OleDbCommand()
                myCmd.CommandText = "select slovo, page,dat,referer,pc,user,ip from referer order by dat desc"
                myCmd.Connection = myConn
                Dim DA As New Data.OleDb.OleDbDataAdapter(myCmd)
                Dim DS As Data.DataSet = New Data.DataSet("DefaultTable")
                Dim DT As New Data.DataTable
                DA.Fill(DS, "DefaultTable")
 
                For i = 0 To DS.Tables("DefaultTable").Rows.Count - 1
                    DS.Tables("DefaultTable").Rows(i).Item("slovo") = Web.HttpUtility.UrlDecode(DS.Tables("DefaultTable").Rows(i).Item("slovo").ToString)
                    DS.Tables("DefaultTable").Rows(i).Item("page") = "<a target='_blank' href='" & DS.Tables("DefaultTable").Rows(i).Item("page").ToString & "'>" & Web.HttpUtility.UrlDecode(DS.Tables("DefaultTable").Rows(i).Item("page").ToString) & "</a>"
                    DS.Tables("DefaultTable").Rows(i).Item("referer") = "<a target='_blank' href='" & DS.Tables("DefaultTable").Rows(i).Item("referer").ToString & "'>" & Mid$(Web.HttpUtility.UrlDecode(DS.Tables("DefaultTable").Rows(i).Item("referer").ToString), 1, 100) & "</a>"
                Next i
 
                GridView1.DataSource = DS.Tables("DefaultTable")
                GridView1.DataBind()
 
                For i As Integer = 0 To GridView1.Rows.Count - 1
                    For j As Integer = 1 To GridView1.Rows(i).Cells.Count - 1
                        Dim encoded As String = GridView1.Rows(i).Cells(j).Text
                        GridView1.Rows(i).Cells(j).Text = Context.Server.HtmlDecode(encoded)
                    Next
                Next
                l1.Text = GridView1.Rows.Count
 
            Catch ex As Exception
                MSG("Произошла ошибка получения данных...", Me.Page) : Exit Sub
            Finally
                myConn.Close()
            End Try

Добавлено через 5 минут
ключевой момент:

VB.NET
1
2
3
4
5
6
For i As Integer = 0 To GridView1.Rows.Count - 1
      For j As Integer = 1 To GridView1.Rows(i).Cells.Count - 1
           Dim encoded As String = GridView1.Rows(i).Cells(j).Text
           GridView1.Rows(i).Cells(j).Text = Context.Server.HtmlDecode(encoded)
      Next
Next

@HF · 02.11.2012, 17:18

Нет смысла в первом цикле заниматься UrlDecode, так как данные всё равно не будут теми, которые вам нужны в конечном варианте. Очень много преобразований.
Советую (я обычно так и делаю) убрать первый цикл заполнения данными DS (сделать после этого разумеется Bind). Но в цикле, в котором у вас делается HtmlDecode этого делать уже не надо будет. Нужно заполнить данными эти ячейки (как в убранном цикле). Но используя свойство .Text можно записать сразу html код, который не нужно даже энкодить потом.

примерно в таком виде.. пример с одной из ссылок

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 ...
                GridView1.DataSource = DS.Tables("DefaultTable")
                GridView1.DataBind()
 
                For i As Integer = 0 To GridView1.Rows.Count - 1
 
                        Dim slovoPos As Integet = 2
                        Dim pagePos As Integet = 3
 
                        Dim slovoText As String = GridView1.Rows(i).Cells(slovoPos).Text
                        Dim pageText As String = GridView1.Rows(i).Cells(pagePos).Text
 
                        GridView1.Rows(i).Cells(slovoPos).Text = Context.Server.HtmlDecode(slovoText)
                        GridView1.Rows(i).Cells(pagePos).Text = "<a target='_blank' href='" & pageText & "'>" & pageText & "</a>"
                Next

Судя по коду, в колонке "slovo" у вас уже ссылка, которую надо декодировать. А возможно и нет. Можно проверить.

@hamele0n · 02.11.2012, 22:34 **[ТС]**

HF, спасибо вы правы, так меньше ресурсов тратиться

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@hamele0n 29 / 29 / 1 Регистрация: 01.10.2010 Сообщений: 171
	02.11.2012, 22:34 [ТС]
	HF, спасибо вы правы, так меньше ресурсов тратиться 0