 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
在进行数据库的查询时，会常常碰到这样的情况： 例如想在一个用户数据库中查询他的用户名和他的密码，但恰好该用户使用的名字和密码中有特别的字符，例如单引号，“|”号，双引号或者连字符“&”。 例如他的名字是1"test，密码是A|&900 这时当你执行以下的查询语句时，肯定会报错： SQL = "SELECT * FROM SecurityLevel WHERE UID="" & UserID & """ SQL = SQL & " AND PWD="" & Password & """ 因为你的SQL将会是这样： SELECT * FROM SecurityLevel WHERE UID="1"test" AND PWD="A|&900" 在SQL中，"|"为分割字段用的，显然会出错了。现在提供下面的几个函数 专门用来处理这些头疼的东西： Function ReplaceStr (TextIn, ByVal SearchStr As String, _ ByVal Replacement As String, _ ByVal CompMode As Integer) Dim WorkText As String, Pointer As Integer If IsNull(TextIn) Then ReplaceStr = Null Else WorkText = TextIn Pointer = InStr(1, WorkText, SearchStr, CompMode) Do While Pointer > 0 WorkText = Left(WorkText, Pointer - 1) & Replacement & _ Mid(WorkText, Pointer + Len(SearchStr)) Pointer = InStr(Pointer + Len(Replacement), WorkText, SearchStr, CompMode) Loop ReplaceStr = WorkText End If End Function Function SQLFixup(TextIn) SQLFixup = ReplaceStr(TextIn, """, """", 0) End Function Function JetSQLFixup(TextIn) Dim Temp Temp = ReplaceStr(TextIn, """, """", 0) JetSQLFixup = ReplaceStr(Temp, "|", "" & chr(124) & "", 0) End Function Function FindFirstFixup(TextIn) Dim Temp Temp = ReplaceStr(TextIn, """, "" & chr(39) & "", 0) FindFirstFixup = ReplaceStr(Temp, "|", "" & chr(124) & "", 0) End Function 有了上面几个函数后，当你在执行一个sql前，请先使用 SQL = "SELECT * FROM SecurityLevel WHERE UID="" & SQLFixup(UserID) & """ SQL = SQL & " AND PWD="" & SQLFixup(Password) & """ 原理也不难，但我总觉得是不是麻烦？有没有更好的方式？要么我想用javascript控制不使用这些符号。 返回类别: 教程 上一教程: 用正则表达式搜索电子邮件 下一教程: 巧用ASP技术保护DHTML源代码 您可以阅读与"数据库查询中的特别字符的问题"相关的教程: · 解决在ASP中执行数据库查询中的特别字符的问题 · 解决ASP执行DB查询中的特别字符问题 · 连接数据库查询手册 · ACCESS通用－自动替换数据库中的字符串 · 用ASP和WML来实现数据库查询 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
