xiugaisave.asp

来自「留言簿毕业设计用ASP和SQL2000开发的能够链接」· ASP 代码 · 共 23 行

<%
 Dim sql,vID,vUserId,vUserName,vxingbie,vbumen,vriqi,vjiguan,vxueli,vzhuangye,vmianmao,vzhicheng
 vID = Request("ID")
 vUserId = Request("UserId")
 vUserName = Request("UserName")
 vxingbie =Request("xingbie")
 vbumen = Request("bumen")
 vriqi = Request("riqi")
 vjiguan = Request("jiguan")
 vxueli = Request("xueli")
 vzhuangye = Request("zhuanye")
 vmianmao=Request("mianmao")
 vzhicheng=Request("zhicheng")
  Set Conn=Server.CreateObject("ADODB.Connection")
  Conn.ConnectionString="driver={SQL Server};server=(local);UID=sa;PWD=13513343483;Database=学院人事管理系统"
  Conn.Open
   sql = "UPDATE 人员基本信息 SET  xingbie='" & vxingbie & "', bumen='" & vbumen & "', riqi='" & vriqi & "', jiguan='" & vjiguan & "', xueli='" & vxueli & "', zhuanye='" & vzhuangye & "', mianmao='" & vmianmao & "', zhicheng='" & vzhicheng & "' Where ID=" & vID
   	   Conn.Execute(sql)
	  conn.close
	End If
	Response.Redirect"xiugaisuccess.asp"
%>