infomodify.asp

设计广州农信管理系统,具有一般的存取款功能等客户服务.

                              <TD align=left>                                <font color="#FF0000">
<select name="MemberDepartment" id="MemberDepartment">
  <option selected value="" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberDepartment").Value))) Then If ("" = CStr((rsMemberInfo.Fields.Item("MemberDepartment").Value))) Then Response.Write("SELECTED") : Response.Write("")%>> </option>
  <%
While (NOT rsDepartment.EOF)
%>
  <option value="<%=(rsDepartment.Fields.Item("DepartmentName").Value)%>" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberDepartment").Value))) Then If (CStr(rsDepartment.Fields.Item("DepartmentName").Value) = CStr((rsMemberInfo.Fields.Item("MemberDepartment").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsDepartment.Fields.Item("DepartmentName").Value)%></option>
  <%
  rsDepartment.MoveNext()
Wend
If (rsDepartment.CursorType > 0) Then
  rsDepartment.MoveFirst
Else
  rsDepartment.Requery
End If
%>
</select>
*</font> </TD>
                            </TR>
							                            <TR> 
                              <TD align=right width=80>职位：</TD>
                              <TD align=left>                                <font color="#FF0000">
<select name="MemberPosition" id="MemberPosition">
  <option value="科员" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPosition").Value))) Then If ("科员" = CStr((rsMemberInfo.Fields.Item("MemberPosition").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>科员</option>
  <option value="副经理" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPosition").Value))) Then If ("副经理" = CStr((rsMemberInfo.Fields.Item("MemberPosition").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>副经理</option>
  <option value="经理" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPosition").Value))) Then If ("经理" = CStr((rsMemberInfo.Fields.Item("MemberPosition").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>经理</option>
  <option value="副主任" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPosition").Value))) Then If ("副主任" = CStr((rsMemberInfo.Fields.Item("MemberPosition").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>副主任</option>
  <option value="主任" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPosition").Value))) Then If ("主任" = CStr((rsMemberInfo.Fields.Item("MemberPosition").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>主任</option>
  <%
While (NOT rsMemberInfo.EOF)
%>
  <option value="<%=(rsMemberInfo.Fields.Item("MemberPosition").Value)%>" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPosition").Value))) Then If (CStr(rsMemberInfo.Fields.Item("MemberPosition").Value) = CStr((rsMemberInfo.Fields.Item("MemberPosition").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsMemberInfo.Fields.Item("MemberPosition").Value)%></option>
  <%
  rsMemberInfo.MoveNext()
Wend
If (rsMemberInfo.CursorType > 0) Then
  rsMemberInfo.MoveFirst
Else
  rsMemberInfo.Requery
End If
%>
</select>                              
*</font> </TD>
                            </TR>
							                            <TR> 
                              <TD align=right width=80>出生日期：</TD>
                              <TD align=left>                                <font color="#FF0000">
                                <input name="MemberBirthday" type="text" id="MemberBirthday" value="<%=(rsMemberInfo.Fields.Item("MemberBirthday").Value)%>">
                              *</font> </TD>
                            </TR>
							                            <TR> 
                              <TD align=right width=80>身份证号：</TD>
                              <TD align=left>                                <font color="#FF0000">
                                <input name="MemberPersonalID" type="text" id="MemberPersonalID" value="<%=(rsMemberInfo.Fields.Item("MemberPersonalID").Value)%>">
                              *</font> </TD>
                            </TR>
							                            <TR> 
                              <TD align=right width=80>籍贯：</TD>
                              <TD align=left>                                <font color="#FF0000">
                                <input name="MemberNativePlace" type="text" id="MemberNativePlace" value="<%=(rsMemberInfo.Fields.Item("MemberNativePlace").Value)%>">
                              *</font> </TD>
                            </TR>
							                            <TR> 
                              <TD align=right width=80>家庭地址：</TD>
                              <TD align=left>                                <font color="#FF0000">
                                <input name="MemberAddress" type="text" id="MemberAddress" value="<%=(rsMemberInfo.Fields.Item("MemberAddress").Value)%>">
                              *</font> </TD>
                            </TR>
							<TR> 
                              <TD align=right width=80>婚姻状况：</TD>
                              <TD align=left>                                <font color="#FF0000">
