ASP对数据库执行函数,利用数组处理.

'插入记录=========================

function SqlInsert(ITableName,IFileldb,IDataBase)
 For i = Lbound(IFileldb) to Ubound(IFileldb)
  If i <> Ubound(IFileldb) Then
   If IFileldb(i+1) <> empty then
    IFileldbS = IFileldbS & IFileldb(i) & ","
    IDataBaseS = IDataBaseS & IDataBase(i) & ","
   Else
    IFileldbS = IFileldbS & IFileldb(i)
    IDataBaseS = IDataBaseS & IDataBase(i)
   End If
  Else
   IFileldbS = IFileldbS & IFileldb(i)
   IDataBaseS = IDataBaseS & IDataBase(i)
  End If
 Next
 sql = "insert into [" & ITableName & "](" & IFileldbS & ") values(" & IDataBaseS & ")"
 con.execute(sql)
end function
'更新记录=========================
function SqlUpdate(UTableName,UFileldb,UDataBase,Qualification)
 For i = Lbound(UFileldb) to Ubound(UFileldb)
  If UFileldb(i) = empty then exit For
  If i <> Ubound(UFileldb) Then
   If UFileldb(i+1) <> empty then
    Result = Result & (UFileldb(i) & "=" & UDataBase(i) & ",")
   Else
    Result = Result & (UFileldb(i) & "=" & UDataBase(i))
   End If
  Else
   Result = Result & (UFileldb(i) & "=" & UDataBase(i))
  End If
 Next
 sql = "update [" & UTableName & "] set " & Result & " where " & Qualification & ""
 con.execute(sql)
end function

 

 

'定义变量和数组=========================

Dim ITableName,IFileldb(1),IDataBase(1),UTableName,UFileldb(1),UDataBase(1)

 

'插入记录=========================

  ITableName = "T_Admin" '数据表名称
  IFileldb(0) = "UserName" '字段名称
  IDataBase(0) = "'" & Request.Form("UserName") & "'" '表单名称
  IFileldb(1) = "PassWord"
  IDataBase(1) = "'" & md5(trim(Request.Form("PassWord")),32) & "'"
  SqlInsert ITableName,IFileldb,IDataBase '调用函数

 

'更新记录=========================

  UTableName = "T_Admin" '数据表名称
  UFileldb(0) = "UserName" '字段名称
  UDataBase(0) = "'" & Request.Form("UserName") & "'" '表单名称
  if Request.Form("PassWord") <> empty then
   UFileldb(1) = "PassWord"
   UDataBase(1) = "'" & md5(trim(Request.Form("PassWord")),32) & "'"
  End if
  SqlUpdate UTableName,UFileldb,UDataBase,"ID=" & Request.Form("ID") 'ID为条件,调用函数

 

 

数组长度从0开始,2个字段的把数组长度定义为1,可以按照需要更改长度.

以上方法有效避免繁琐的数据库操作代码编写,避免不必要的错误,节省了调试的时间.