chang_sucess.asp

好用的管理,代码程序 好用的管理,代码程序

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<script>

    if(!confirm("变更销售员成功.\n您是否要继续操作?")){
	    window.close()
	}
	else{
	  window.location.close
	}

</script>

<%
	dim xxsy
	dim beizu
	
	xxsy=request("xxsy")
	beizu=request("bz")
	
	Set rs= Server.CreateObject ("ADODB.RecordSet")
	rs.open "select * from T_Client where F_EClerk='"&request("yxsy")&"'",MM_EmpMain_STRING,3,3
	
	
	while not rs.eof
		rs("F_EClerk")=xxsy
		rs("F_OldSalesPeople")=beizu
		rs.movenext
	wend
    
	
%>