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