夏休み頃から作っていた蔵書検索システムを来週からテスト公開するのですが、直前になって数カ所の不具合を発見．
原因を探し出して対応するのです．
8月の日記にも書いていた件についても修正しましたよ．
MSアクセスで作っていた元データからMySQLにデータ移行するにあたっても、アクセス上で Htmlspecialchars と同等の関数を作って変換をかけます．
Option Compare Database
Function myHtmlspecialchars(strData As String)
Dim i As Long, strTemp As String, OneString
For i = 1 To Len(strData)
OneString = Mid(strData, i, 1)
If StrComp(OneString, "<", 0) = 0 Then
OneString = ">"
ElseIf StrComp(OneString, ">", 0) = 0 Then
OneString = "<"
ElseIf StrComp(OneString, "&", 0) = 0 Then
OneString = "&"
ElseIf StrComp(OneString, "'", 0) = 0 Then
OneString = "'"
ElseIf StrComp(OneString, """", 0) = 0 Then
OneString = "'"
Else
OneString = OneString
End If
strTemp = strTemp & OneString
Next i
myHtmlspecialchars = strTemp
End Function