<%
Function coder(str)
Dim i
If IsNull(str) Then : coder="" : Exit Function : End If
For i = 1 to Len(str)
Select case mid(str,i,1)
Case "<" : coder = coder &"<"
Case ">" : coder = coder &">"
Case "&" : coder = coder &"&"
Case chr(9) : coder = coder &" "
Case chr(13) : coder = coder &"<br/>"
Case chr(32) : coder = coder &" "
Case chr(34) : coder = coder &"""
Case chr(39) : coder = coder &"'"
Case Else : coder = coder & mid(str,i,1)
End Select
Next
End Function
%>
aa=request.form("aa")
aa=coder(aa)
conn.execute("insert into t1 (memo) values ('"&aa&"')
o . .- .-
./ .--...
o .-------- $ .--
o 分 o / .......
' ..
o o o '........ ----
o 分 . --..
o o o . .---.. -
o . ' -.
o o / '
o 分 / ' ' '
\-----/....... . ' ' ' '
\ __/ - - -' ' ' '
' ' ' '
o ' ' ' '
' ' '
-..'.----------.
I ----------
/////////.