'插入记录=========================
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,可以按照需要更改长度.
以上方法有效避免繁琐的数据库操作代码编写,避免不必要的错误,节省了调试的时间.