Pored svega ovoga se moze postaviti i online konvertor ako je slucaj da ASP cita iz access ili sql baze.....
Ovo je ASP primjer sa access-om gdje se moze staviti u {viticastu zagradu} dio koji nije za prevod kao npr. Celzius, Windows XP, New York, XV
------------------------------------------------------------------------------
<%
Conn ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("baza.mdb")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open Conn
%>
<html>
<head>
<title>ASP konvertor lat-cir</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<meta http-equiv="Content-Language" content="hr">
</head>
<body>
<a href="novo.asp?pismo=cirilica">Ćirilica</a> - <a href="novo.asp">Latinica</a><br>
<br>
<%
'Funkcija za prevod latinica-cirilica
Function prevedi_ba(sInput,sPismo)
if sPismo<>"cirilica" then
prevedi_ba=sInput
Exit Function
end if
sTekst=sInput
iLen=Len(sTekst)
Dim NizSlova
NizSlova = array("")
ReDim Preserve NizSlova(iLen)
Dim bSmrad
bSmrad = 0
i = 1
do while i <= iLen
NizSlova(i) = Mid(sTekst,i,1)
'Preskakanje prevoda sa HTML tagovima
if Mid(sTekst,i,1) = "<" then
bSmrad = 1
end if
if Mid(sTekst,i,1) = ">" then
bSmrad = 0
end if
'Namjerno preskakanje prevoda i brisanje markera
if Mid(sTekst,i,1) = "{" then
NizSlova(i) = ""
bSmrad = 1
end if
if Mid(sTekst,i,1) = "}" then
NizSlova(i) = ""
bSmrad = 0
end if
'Naša kombinovana slova (dz, lj, nj)
if i<>iLen and bSmrad = 0 then
'Veliko DŽ
if NizSlova(i) = "D" then
if (Mid(sTekst,i+1,1) = "Ž") or (Mid(sTekst,i+1,1) = "ž") then
NizSlova(i) = "Џ"
i=i+1
end if
end if
'Malo dž
if NizSlova(i) = "d" then
if Mid(sTekst,i+1,1) = "ž" then
NizSlova(i) = "џ"
i=i+1
end if
end if
'Veliko LJ
if NizSlova(i) = "L" then
if (Mid(sTekst,i+1,1) = "J") or (Mid(sTekst,i+1,1) = "j") then
NizSlova(i) = "Љ"
i=i+1
end if
end if
'Malo lj
if NizSlova(i) = "l" then
if Mid(sTekst,i+1,1) = "j" then
NizSlova(i) = "љ"
i=i+1
end if
end if
'Veliko NJ
if NizSlova(i) = "N" then
if (Mid(sTekst,i+1,1) = "J") or (Mid(sTekst,i+1,1) = "j") then
NizSlova(i) = "Њ"
i=i+1
end if
end if
'Malo nj
if NizSlova(i) = "n" then
if Mid(sTekst,i+1,1) = "j" then
NizSlova(i) = "њ"
i=i+1
end if
end if
end if
'Naša obicna slova
if bSmrad = 0 then
NizSlova(i) = Replace(NizSlova(i), "B", "Б", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "b", "б", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "C", "Ц", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "c", "ц", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "Č", "Ч", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "č", "ч", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "Ć", "Ћ", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "ć", "ћ", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "D", "Д", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "d", "д", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "Đ", "Ђ", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "đ", "ђ", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "F", "Ф", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "f", "ф", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "G", "Г", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "g", "г", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "H", "Х", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "h", "х", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "I", "И", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "i", "и", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "K", "К", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "k", "к", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "L", "Л", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "l", "л", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "M", "М", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "m", "м", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "N", "Н", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "n", "н", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "P", "П", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "p", "п", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "R", "Р", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "r", "р", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "S", "С", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "s", "с", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "Š", "Ш", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "š", "ш", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "T", "Т", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "t", "т", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "U", "У", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "u", "у", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "V", "В", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "v", "в", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "Z", "З", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "z", "з", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "Ž", "Ж", 1,-1,0)
NizSlova(i) = Replace(NizSlova(i), "ž", "ж", 1,-1,0)
end if
i=i+1
loop
'Join niza
sRezultat=""
for i = 1 to iLen
sRezultat = sRezultat & NizSlova(i)
next
prevedi_ba=sRezultat
End Function
%>
<%
SQLStmt = "SELECT * FROM podaci where text like '%" & a & "%' ORDER BY meni_id"
Set UP = Connection.Execute(SQLStmt)
%>
<% Do Until UP.EOF %>
<font size="2" face="Tahoma"><b>
<%= prevedi_ba(UP("meni"),Request("pismo")) %><br>
<%= prevedi_ba(UP("podmeni"),Request("pismo")) %><br><br></b>
<%= prevedi_ba(UP("text"),Request("pismo")) %><br><br>
</font><hr>
</body>
<%UP.MoveNext
loop %><%UP.Close%>
<%Connection.Close %>
Aleksandar M.