conn.execute("insert into t1 (memo) values ('"&request.form("aa")&"')")

[Prior_121]

conn.execute("insert into t1 (memo) values ('"&request.form("aa")&"')")
在执行此语句时，如果request.Form("aa")的值是：“sdf','sdfsd”或类似的时候，便会出错。如何避免。
条件是，必须使用SQL，而不使用addnew

[enling322]

o . .- .-
./ .--...
o .-------- $ .--
o 分 o / .......
' ..
o o o '........ ----
o 分 . --..
o o o . .---.. -
o . ' -.
o o / '
o 分 / ' ' '
\-----/....... . ' ' ' '
\ __/ - - -' ' ' '
' ' ' '
o ' ' ' '
' ' '
-..'.----------.
I ----------
/////////.

经典,请支持

http://expert.csdn.net/Expert/topic/2921/2921075.xml?temp=.9381983

http://expert.csdn.net/Expert/topic/2921/2921075.xml?temp=.9381983

http://expert.csdn.net/Expert/topic/2921/2921075.xml?temp=.9381983

http://expert.csdn.net/Expert/topic/2921/2921075.xml?temp=.9381983

http://expert.csdn.net/Expert/topic/2921/2921075.xml?temp=.9381983

• 打赏
• 举报

回复 赞

[bzscs]

加一个replace(request.form("aa"),"'","''")

• 打赏
• 举报

回复 赞

[luluso]

<%
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&"')

• 打赏
• 举报

回复 赞

[qzriso]

必修替换掉',replace(request.form("aa"),"'","""")

• 打赏
• 举报

回复 赞

[Prior_121]

thanks

• 打赏
• 举报

回复 赞

[ratnight]

同意luluso(luluso）的

• 打赏
• 举报

回复 赞

[xieyj]

conn.execute("insert into t1 (memo) values ('"&replace(request.form("aa"),"'","''")&"')")

• 打赏
• 举报

回复 赞

[Prior_121]

luluso(luluso)的方法挺好，但在修改时会显示多余的html代码。bzscs(沙虫 玩笑切莫开过头)和qzriso(E形虫)，还有xieyj(Free Fish)的方法最好。

• 打赏
• 举报

回复 赞

[Homk]

replace(request.form("aa"),"'","''")

• 打赏
• 举报

回复 赞