 |
|
|
 首页 |
名片设计 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) & "\\\'" 返回类别: 教程 上一教程: 一个求最大值与最小值的函数 下一教程: 保护你的ASP页面的两种办法 您可以阅读与"解决在ASP中执行数据库查询中的特别字符的问题"相关的教程: · 数据库查询中的特别字符的问题 · 解决ASP执行DB查询中的特别字符问题 · 解决使用ASP无法连接ORACLE 9I数据库的问题 · 利用ASP和WML来实现数据库查询 · 用ASP和WML来实现数据库查询 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
