addnew.asp

功能齐全的oa系统

<!--#include virtual ="/Include/DataEnvi.asp"-->
<%
Sub Main
  Dim StrSQL
  
  Set ObjDB = Server.CreateObject("Adodb.Connection")
  OpenDB ObjDB
%>
<script language=javascript>
	function SelectRoleIDs(IDs)
	{
		window.open("SelectRole.asp?IDs="+IDs,"RoleWin","width=200,height=300,scrollbars=yes")
	}

	function ChangeRole(IDs,Names)
	{
		document.forms[0].A_RoleIDs.value = IDs
		document.forms[0].RoleName.value = Names
		window.focus()
	}
</script>
	<form action="Recive.asp" method="post" name="form1" id="form1">
	<input type="hidden" name="CT_AccountID" value=0>
	<table class=Ltable cellspacing=1 cellpadding=3>
	<tr class=LHtr>
		<td width="15%">新增用户</td>
		<td width="85%"> </td>
	</tr>
	<tr class=Ltr>
		<td>登录名</td>
		<td>
        <input type="text" class=Input Check=1 Show="登录名" name="A_AccountName" value="" size="20"> <font color="red">*</font></td>
	</tr>
	<tr class=Ltr>
		<td>真实姓名</td>
		<td>
        <input type="text" class=Input Check=1 Show="真实姓名" name="C_TrueName" value="" size="20"> <font color="red">*</font></td>
	</tr>
	<tr class=Ltr>
		<td>密码</td>
		<td>
        <input type="password" class=Input check=1 name="A_Password" value="" size="20"> <font color="red">*</font></td>
	</tr>
	<tr class=Ltr>
		<td>确认密码</td>
		<td>
        <input type="password" class=Input Check=3 To="A_Password" Show="两次输入的密码不一致" name="Password1" value="" size="20"> <font color="red">*</font></td>
	</tr>
	</table>
	<table id=MoreInfo class=Ltable cellspacing=1 cellpadding=3>
	<tr class=LStr>
		<td width="15%">详细信息</td>
		<td width="85%" colspan=3> </td>
	</tr>
	<tr class=Ltr>
		<td>性别</td>
		<td><input type="radio" name="C_Gender" value="1">男 <input type="radio" name="C_Gender" value="2">女</td>
		<td rowspan=3>系统角色</td>
		<td rowspan=3>
		<textarea class=Textarea2 rows=4 name="RoleName" Check=1 Show="系统角色" onchange="SelectRoleIDs(A_RoleIDs.value)" onkeydown="SelectRoleIDs(A_RoleIDs.value)" onclick="SelectRoleIDs(A_RoleIDs.value)" rows="1" cols="20"></textarea>
		<input type=button class=Button value="选择角色" onclick="SelectRoleIDs(A_RoleIDs.value)" id=button1 name=button1> <font color="red">*</font>
		<input name=A_RoleIDs value="" type=hidden>	
		</td>
	</tr>
	<tr class=Ltr>
		<td>婚姻状况</td>
		<td><input type="radio" name="C_IsMarriage" value="1">已婚 <input type="radio" name="C_IsMarriage" value="0">未婚</td>
	</tr>
	<tr class=Ltr>
		<td>生日</td>
		<td>
        <input type="text" class=Input2 name="C_Birthday" value="<%=Date()%>" onclick="InputDate(this)" readonly size="20"></td>
	</tr>
	<tr class=Ltr>
		<td>学历</td>
		<td>
        <input type="text" class=Input2 name="C_Education" value="" size="20"></td>
		<td>职称</td>
		<td><input type="text" class=Input2 name="C_Title" value="" size="20"></td>
	</tr>
	<tr class=Ltr>
		<td>国籍</td>
		<td><input type="text" class=Input2 name="C_Nation" value="" size="20"></td>
		<td>籍贯</td>
		<td>
        <input type="text" class=Input2 name="C_NativePlace" value="" size="20"></td>
	</tr>
	<tr class=Ltr>
		<td>工作电话</td>
		<td><input type="text" class=Input2 name="C_Tel" value="" size="20"></td>
		<td>Email</td>
		<td><input type="text" class=Input2 name="C_Email" value="" size="20"></td>
	</tr>
	<tr class=Ltr>
		<td>家庭电话</td>
		<td><input type="text" class=Input2 name="C_HomeTel" value="" size="20"></td>
		<td>手机</td>
		<td><input type="text" class=Input2 name="C_Mob" value="" size="20"></td>
	</tr>
	<tr class=Ltr>
		<td>住址</td>
		<td>
        <input type="text" class=Input name="C_Address" value="" size="20"></td>
    <td>子系统角色</td>
    <td>
<%
  StrSQL = "Select SubRoleID, SubRoleName From t_oa_Sub_SubRoles Order by SubRoleID"
  Set Rs = ObjDB.Execute(StrSQL)
  Response.Write "<select name='C_SubRoleName' style='width:133px'>"
  Response.write "<option value=0>&nbsp;---请 选 择---  </option>"& Chr(10)
    
  While NOT Rs.EOF
    Response.write "<OPTION check=1 value=" & Rs("SubRoleID") &">" & Rs("SubRoleName") & "</OPTION>" & Chr(10)
    Rs.MoveNext
  Wend
  Response.Write "</select> <font color='red'>*</font>"
%>
    </td>
	</tr>
	<tr class=Ltr>
		<td>备注</td>
		<td colspan=3><textarea class=Textarea name="C_Des" rows="1" cols="20"></textarea></td>
	</tr>
	
	</table>
	<table cellspacing=1 cellpadding=3>
	<tr>
		<td>
		<input type="submit"  name="Submit" class=Button value="提 交">
		<input type="button" class=Button value="取 消" onclick="doList()"></td>
		<td></td>
	</tr>
	</table>
	</form>
<%
End Sub
%>
<!-- #include virtual="Templet/Templet.asp" -->