Dim cmd1 As New SQ LCommand
cmd1.C
dim sql as string = "UPD ATE 用户表 S ET "
if e.PostValues.ContainsKey("所在部门")
sql = sql & "所在部门=?,"
cmd1.Parameters.Add("@所在部门", e.PostValues("所在部门"))
end if
if e.PostValues.ContainsKey("职务")
sql = sql & "职务=?,"
cmd1.Parameters.Add("@职务", e.PostValues("职务"))
end if
……
sql = sql.trim(",") & " WHERE 单位名称=? and 姓名=? "
cmd1.Parameters.Add("@单位名称", e.Cookies("单位名称"))
cmd1.Parameters.Add("@姓名", e.Cookies("姓名"))
cmd1.ExecuteNonQuery