XML Internet Explorer encoding

Συζητήσεις για XML, XSLT, RSS και παράγωγα της γενικότερης XML

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
skoybrina
Δημοσιεύσεις: 2
Εγγραφή: 26 Μαρ 2007 20:50

XML Internet Explorer encoding

Δημοσίευση από skoybrina » 09 Μαρ 2009 11:50

Καλημέρα σας, έχω ένα πρόβλημα.
Ο Internet Explorer 7 ,δεν μου εμφανίζει τα ελληνικά τα οποία τα παίρνει από μία xml σελίδα.
Εδώ είναι ο κώδικας της σελίδας και συνάπτω και εικόνα :


<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:output method="xml" encoding="utf-8" omit-xml-declaration="yes" indent="no" />
<xsl:variable name="images.folder" select="'tree/images'" />
<xsl:template match="/">
<div>
<xsl:apply-templates />
</div>
</xsl:template>
<xsl:template match="row">
<xsl:variable name="menu.id" select="col[1]" />
<xsl:variable name="text" select="col[2]" />
<xsl:variable name="has.child" select="col[3]" />
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td rowspan="2" width="10" valign="top">
<img id="I{$menu.id}">
<xsl:choose>
<xsl:when test="number($has.child) &gt; 0">
<xsl:attribute name="src">
<xsl:value-of select="concat($images.folder,'/plus.gif')"/>
</xsl:attribute>
<xsl:attribute name="onclick">
<xsl:value-of select="concat('loadItems(',$menu.id,')')"/>
</xsl:attribute>
</xsl:when>
<xsl:otherwise>
<xsl:attribute name="src">
<xsl:value-of select="concat($images.folder,'/dot.gif')"/>
</xsl:attribute>
</xsl:otherwise>
</xsl:choose>
</img>
</td>
<td nowrap="true">
<a href="javascript: showEnt({$menu.id}, '{$text}','{$has.child}');">
<xsl:value-of select="$text" />
</a>
</td>
</tr>
<tr>
<td id="C{$menu.id}" style="display:none;"></td>
</tr>
</table>
</xsl:template>
</xsl:stylesheet>
Συνημμένα
problem.png

sibas
Honorary Member
Δημοσιεύσεις: 1856
Εγγραφή: 21 Φεβ 2003 01:21
Τοποθεσία: Μια εδώ.. Μια εκεί.. Σήμερα είμαι εδώ!!!
Επικοινωνία:

XML Internet Explorer encoding

Δημοσίευση από sibas » 09 Μαρ 2009 12:30

Το ελληνικό κείμενο που είναι περασμένο, και πως;

skoybrina
Δημοσιεύσεις: 2
Εγγραφή: 26 Μαρ 2007 20:50

XML Internet Explorer encoding

Δημοσίευση από skoybrina » 09 Μαρ 2009 12:41

Αυτη είναι η κλάση η οποία διαβάζει τα δεδομένα από την βάση.
Μόνο στο κομμάτι της XML έχω το πρόβλημα και μονο στο ΙΕ, γιατι στον firefox φαίνονται κανονικά.

<%

Class TreeView

Private m_strMenuTable
Private m_strIdField
Private m_strParentIDField
Private m_strTextField
Private m_strConn

Public Property Let MenuTable(vNewValue): m_strMenuTable = vNewValue: End Property
Public Property Let IdField(vNewValue): m_strIdField = vNewValue: End Property
Public Property Let ParentIDField(vNewValue): m_strParentIdField = vNewValue: End Property
Public Property Let TextField(vNewValue): m_strTextField = vNewValue: End Property

Public Property Let ConnectionString(vNewValue): m_strConn = vNewValue: End Property

Private Sub Class_Initialize
m_strMenuTable = "CC_CATEGORIES"
m_strIdField = "ID"
m_strParentIDField = "Parent_ID"
m_strTextField = "title"
End Sub

Private Sub Class_Terminate
'Clear Objects
End Sub

Public Function GetChildNodes(intParentId)
Dim strSQL
strSQL = "SELECT " & _
m_strIdField & "," & _
m_strTextField & "," & _
"(SELECT COUNT(*) FROM " & m_strMenuTable & " B WHERE A."& m_strIdField &"=B." & m_strParentIDField & ") AS [HasChild]" & _
" FROM " & m_strMenuTable &" A "& _
" WHERE " & m_strParentIDField & " = " & intParentId &_
" and a.groupid in (" & session("user_groups") & ")"
Const strXsl = "treeview.xsl"
GetChildNodes = GetDbXml(m_strConn,strSQL, strXsl)
End Function

Private Function GetDbXml(strConn,strSQL,strXsl)
Dim strXml
'test strsql
strXml = GetDbString(strConn,strSql,"__COL","__ROW","__NULL")
strXml = Replace(strXml,"&","&amp;")
strXml = Replace(strXml,"<","&lt;")
strXml = Replace(strXml,"__COL","</col><col>")
strXml = Replace(strXml,"__ROW","</col></row><row><col>")
strXml = Replace(strXml,"__NULL","")

strXml = "<rows><row><col>" & strXml & "</col></row></rows>"

strXml = Replace(strXml,"<row><col></col></row>","")
If strXsl <> "" Then
Dim xml,xsl
'Load XML
if not loadXmlDoc(xml,strXml,"GetDb XML Source") then exit Function
if not loadXmlDoc(xsl,strXsl,"GetDb XSL Stylesheet") then exit Function

'Transform file
strXml = xml.transformNode(xsl)
Set xml = Nothing
Set xsl = Nothing
End If

GetDbXml = strXml
End Function

Private Function GetDbString(strConn,strSQL, ColumnDelimiter, RowDelimiter, NullExpr)
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn

Dim RS
Set RS = Conn.Execute(strSql)
If Not RS.EOF Then

GetDbString = RS.GetString(,, ColumnDelimiter, RowDelimiter, NullExpr)

'Cleanup!
RS.Close
End If

'Cleanup!
Set RS = Nothing
Conn.Close
Set Conn = Nothing
End function

Private Function LoadXmlDoc(ByRef xmldoc, ByVal source, ByVal title)
If Trim(source) = "" Then
Exit Function
End If

Set xmldoc = Server.CreateObject("Microsoft.XMLDOM")
If Left(source,7) = "http://" Then
xmldoc.setProperty "ServerHTTPRequest", True
xmldoc.async = False
xmldoc.Load(source)
Else
'set xmldoc = Server.CreateObject("Microsoft.XMLDOM")
xmldoc.async = false
If InStr(source,"<") Then
xmldoc.loadXml(source)
else
if InStr(source,":\") = 0 then source = Server.MapPath(source)
'test source
xmldoc.load(source)
end if
End If

if xmldoc.parseError.errorcode<>0 then
'"<error code='" & xmldoc.parseError.errorcode & "'><![CDATA[" & xmldoc.parseError.reason & "]]></error>"
else
LoadXmlDoc = True
end if
End Function

End Class

%>

sibas
Honorary Member
Δημοσιεύσεις: 1856
Εγγραφή: 21 Φεβ 2003 01:21
Τοποθεσία: Μια εδώ.. Μια εκεί.. Σήμερα είμαι εδώ!!!
Επικοινωνία:

XML Internet Explorer encoding

Δημοσίευση από sibas » 09 Μαρ 2009 13:49

Βλέπω ότι χρησιμοποιείς XMLDOM και δεν ξέρω τίποτα για asp :(
ωστόσο δοκίμασε transformNodeToObject
φαντάζομαι ότι όλα τα αρχεία σου είναι utf-8

Απάντηση

Επιστροφή στο “XML, XSLT”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες