📄 infomodify.asp

📁 工资管理系统功能齐全包括工人工资信息查询.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
If (rsGrade1.CursorType > 0) Then
  rsGrade1.MoveFirst
Else
  rsGrade1.Requery
End If
%>
    </select>
    <select name="Grade2" id="select2">
      <option value="All">全部</option>
      <%
While (NOT rsGrade2.EOF)
%>
      <option value="<%=(rsGrade2.Fields.Item("ClassID").Value)%>"><%=(rsGrade2.Fields.Item("ClassName").Value)%></option>
      <%
  rsGrade2.MoveNext()
Wend
If (rsGrade2.CursorType > 0) Then
  rsGrade2.MoveFirst
Else
  rsGrade2.Requery
End If
%>
    </select>
    <select name="Grade3" id="Grade3">
      <option value="All">全部</option>
      <%
While (NOT rsGrade3.EOF)
%>
      <option value="<%=(rsGrade3.Fields.Item("ClassID").Value)%>"><%=(rsGrade3.Fields.Item("ClassName").Value)%></option>
      <%
  rsGrade3.MoveNext()
Wend
If (rsGrade3.CursorType > 0) Then
  rsGrade3.MoveFirst
Else
  rsGrade3.Requery
End If
%>
    </select>
    <select name="Grade4" id="Grade4">
      <option value="All">全部</option>
      <%
While (NOT rsGrade4.EOF)
%>
      <option value="<%=(rsGrade4.Fields.Item("ClassID").Value)%>"><%=(rsGrade4.Fields.Item("ClassName").Value)%></option>
      <%
  rsGrade4.MoveNext()
Wend
If (rsGrade4.CursorType > 0) Then
  rsGrade4.MoveFirst
Else
  rsGrade4.Requery
End If
%>
    </select>
    <select name="Grade5" id="Grade5">
      <option value="All">全部</option>
      <%
While (NOT rsGrade5.EOF)
%>
      <option value="<%=(rsGrade5.Fields.Item("ClassID").Value)%>"><%=(rsGrade5.Fields.Item("ClassName").Value)%></option>
      <%
  rsGrade5.MoveNext()
Wend
If (rsGrade5.CursorType > 0) Then
  rsGrade5.MoveFirst
Else
  rsGrade5.Requery
End If
%>
    </select>
  </form>