<select name="MemberMarry" id="MemberMarry">
  <option value="未婚" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberMarry").Value))) Then If ("未婚" = CStr((rsMemberInfo.Fields.Item("MemberMarry").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>未婚</option>
  <option value="已婚" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberMarry").Value))) Then If ("已婚" = CStr((rsMemberInfo.Fields.Item("MemberMarry").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>已婚</option>
  <%
While (NOT rsMemberInfo.EOF)
%>
  <option value="<%=(rsMemberInfo.Fields.Item("MemberMarry").Value)%>" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberMarry").Value))) Then If (CStr(rsMemberInfo.Fields.Item("MemberMarry").Value) = CStr((rsMemberInfo.Fields.Item("MemberMarry").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsMemberInfo.Fields.Item("MemberMarry").Value)%></option>
  <%
  rsMemberInfo.MoveNext()
Wend
If (rsMemberInfo.CursorType > 0) Then
  rsMemberInfo.MoveFirst
Else
  rsMemberInfo.Requery
End If
%>
</select>                              
*</font> </TD>
                            </TR>
							
                            <TR> 
                              <TD align=right width="80">政治面貌：</TD>
                              <TD align=left><font color="#FF0000">
<select name="MemberPolitics" id="MemberPolitics">
  <option value="群众" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPolitics").Value))) Then If ("群众" = CStr((rsMemberInfo.Fields.Item("MemberPolitics").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>群众</option>
  <option value="党员" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPolitics").Value))) Then If ("党员" = CStr((rsMemberInfo.Fields.Item("MemberPolitics").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>党员</option>
  <option value="团员" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPolitics").Value))) Then If ("团员" = CStr((rsMemberInfo.Fields.Item("MemberPolitics").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>团员</option>
  <option value="其他" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPolitics").Value))) Then If ("其他" = CStr((rsMemberInfo.Fields.Item("MemberPolitics").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>其他</option>
  <%
While (NOT rsMemberInfo.EOF)
%>
  <option value="<%=(rsMemberInfo.Fields.Item("MemberPolitics").Value)%>" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPolitics").Value))) Then If (CStr(rsMemberInfo.Fields.Item("MemberPolitics").Value) = CStr((rsMemberInfo.Fields.Item("MemberPolitics").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsMemberInfo.Fields.Item("MemberPolitics").Value)%></option>
  <%
  rsMemberInfo.MoveNext()
Wend
If (rsMemberInfo.CursorType > 0) Then
  rsMemberInfo.MoveFirst
Else
  rsMemberInfo.Requery
End If
%>
</select>                              
*</font> </TD>
                            </TR>
                            <tr> 
                              <td align=right width="80">学历：</td>
                              <td align=left><font color="#FF0000">
<select name="MemberEducation" id="MemberEducation">
  <option value="博士" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberEducation").Value))) Then If ("博士" = CStr((rsMemberInfo.Fields.Item("MemberEducation").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>博士</option>
  <option value="硕士" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberEducation").Value))) Then If ("硕士" = CStr((rsMemberInfo.Fields.Item("MemberEducation").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>硕士</option>
  <option value="本科" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberEducation").Value))) Then If ("本科" = CStr((rsMemberInfo.Fields.Item("MemberEducation").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>本科</option>
  <option value="大专" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberEducation").Value))) Then If ("大专" = CStr((rsMemberInfo.Fields.Item("MemberEducation").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>大专</option>
  <option value="高中" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberEducation").Value))) Then If ("高中" = CStr((rsMemberInfo.Fields.Item("MemberEducation").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>高中</option>
  <option value="中专" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberEducation").Value))) Then If ("中专" = CStr((rsMemberInfo.Fields.Item("MemberEducation").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>中专</option>
  <%
While (NOT rsMemberInfo.EOF)
%>
  <option value="<%=(rsMemberInfo.Fields.Item("MemberEducation").Value)%>" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberEducation").Value))) Then If (CStr(rsMemberInfo.Fields.Item("MemberEducation").Value) = CStr((rsMemberInfo.Fields.Item("MemberEducation").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsMemberInfo.Fields.Item("MemberEducation").Value)%></option>
  <%
  rsMemberInfo.MoveNext()
Wend
If (rsMemberInfo.CursorType > 0) Then
  rsMemberInfo.MoveFirst
