Word Dosyalarının Htm Formatına çevirilmesi
--------------------------------------------------------------------------------
'
' Server uzerince ms word bulunmasi gerekir )
' RTF ve DOC formatlari icin calisiyor
' RTFFileNAme ile verilen dosyayi cHtmlFile ile verilen dosyaya kaydeder
' ------------------------------------------------------------------------
Public Function RTF2HTML(cRtfFile, cHtmFile)
Dim wApp
dim fileObj
Set fileObj = CreateObject("Scripting.FileSystemObject")
if fileOBJ.FileExists(cRTFFile) = False Then
RTF2HTML = FALSE
Else
Set wApp = CreateObject("Word.Application")
wApp.Visible = True
wApp.ShowMe()
wApp.Documents.Open(cRTFFile)
wApp.Documents(1).Activate
call wApp.Documents(1).saveas(cHtmFile,8)
call wApp.Documents.close()
wApp.Quit
RTF2HTML = TRUE
End if
Set wApp = Nothing
Set fileObj = Nothing
End Function[/B]
[B]Özel Karakter
<%
For i = 33 to 44
response.write "Chr(" & i & ") = " & Chr(i) & "
"
Next
response.write "Chr(47) = " & Chr(47) & "
"
For i = 58 to 63
response.write "Chr(" & i & ") = " & Chr(i) & "
"
Next
For i = 91 to 94
response.write "Chr(" & i & ") = " & Chr(i) & "
"
Next
response.write "Chr(96) = " & Chr(96) & "
"
response.write "Chr(123) = " & Chr(123) & "
"
%>
<-- Sonuç -->
Chr(33) = !
Chr(34) = "
Chr(35) = #
Chr(36) = $
Chr(37) = %
Chr(38) = &
Chr(39) = '
Chr(40) = (
Chr(41) = )
Chr(42) = *
Chr(43) = +
Chr(44) = ,
Chr(47) = /
Chr(58) = :
Chr(59) = ;
Chr(60) = <
Chr(61) = =
Chr(62) = >
Chr(63) = ?
Chr(91) = [
Chr(92) = \
Chr(93) = ]
Chr(94) = ^
Chr(96) = '
Chr(123) = {