</div>
<!--#include file="InfoManage_top.asp" -->
<TABLE width="760" border=0 align="center" cellPadding=0 cellSpacing=0>
  <tr> 
    <TD align="center" bgcolor="f7f7ff"> 
      <% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
      <form Name="form1" onSubmit="return checkform()" action="<%=MM_editAction%>" method="POST">
        <table width="400" border=1 cellpadding="1" cellspacing=0 style="border-collapse:collapse" bordercolor="#CCCCFF">
          <tr> 
            <td width=74 align=right>编号：</td>
            <td width=320 align=left><%=(Recordset1.Fields.Item("StudentNum").Value)%>
			<%
				if request("Err")<> "" then
					response.Write "&nbsp;&nbsp;&nbsp;&nbsp;<font color='ff0000'>此编号已存在！</font>"
                	response.Write "<input name='RedirectUrl' type='hidden' value='InfoInput.asp'>"
                end if
			%></td>
          </tr>
          <tr> 
            <td width=74 align=right>姓名：</td>
            <td width=320 align=left> 
              <input class=rec_form size=12 Name=Name value="<%=(Recordset1.Fields.Item("Name").Value)%>"> 
              <font color="#FF0000">*</font></td>
          </tr>
          <TR>
            <TD align=right>科室：</TD>
            <TD align=left>
		    <select name="GradeID" onChange="ChangeClass()" size="0">
			<%
				Select case Recordset1("GradeId")
				case "01"
			%>
              <option value="01" selected="selected">医疗</option>
              <option value="02">药品</option>
              <option value="03">行政</option>
              <option value="04">合同</option>
              <option value="05">自负</option>
			<%
				case "02"
			%>
              <option value="01">医疗</option>
              <option value="02" selected="selected">药品</option>
              <option value="03">行政</option>
              <option value="04">合同</option>
              <option value="05">自负</option>
			<%
				case "03"
			%>
              <option value="01">医疗</option>
              <option value="02">药品</option>
              <option value="03" selected="selected">行政</option>
              <option value="04">合同</option>
              <option value="05">自负</option>
			<%
				case "04"
			%>
              <option value="01">医疗</option>
              <option value="02">药品</option>
              <option value="03">行政</option>
              <option value="04" selected="selected">合同</option>
              <option value="05">自负</option>
			<%
				case "05"
			%>
              <option value="01">医疗</option>
              <option value="02">药品</option>
              <option value="03">行政</option>
              <option value="04">合同</option>
              <option value="05" selected="selected">自负</option>
			<%
				End select
			%>
            </select>
			<select name="ClassID">
                <option value="All">全部</option>
                <%
				While (NOT rsGrade1.EOF)
				If RS2("ClassID")=rsGrade1("ClassID") Then
			  %>
                <option value="<%=(rsGrade1.Fields.Item("ClassID").Value)%>" selected="selected"><%=(rsGrade1.Fields.Item("ClassName").Value)%></option>
                <%
				else
				%>
                <option value="<%=(rsGrade1.Fields.Item("ClassID").Value)%>" selected="selected"><%=(rsGrade1.Fields.Item("ClassName").Value)%></option>
				<%
					end if
				  rsGrade1.MoveNext()
				Wend
				If (rsGrade1.CursorType > 0) Then
				  rsGrade1.MoveFirst
				Else
				  rsGrade1.Requery
				End If
			  %>
            </select></TD>
          </TR>
          <tr> 
            <td width="74" align=right>政治面貌：</td>
            <td width="320" align=left> 
              <select Name=politics>
			<option value="党员">党员</option>
			<option value="群众">群众</option>
			<option value="其它">其它</option>
			<%
				While (NOT Recordset1.EOF)
			%>
			<option value="<%=(Recordset1.Fields.Item("politics").Value)%>" selected ><%=(Recordset1.Fields.Item("politics").Value)%></option>
			<%
			  	Recordset1.MoveNext()
			  Wend
				If (Recordset1.CursorType > 0) Then
				  Recordset1.MoveFirst
				Else
				  Recordset1.Requery
				End If
			%></select></td>
          </tr>
          <tr> 
            <td width="74" align=right>出生日期：</td>
            <td width="320" align=left> 
              <input class=rec_form size=12 Name=Birthday value="<%=(Recordset1.Fields.Item("Birthday").Value)%>">例：2000-11-18</td>
          </tr>
          <tr> 
            <td width="74" align=right>身份证号：</td>
            <td width="320"> 
              <input class=rec_form size=19 Name=TelNum value="<%=(Recordset1.Fields.Item("TelNum").Value)%>"></td>
          </tr>
          <tr> 
            <td width="74" align=right valign="top">账号：</td>
            <td width="320"> 
              <input name="remark" type="text" class="rec_form" value="<%=(Recordset1.Fields.Item("remark").Value)%>" size="19"></td>
          </tr>
        </table>
        <script language='JavaScript'>document.form1.Name.focus();</script>
        <input type="hidden" name="MM_update" value="true">
        <input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("StudentNum").Value %>">
        <input id=submit type=submit value=保存 Name=submit>
		<%
			while not Rs2.eof
		%>
		<input type="hidden" name="Grade" value="<%=rs2("Grade")%>">
		<input type="hidden" name="ClassName" value="<%=rs2("ClassName")%>">
		<%
			Rs2.MoveNext
			wend
		%>
      </form>
      <% End If %>
      <% If Recordset1.EOF And Recordset1.BOF Then %>
      <br><br><br><br><font color="#FF6699">抱歉！没有找到要修改的记录！</font><br><br><br> 
      <% End If %>
    </td>
  </tr>
</TABLE>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
		<Iframe src="CopyRight.asp" width="760" height="100" marginheight="0" marginwidth="0" scrolling="NO" frameborder="0" name="CopyRight"></iframe>
	</td>
  </tr>
</table></BODY>
</HTML>
<%
	rsGrade1.Close()
	Set rsGrade1 = Nothing
%>
<%
	rsGrade2.Close()
	Set rsGrade2 = Nothing
%>
<%
	rsGrade3.Close()
	Set rsGrade3 = Nothing
%>
<%
	rsGrade4.Close()
	Set rsGrade4 = Nothing
%>
<%
	rsGrade5.Close()
	Set rsGrade5 = Nothing
%>
<%
	Recordset1.Close()
	set Recordset1=Nothing
%>
<%
	rs2.close()
	Set rs2=Nothing
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -