xgongziz.asp

来自「企业信息化管理系统：针对的是一个计算机配件生产公司为背景实现的。」· ASP 代码 · 共 24 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file ="Connections/auto.asp"-->
<%
	id=request("sid")
	syear=request("syear")
	smonth=request("smonth")
	jbgz=request("jbgz")
	zwbt=request("zwbt")
	jjin=request("jjin")
	kc=request("kc")
	shui=request("shui")
	sf=cint(jbgz)+cint(zwbt)+cint(jjin)-cint(kc)-cint(shui)
	sqlstr="delete from gongzi where ( id='" &id &"' and syear='" & syear &"' and smonth='"& smonth &"' )"
	set rs=CN.execute(sqlstr)
	sqlstr="insert into gongzi values('" & id &"'," &jbgz&"," &zwbt&","&jjin&","&kc&","&shui&","&sf&",'"&syear&"','"&smonth&"')"
	set rs=CN.execute(sqlstr)
%>
<script language="javascript">
  yes =window.confirm("工资已修改！")
</script>
<% 
    response.Redirect("AXgongzi.asp")
%>