<%
if request("action")="update" then
dim id,bmmc
for i=1 to request.form("id").count
id=replace(trim(request.form("id")(i)),"'","")
bmmc=replace(trim(request.form("bmmc")(i)),"'","")
bmdh=replace(trim(request.form("bmdh")(i)),"'","")
conn.execute("update T_BM set bmmc='"&bmmc&"',bmdh='"&bmdh&"' where id="&id)
next
end if
if request("action")="add" then
bmmc=replace(trim(request.form("bmmc1")),"'","")
bmdh=replace(trim(request.form("bmdh1")),"'","")
If bmmc="" Then
response.write "部门名称不能为空！请返回重新填写！"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from T_bm where bmmc='"&bmmc&"'"
rs.open sql,conn,3,3
if not rs.eof then
response.write "已经存在这个部门名称！请返回重新填写！"
response.end
end if
rs.close
set rs=nothing
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from T_bm where 1=2"
rs.open sql,conn,3,3
rs.addnew
rs("bmmc")=bmmc
rs("bmdh")=bmdh
rs.update
rs.close
set rs=nothing
end if
conn.close
set conn=nothing
response.write "恭喜您!设置成功!
1秒钟后返回上页!"
response.write ""
%>