ASP之Sql操作函数

  1 <%
  2     '' ==========================================================
  3     '     开发人员：zk
  4     '     编写时间：2006-3-30
  5     '     函数名称：InsertToTable
  6     '     参数说明：Conn(数据库连接)
  7     '     参数说明：sTableName(表名)
  8     '     参数说明：aAllUpdate(所有的更新,使用字符串数组,使用<字段名=值>的形式)
  9     '      返回值  : 操作是否成功
 10     '     功能说明：向数据库表内插入记录
 11     '' ==========================================================
 12     Function InsertToTable(Conn, sTableName, aAllUpdate)
 13 
 14         Dim sSql
 15         sSql = "insert into " & sTableName & "("
 16         If IsArray(aAllUpdate) Then
 17             Dim iNum
 18             iNum = 0
 19             For Each sUpdate In aAllUpdate
 20                 Dim sLeft
 21                 sLeft = Left(sUpdate, InStr(sUpdate, "=") - 1)
 22                 If iNum = 0 Then
 23                     sSql = sSql & sLeft
 24                 Else
 25                     sSql = sSql & "," & sLeft
 26                 End If
 27                 iNum = iNum + 1
 28             Next
 29             sSql = sSql & ") values("
 30             iNum = 0
 31             For Each sUpdate In aAllUpdate
 32                 Dim sRight
 33                 sRight = Right(sUpdate, Len(sUpdate) - InStr(sUpdate, "="))
 34                 If iNum = 0 Then
 35                     sSql = sSql & sRight
 36                 Else
 37                     sSql = sSql & "," & sRight
 38                 End If
 39                 iNum = iNum + 1
 40             Next
 41             sSql = sSql & ")"
 42 
 43             Conn.Execute(sSql)
 44 
 45             InsertToTable = True
 46         Else
 47             InsertToTable = False
 48             Exit Function
 49         End If
 50         InsertToTable = True
 51 
 52     End Function
 53    
 54     '' ==========================================================
 55     '     开发人员：zk
 56     '     编写时间：2006-3-30
 57     '     函数名称：DeleteFromTable
 58     '     参数说明：Conn(数据库连接)
 59     '     参数说明：sTableName(表名)
 60     '     参数说明：sWhereClause(where子句)
 61     '      返回值  : 操作是否成功
 62     '     功能说明：删除数据库表内符合条件的记录
 63     '' ==========================================================
 64     Function DeleteFromTable(Conn, sTableName, sWhereClause)
 65 
 66         Dim sSql
 67         sSql = "select * from " & sTableName & " where 1=1"
 68         If sWhereClause <> "" And sWhereClause <> Empty Then
 69             sSql = sSql & " and " & sWhereClause
 70         End If
 71        
 72         Dim rs
 73         set rs=server.createobject("adodb.recordset")
 74         rs.open sSql,Conn,3,3
 75         if not rs.EOF then
 76             rs.delete
 77         end if
 78 
 79         rs.close
 80         set rs=Nothing
 81        
 82         DeleteFromTable = True
 83    
 84     End Function
 85 
 86     '' ==========================================================
 87     '     开发人员：zk
 88     '     编写时间：2006-3-30
 89     '     函数名称：UpdateToTable
 90     '     参数说明：Conn(数据库连接)
 91     '     参数说明：sTableName(表名)
 92     '     参数说明：sWhereClause(where子句)
 93     '     参数说明：aAllUpdate(所有的更新,使用字符串数组)
 94     '      返回值  : 操作是否成功
 95     '     功能说明：更新数据库表内符合条件的记录
 96     '' ==========================================================
 97     Function UpdateToTable(Conn, sTableName, sWhereClause, aAllUpdate)
 98         Dim sSql
 99         sSql = "update " & sTableName & " set "
100         If IsArray(aAllUpdate) Then
101             Dim iNum
102             iNum = 0
103             For Each sUpdate In aAllUpdate
104                 If iNum = 0 Then
105                     sSql = sSql & sUpdate
106                 Else
107                     sSql = sSql & "," & sUpdate
108                 End If
109                 iNum = iNum + 1
110             Next
111 
112             sSql = sSql & " where 1=1"
113             If sWhereClause <> "" And sWhereClause <> Empty Then
114                 sSql = sSql & " and " & sWhereClause
115             End If
116 
117             Conn.Execute(sSql)
118 
119             UpdateToTable = True
120         Else
121             UpdateToTable = False
122             Exit Function
123         End If
124        
125     End Function
126    
127 %>

转载于:https://www.cnblogs.com/cime63/archive/2007/03/08/668089.html