autofill.asp

来自「一个比较完整的企业erp系统」· ASP 代码 · 共 61 行

<!--#include file="../config2.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 5000100	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
From_Employee_Name = request("From_Employee_Name")
To_Employee_Name = request("To_Employee_Name")

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
'移交人
sql = "select Employee_ID,Employee_Name from Employee where Employee_Name like '%" & From_Employee_Name & "%'"
set rs = conn.execute(sql)
if not rs.eof then
	From_Employee_ID = rs("Employee_ID")
	From_Employee_Name = rs("Employee_Name")
else
	From_Employee_ID = ""
	From_Employee_Name = ""
end if
'接交人
sql = "select Employee_ID,Employee_Name from Employee where Employee_Name like '%" & To_Employee_Name & "%'"
set rs = conn.execute(sql)
if not rs.eof then
	To_Employee_ID = rs("Employee_ID")
	To_Employee_Name = rs("Employee_Name")
else
	To_Employee_ID = ""
	To_Employee_Name = ""
end if

rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<script language="JavaScript" type="text/javascript">
	if(document.all){
		<% If not IsNot(From_Employee_ID,"n") then %>
		alert('移交人姓名填写有误，请重新填写');
		parent.frm.From_Employee_Name.select();
		<% End If %>
		<% If not IsNot(To_Employee_ID,"n") then %>
		alert('接待交人姓名填写有误，请重新填写');
		parent.frm.To_Employee_Name.select();
		<% End If %>
		parent.frm.From_Employee_ID.value = '<%=From_Employee_ID%>';
		parent.frm.To_Employee_ID.value = '<%=To_Employee_ID%>';
		parent.frm.From_Employee_Name.value = '<%=From_Employee_Name%>';
		parent.frm.To_Employee_Name.value = '<%=To_Employee_Name%>';
		parent.msg.style.visibility = 'hidden';
	}
</script>