workinfo.asp

一个VB的p2p聊天系统

                    <td width="150"><input type=text id="txtEmpName" name="txtEmpName" style="width:80px" disabled></td><td align="right" width="100"></td><td width="150"></td></tr>
				<tr>
                    <td align="right">入本单位时间：</td>
                    <td><input type=text id=txtComeTimeY name=txtComeTimeY style="width:40px">年<input type=text id=txtComeTimeM name=txtComeTimeM style="width:20px">月<input type=text id=txtComeTime name=txtComeTime style="width:10px;visibility:hidden"></td>
                    <td align="right" width="100">职工类型：</td>
                    <td><select id=sltType name=sltType style="width:100px">
					<option value=0>不清楚</option>
       <%
			while not rsType.BOF and not rsType.EOF 
				Response.Write chr(10)&chr(13)&"<option value="&rsType("EmployeeType_ID")&">"&rsType("EmployeeType_Name")&"</option>"
				rsType.MoveNext()
			wend
					Response.Write chr(10)&chr(13)&"</select></td></tr>"
				Response.Write chr(10)&chr(13)&"<tr>"
                    Response.Write chr(10)&chr(13)&"<td align='right'>最高学历：</td>"
                    Response.Write chr(10)&chr(13)&"<td><select id=sltDegree name=sltDegree style='width:80px'>"
					Response.Write chr(10)&chr(13)&"<option value=0>不清楚</option>"
			while not rsDegree.BOF and not rsDegree.EOF 
				Response.Write chr(10)&chr(13)&"<option value="&rsDegree("EduDegree_ID")&">"&rsDegree("EduDegree_Name")&"</option>"
				rsDegree.MoveNext()
			wend
                    Response.Write chr(10)&chr(13)&"</select></td>"
                    Response.Write chr(10)&chr(13)&"<td align='right'>职称：</td>"
                    Response.Write chr(10)&chr(13)&"<td><select id=sltJobTitle name=sltJobTitle style='width:80px'>"
					Response.Write chr(10)&chr(13)&"<option value=0>不清楚</option>"
			while not rsJobTitle.BOF and not rsJobTitle.EOF 
				Response.Write chr(10)&chr(13)&"<option value="&rsJobTitle("JobTitle_ID")&">"&rsJobTitle("JobTitle_Name")&"</option>"
				rsJobTitle.MoveNext()
			wend
                    Response.Write chr(10)&chr(13)&"</select></td></tr>"
				Response.Write chr(10)&chr(13)&"<tr>"
                    Response.Write chr(10)&chr(13)&"<td align='right'>所在一级部门：</td>"
                    Response.Write chr(10)&chr(13)&"<td><select id=sltDepart1 name=sltDepart1 style='width:100px'>"
					Response.Write chr(10)&chr(13)&"<option value=0>不清楚</option>"
			while not rsDepart.BOF and not rsDepart.EOF 
				Response.Write chr(10)&chr(13)&"<option value="&rsDepart("Depart_ID")&">"&rsDepart("Depart_Name")&"</option>"
				rsDepart.MoveNext()
			wend
                    Response.Write chr(10)&chr(13)&"</select></td>"
                    Response.Write chr(10)&chr(13)&"<td align='right'>职务：</td>"
                    Response.Write chr(10)&chr(13)&"<td><select id=sltPosition name=sltPosition style='width:80px'>"
					Response.Write chr(10)&chr(13)&"<option value=0>不清楚</option>"
			while not rsPosition.BOF and not rsPosition.EOF 
				Response.Write chr(10)&chr(13)&"<option value="&rsPosition("Position_ID")&">"&rsPosition("Position_Name")&"</option>"
				rsPosition.MoveNext()
			wend
       %>
                    </select></td></tr>
				<tr>
                    <td align="right">所在二级部门：</td>
                    <td><input type=text id=txtDepart2 name=txtDepart2 style="width:100px"></td>
                    <td align="right">所在三级部门：</td>
                    <td><input type=text id=txtDepart3 name=txtDepart3 style="width:100px"></td></tr>
				<tr>
                    <td align="right">毕业学校：</td>
                    <td colspan="2"><input type=text id=txtSchool name=txtSchool style="width:200px"></td><td></td></tr>
				<tr>
                    <td align="right">毕业时专业：</td>
                    <td><input type=text id=txtMajor name=txtMajor style="width:140px"></td>
                    <td align="right">毕业时间：</td>
                    <td><input type=text id=txtGradTimeY name=txtGradTimeY style="width:40px">年<input type=text id=txtGradTimeM name=txtGradTimeM style="width:20px">月<input type=text id=txtGradTime name=txtGradTime style="width:10px;visibility:hidden"></td></tr>
				<tr>
                    <td align="right">参加工作时间：</td>
                    <td><input type=text id=txtWorkTimeY name=txtWorkTimeY style="width:40px">年<input type=text id=txtWorkTimeM name=txtWorkTimeM style="width:20px">月<input type=text id=txtWorkTime name=txtWorkTime style="width:10px;visibility:hidden"></td>
                    <td align="right">工龄：</td>
                    <td><input type=text id=txtWorkAge name=txtWorkAge style="width:50px" disabled></td></tr>
                <tr> 
                    <td align="right">本单位工龄：</td>
                    <td><input type=text id=txtWorkAgeH name=txtWorkAgeH style="width:50px" disabled><input type=text id=txtYear name=txtYear style="width:10px;visibility:hidden"></td>
                  <td align="right"></td>
                  <td align="center"></td>
                </tr>
                <tr> 
                    <td valign="bottom" colspan="2"> <font color="#FF0000">＊注意：如有修改，请及时保存！</font></td>
                  <td align="right"></td>
                  <td align="center"><a onclick="employeeSave();" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image3','','images/save1.gif',1);this.className='hand1'"><img src="images/save.gif" name="Image3" width="60" height="25" border="1"></a>
				  &nbsp;<a onclick="initial();" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image4','','images/undo1.gif',1);this.className='hand1'"><img src="images/undo.gif" name="Image4" width="60" height="25" border="1"></a></td>
                </tr>
            </table>
		  </td></tr>
		</table>
		</td>
      </tr>
      <tr> 
        <td align='right' height='30' background='images\item1.gif'>工作信息</td>
      </tr>
      <tr> 
        <td align='right' height='30' bgcolor='#62b0ff' background='images\item2.gif'><a class='detail' onmouseover="this.className='red'" onmouseout="this.className='detail'" onClick='OpenNew("StudyResume.asp");'>学习简历</a></td>
      </tr>
      <tr> 
        <td align='right' height='30' bgcolor='#62b0ff' background='images\item2.gif'><a class='detail' onmouseover="this.className='red'" onmouseout="this.className='detail'" onClick='OpenNew("WorkResume.asp");'>工作简历</a></td>
      </tr>
      <tr> 
        <td align='right' height='30' bgcolor='#62b0ff' background='images\item2.gif'><a class='detail' onmouseover="this.className='red'" onmouseout="this.className='detail'" onClick='OpenNew("FamilyMember.asp");'>家庭成员</a></td>
      </tr>
      <tr> 
        <td align='right' height='30' bgcolor='#62b0ff' background='images\item2.gif'><a class='detail' onmouseover="this.className='red'" onmouseout="this.className='detail'" onClick='OpenNew("Relavation.asp");'>社会关系</a></td>
      </tr>
      <tr> 
        <td align='right' height='30' bgcolor='#62b0ff' background='images\item2.gif'><a class='detail' onmouseover="this.className='red'" onmouseout="this.className='detail'" onClick='OpenNew("Training.asp");'>培训情况</a></td>
      </tr>
      <tr> 
        <td align='right' height='30' bgcolor='#62b0ff' background='images\item2.gif'><a class='detail' onmouseover="this.className='red'" onmouseout="this.className='detail'" onClick='OpenNew("RewordPunish.asp");'>奖惩情况</a></td>
      </tr>
      <tr> 
        <td align='right' height='30' bgcolor='#62b0ff' background='images\item2.gif'><a class='detail' onmouseover="this.className='red'" onmouseout="this.className='detail'" onClick='OpenNew("Research.asp");'>科研情况</a></td>
      </tr>
      <tr> 
        <td align='right' height='30' bgcolor='#62b0ff'>&nbsp;</td>
      </tr>
      <tr> 
        <td align='right' height='60' bgcolor='#62b0ff'>&nbsp;</td>
      </tr>
    </table>
  </form>
