- 数据库查询中的特殊字符的问题
- 作者：追风 来源：国BS网 添加时间：2002年12月12日 字体:大 中 小
- 80491在进行数据库的查询时，会经常遇到这样的情况：
-C,7P 例如想在一个用户数据库中查询他的用户名和他的密码，但恰好该用户使用的名字和密码中有特殊的字符，例如单引号，“|”号，双引号或者连字符“&”。
-C,7P 例如他的名字是1"test，密码是A|&900
-C,7P 这时当你执行以下的查询语句时，肯定会报错：
-C,7PSQL = "SELECT * FROM SecurityLevel WHERE UID="" & UserID & """
-C,7PSQL = SQL & " AND PWD="" & Password & """
-C,7P 因为你的SQL将会是这样：
-C,7PSELECT * FROM SecurityLevel WHERE UID="1"test" AND PWD="A|&900"
-C,7P 在SQL中，"|"为分割字段用的，显然会出错了。现在提供下面的几个函数 专门用来处理这些头疼的东西：
-C,7PFunction ReplaceStr (TextIn, ByVal SearchStr As String, _
-C,7PByVal Replacement As String, _
-C,7PByVal CompMode As Integer)
-C,7P
-C,7P
-C,7P Dim WorkText As String, Pointer As Integer
-C,7P If IsNull(TextIn) Then
-C,7P ReplaceStr = Null
-C,7P Else
-C,7P WorkText = TextIn
-C,7P Pointer = InStr(1, WorkText, SearchStr, CompMode)
-C,7P Do While Pointer > 0
-C,7P WorkText = Left(WorkText, Pointer - 1) & Replacement & _
-C,7P Mid(WorkText, Pointer + Len(SearchStr))
-C,7P Pointer = InStr(Pointer + Len(Replacement), WorkText, SearchStr, CompMode)
-C,7P Loop
-C,7P ReplaceStr = WorkText
-C,7P End If
-C,7PEnd Function
-C,7P
-C,7P
-C,7PFunction SQLFixup(TextIn)
-C,7P SQLFixup = ReplaceStr(TextIn, """, """", 0)
-C,7PEnd Function
-C,7PFunction JetSQLFixup(TextIn)
-C,7P Dim Temp
-C,7P Temp = ReplaceStr(TextIn, """, """", 0)
-C,7P JetSQLFixup = ReplaceStr(Temp, "|", "" & chr(124) & "", 0)
-C,7PEnd Function
-C,7P
-C,7P
-C,7PFunction FindFirstFixup(TextIn)
-C,7P Dim Temp
-C,7P Temp = ReplaceStr(TextIn, """, "" & chr(39) & "", 0)
-C,7P FindFirstFixup = ReplaceStr(Temp, "|", "" & chr(124) & "", 0)
-C,7PEnd Function
-C,7P 有了上面几个函数后，当你在执行一个sql前，请先使用
-C,7PSQL = "SELECT * FROM SecurityLevel WHERE UID="" & SQLFixup(UserID) & """
-C,7PSQL = SQL & " AND PWD="" & SQLFixup(Password) & """80488
- 返回页面顶端
- 上一篇：实现WEB中的@虚拟域名系统(原理篇)
- 下一篇：判断Cookies是否处于开启状态
返回上一页
打印本文
加入收藏
页面最后更新时间：2010年3月10日
