Set Rs1 = Server.CreateObject("Adodb.RecordSet")
Sql1="Select * from department Where [department]='"&department&"'"
RS1.Open Sql1,conn,1,3
If Rs1.Bof Then
Rs1.AddNew
Rs1("department") = department
Rs1.Update
Rs1.Close
Set Rs1=Nothing
End If
上面这段应该是要在
If Request("Action") = "post" Then
End If
之间才对吧
不然空值就出来了 department根本就没有值撒