Else
  rsMemberInfo.Requery
End If
%>
</select>                              
*</font> </td>
                            </tr>
                            <tr> 
                              <td align=right width="80">职称：</td>
                              <td align=left><font color="#FF0000">
<select name="MemberPost" id="MemberPost">
  <option value="无" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPost").Value))) Then If ("无" = CStr((rsMemberInfo.Fields.Item("MemberPost").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>无</option>
  <option value="助理级" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPost").Value))) Then If ("助理级" = CStr((rsMemberInfo.Fields.Item("MemberPost").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>助理级</option>
  <option value="中级" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPost").Value))) Then If ("中级" = CStr((rsMemberInfo.Fields.Item("MemberPost").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>中级</option>
  <option value="高级" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPost").Value))) Then If ("高级" = CStr((rsMemberInfo.Fields.Item("MemberPost").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>高级</option>
  <%
While (NOT rsMemberInfo.EOF)
%>
  <option value="<%=(rsMemberInfo.Fields.Item("MemberPost").Value)%>" <%If (Not isNull((rsMemberInfo.Fields.Item("MemberPost").Value))) Then If (CStr(rsMemberInfo.Fields.Item("MemberPost").Value) = CStr((rsMemberInfo.Fields.Item("MemberPost").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsMemberInfo.Fields.Item("MemberPost").Value)%></option>
  <%
  rsMemberInfo.MoveNext()
Wend
If (rsMemberInfo.CursorType > 0) Then
  rsMemberInfo.MoveFirst
Else
  rsMemberInfo.Requery
End If
%>
</select>                              
*</font> </td>
                            </tr>
                            <TR> 
                              <TD align=right width="80">入职时间：</TD>
                              <TD align=left><font color="#FF0000">
                                <input name="MemberIntime" type="text" id="MemberIntime" value="<%=(rsMemberInfo.Fields.Item("MemberInTime").Value)%>">
                              *</font> </TD>
                            </TR>
                            <tr> 
                              <td align=right width="80">工&nbsp;&nbsp;&nbsp;&nbsp;龄：</td>
                              <td align=left><font color="#FF0000">
                                <input name="MemberAlltime" type="text" id="MemberAlltime" value="<%=(rsMemberInfo.Fields.Item("MemberAllTime").Value)%>">
                              *</font> </td>
                            </tr>
                            <tr> 
                              <td align=right width="80">工资等级：</td>
                              <td align=left><font color="#FF0000">
                                <input name="MemberLevel" type="text" id="MemberLevel" value="<%=(rsMemberInfo.Fields.Item("MemberLevel").Value)%>">
                              *</font>  </td>
                            </tr>
                            <tr> 
                              <td width="80" align=right valign="top">备&nbsp;&nbsp;&nbsp;&nbsp;注：</td>
                              <td><textarea name="MemberNote" id="MemberNote"><%=(rsMemberInfo.Fields.Item("MemberNote").Value)%></textarea></td>
                            </tr>
                            <tr> 
                              <td height="40" colspan="2" align=center valign="middle"> 
<input id=submit2 type=submit value=保存录入信息 name=submit> 
                              </td>
                            </tr>
                          </TBODY>
                </TABLE>
              
                
             
                
             
                
             
                
             
                

                <input type="hidden" name="MM_update" value="AddMember">
                <input type="hidden" name="MM_recordId" value="<%= rsMemberInfo.Fields.Item("MemberID").Value %>">
             </FORM></td>
          </tr>
        </table>
	  </td>
      <TD width=1 background="images/dotLine_h.gif"><IMG src="images/shim(1).gif" width=1></TD>
    </TR>
  <tr> 
    <TD height="1" colspan="7" background="images/dotLine_w.gif"><IMG height=1 src="images/shim(1).gif" width=100></TD>
  </tr>
  </TBODY>
</TABLE>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
		<Iframe src="CopyRight.asp" width="760" height="200" marginheight="0" marginwidth="0" scrolling="NO" frameborder="0" name="CopyRight"></iframe>
	</td>
  </tr>
</table></BODY>
</HTML>
<%
rsMemberInfo.Close()
Set rsMemberInfo = Nothing
%>
<%
rsDepartment.Close()
Set rsDepartment = Nothing
%>