复件 emp_oa.inc

物业管理和办公自动化系统

<%
Function FirstForm()
	FirstForm = _
		"<form method=post name=""frmAddEmp"" action=""emp_oa.asp"" onsubmit=""return(CheckInput());"">" & vbLF & _
		"<input type=""hidden"" name=""co_id"" value=""" & co_id & """>" & vbLF & _
		"<input type=""hidden"" name=""isdummy"" value=""" & isdummy & """>" & vbLF & _
		"<input type=""hidden"" name=""dismissed"" value=""" & dismissed & """>" & vbLF & _
		"<input type=""hidden"" name=""step"" value=""2"">" & vbLF & _
		"<table width=600 cellspacing=2 cellpadding=2 align=center background=""images/bgdots.gif"">" & vbLF & _
		"		<tr bgcolor=""#0040a0"" height=15 align=center style=""font-weight:600;color:white"">" & vbLF & _
		"				<td>第一步：请输入员工姓名和用户名</td></tr>" & vbLF & _
		"		<tr bgcolor=white height=200 align=center>" & vbLF & _
		"				<td><span id=""tip"" style=""color:red"">" & sTip & "</span><br>" & vbLF & _
		"				<br>姓　名：　<input type=""text"" name=""name"" value=""" & sName & """ size=20 maxlength=20>" & _
		"				<br>&nbsp;" & vbLF & _
		"				<br>用户名：　<input type=""text"" name=""account_id"" value=""" & sAccountId & """ size=20 maxlength=20>" & vbLF & _
		"				<br>&nbsp;" & vbLF & _
		"				<br>角　色：　<select name=""role"" style=""width:130px"">" & vbLF & _
												selectOptions(dbLocal, "t_role", "role_id", "role_desp", role , "") & _
												"</select></td></tr>" & vbLF & _
		"		<tr bgcolor=white align=center>" & vbLF & _
		"				<td><input type=""image"" src=""images/button_2.gif"" style=""border-width:0""></td></tr>" & vbLF & _
		"		<tr bgcolor=white height=2><td></td></tr>" & vbLF & _
		"</table>" & vbLF & _
		"</form>" & vbLF
End Function

Function TableLink()
	TableLink = _
		"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & vbLF & _
		"<tr height=10>" & vbLF & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & vbLF & _
		"</tr>" & vbLF & _
		"<tr>" & vbLF & _
		"	<td width=600>&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""emp_ol.asp"">员工信息查询</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""position.asp"">职务管理</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""title.asp"">职称管理</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""node_o.asp"">组织结构管理</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""emp_odl.asp"">离职员工查询</a></td>" & vbLF & _
		"</tr>" & _
		"</table>"
End Function


sub CheckAccountId()
	dim sAccountId	:	sAccountId = GetParam("account_id")

	'' 检查是否存在相同的用户名，如果有，则需要重新提交，如果没有，则新增用户
	dim sSQL, iRows
	iRows = DLookUp(dbLocal, "t_account", "count(*)", "account_id = " & ToSQL(sAccountId,"Text"))
	sTip= ""
	if iRows > 0 then
		pStep = 1
	'	sTitle = "第一步：请输入员工姓名和用户名"
		'sTip = "<span style=""color:red"">对不起，用户名 " & sAccountId & " 已经存在，请选择其它的用户名！</span>"
		sTip = "对不起，用户名 " & sAccountId & " 已经存在，请选择其它的用户名！"
	else
		pStep = 2
	'	sTitle = "第二步：确认用户姓名和用户名"
	'	sTip = "请确认以下信息，如果正确，请按下一步，否则按上一步"
	end if
end sub

Function SecondForm()
	dim sName, sAccountId, co_id, isdummy, dismissed
	sName = GetParam("name")
	sAccountId = GetParam("account_id")
	co_id = GetParam("co_id")
	isdummy = GetParam("isdummy")
	dismissed = GetParam("dismissed")

	dim FormParams
	FormParams = ToURL("name=" & sName & "&account_id=" & sAccountId & "&")
	SecondForm = _
		"<form method=post name=""frmAddEmp"" action=""emp_oa.asp"" onsubmit=""return(CheckInput());"">" & vbLF & _
		"<input type=""hidden"" name=""co_id"" value=""" & co_id & """>" & vbLF & _
		"<input type=""hidden"" name=""isdummy"" value=""" & isdummy & """>" & vbLF & _
		"<input type=""hidden"" name=""dismissed"" value=""" & dismissed & """>" & vbLF & _
		"<input type=""hidden"" name=""step"" value=""3"">" & vbLF & _
		"<table width=600 cellspacing=2 cellpadding=2 align=center background=""images/bgdots.gif"">" & vbLF & _
		"		<tr bgcolor=""#0040a0"" height=15 align=center style=""font-weight:600;color:white"">" & vbLF & _
		"				<td><span id=""title"">第二步：确认用户姓名和用户名</span></td></tr>" & vbLF & _
		"		<tr bgcolor=white height=200 align=center>" & vbLF & _
		"				<td><span id=""tip"">请确认以下信息，如果正确，请按下一步，否则按上一步</span><br>" & vbLF & _
		"				<br>姓　名：　<input type=""text"" name=""name"" value=""" & sName & """ size=20 maxlength=20 style=""border-color:white"" readonly>" & _
		"				<br>&nbsp;" & vbLF & _
		"				<br>用户名：　<input type=""text"" name=""account_id"" value=""" & sAccountId & """ size=20 maxlength=20 style=""border-color:white"" readonly>" & vbLF & _
		"				<br>&nbsp;" & vbLF & _
		"				<br>角　色：　<select name=""role"" style=""width:130px"">" & vbLF & _
												selectOptions(dbLocal, "t_role", "role_id", "role_desp", role, "") & _
												"</select></td></tr>" & vbLF & _
		"		<tr bgcolor=white align=center>" & vbLF & _
		"				<td>" & _
						"<img id=""btnLastStep"" border=0 src=""images/button_1.gif"" onclick=""frmAddEmp.step.value='1';frmAddEmp.submit();"">" & vbLF & _
						"&nbsp;&nbsp;&nbsp;&nbsp;" & vbLF & _
						"<input type=""image"" src=""images/button_2.gif"" style=""border-width:0""></td></tr>" & vbLF & _
		"		<tr bgcolor=white height=2><td></td></tr>" & vbLF & _
		"</table>" & vbLF & _
		"</form>" & vbLF
End Function


Sub AddEmp()
	dim sSQL, iEmpSerial

	sSQL = "proc_AddAccount " & ToSQL(sName, "Text") & ", " & ToSQL(sAccountId, "Text") & ", " & ToSQL(role, "Number") & ", " & ToSQL(co_id, "Number") & ", " & ToSQL(isdummy, "Number") & ", " & ToSQL(dismissed, "Number")

	response.write " function addemp sql: " & sSQL & "<br>"
	iEmpSerial = ExecuteSP(dbLocal, sSQL)
	response.write " function addemp rtn: " & iEmpSerial & "<br>"
	response.end

	if CInt(iEmpSerial) = "0" then
		Response.Write "<script language=""javascript"">alert(""出错啦！\n错误码：" & iEmpSerial & """);</script>"
	else
		Response.Clear
		Response.Redirect("emp_oe.asp?emp_serial=" & iEmpSerial)
		Response.end
	end if
End Sub
%>