bmtjsu.asp

人事管理系统 人事管理系统 人事管理系统 人事管理系统

<%
dim gh
bm=request("bm")


set conn=Server.CreateObject("adodb.connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/rsxt.mdb") 
set rs=Server.CreateObject("adodb.recordset")
sql="select * from [bmda]"
rs.open sql,conn,1,3
rs.addnew
rs("bm")=bm

rs.update
rs.close
set rs=nothing
%>
<!-- #include file="Inc/Head.asp" -->
   <div align="center" class="style1"><br>
  
  <br><br><br></div>你添加的部门是:<%=bm%>
   
</body>
</html>