</div>
<%
Response.Write chr(10)&chr(13)&"<script language=javascript>"
Response.Write chr(10)&chr(13)&"initial();"
Response.Write chr(10)&chr(13)&"function initial(){"
	Response.Write chr(10)&chr(13)&"frmWorkInfo.txtEmpID.value='"&EmpID&"';"
	Response.Write chr(10)&chr(13)&"frmWorkInfo.txtEmpName.value='"&rsWorkInfo("Employee_Name")&"';"
	Response.Write chr(10)&chr(13)&"frmWorkInfo.txtYear.value="&year(Date())&";"
	if rsWorkInfo("Employee_ComeTime")<>"" then
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtComeTimeY.value='"&year(rsWorkInfo("Employee_ComeTime"))&"';"
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtComeTimeM.value='"&month(rsWorkInfo("Employee_ComeTime"))&"';"
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtWorkAgeH.value=frmWorkInfo.txtYear.value-frmWorkInfo.txtComeTimeY.value;"
	else
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtComeTimeY.value='';"
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtComeTimeM.value='';"
	end if
	if rsWorkInfo("Employee_PayType")<>"" then
		Response.Write chr(10)&chr(13)&"frmWorkInfo.sltType.value="&rsWorkInfo("Employee_PayType")&";"
	else
		Response.Write chr(10)&chr(13)&"frmWorkInfo.sltType.value=0;"
	end if
	if rsWorkInfo("Employee_Degree")<>"" then
		Response.Write chr(10)&chr(13)&"frmWorkInfo.sltDegree.value="&rsWorkInfo("Employee_Degree")&";"
	else
		Response.Write chr(10)&chr(13)&"frmWorkInfo.sltDegree.value=0;"
	end if
	if rsWorkInfo("Employee_JobTitle")<>"" then
		Response.Write chr(10)&chr(13)&"frmWorkInfo.sltJobTitle.value="&rsWorkInfo("Employee_JobTitle")&";"
	else
		Response.Write chr(10)&chr(13)&"frmWorkInfo.sltJobTitle.value=0;"
	end if
	if rsWorkInfo("Employee_Depart1")<>"" then
		Response.Write chr(10)&chr(13)&"frmWorkInfo.sltDepart1.value="&rsWorkInfo("Employee_Depart1")&";"
	else
		Response.Write chr(10)&chr(13)&"frmWorkInfo.sltDepart1.value=0;"
	end if
	if rsWorkInfo("Employee_Position")<>"" then
		Response.Write chr(10)&chr(13)&"frmWorkInfo.sltPosition.value="&rsWorkInfo("Employee_Position")&";"
	else
		Response.Write chr(10)&chr(13)&"frmWorkInfo.sltPosition.value=0;"
	end if
	if rsWorkInfo("Employee_Depart2")="" then
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtDepart2.value='';"
	else
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtDepart2.value='"&rsWorkInfo("Employee_Depart2")&"';"
	end if
	if rsWorkInfo("Employee_Depart3")="" then
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtDepart3.value='';"
	else
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtDepart3.value='"&rsWorkInfo("Employee_Depart3")&"';"
	end if
	if rsWorkInfo("Employee_School")="" then
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtSchool.value='';"
	else
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtSchool.value='"&rsWorkInfo("Employee_School")&"';"
	end if
	if rsWorkInfo("Employee_Major")="" then
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtMajor.value='';"
	else 
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtMajor.value='"&rsWorkInfo("Employee_Major")&"';"
	end if
	if rsWorkInfo("Employee_GradTime")="" then
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtGradTimeY.value='';"
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtGradTimeM.value='';"
	else
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtGradTimeY.value='"&year(rsWorkInfo("Employee_GradTime"))&"';"
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtGradTimeM.value='"&month(rsWorkInfo("Employee_GradTime"))&"';"
	end if
	if rsWorkInfo("Employee_WorkTime")<>"" then
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtWorkTimeY.value='"&year(rsWorkInfo("Employee_WorkTime"))&"';"
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtWorkTimeM.value='"&month(rsWorkInfo("Employee_WorkTime"))&"';"
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtWorkAge.value=frmWorkInfo.txtYear.value-frmWorkInfo.txtWorkTimeY.value;"
	else
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtWorkTimeY.value='';"
		Response.Write chr(10)&chr(13)&"frmWorkInfo.txtWorkTimeM.value='';"
	end if
Response.Write chr(10)&chr(13)&"}"
Response.Write chr(10)&chr(13)&"</script>"
%>
</body>
</html>