empmain_overview.asp

欢迎大家分享本系统为bs架构的asp+access版本。<br>包含：员工信息

<%@ Language=VBScript %>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%call fnCheckRight("Overview","1")%>
<%
Dim genInfo__MMColParam
genInfo__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  genInfo__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim genInfo
Dim genInfo_numRows

Set genInfo = Server.CreateObject("ADODB.Recordset")
genInfo.ActiveConnection = MM_EmpMain_STRING
genInfo.Source = "SELECT * FROM EmpGeneralInfo WHERE ID = " + Replace(genInfo__MMColParam, "'", "''") + ""
genInfo.CursorType = 0
genInfo.CursorLocation = 2
genInfo.LockType = 1
genInfo.Open()

genInfo_numRows = 0
%>

<%
Dim MarrInfo__MMColParam
MarrInfo__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  MarrInfo__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim MarrInfo
Dim MarrInfo_numRows

Set MarrInfo = Server.CreateObject("ADODB.Recordset")
MarrInfo.ActiveConnection = MM_EmpMain_STRING
MarrInfo.Source = "SELECT * FROM marriage WHERE EmpID = " + Replace(MarrInfo__MMColParam, "'", "''") + ""
MarrInfo.CursorType = 0
MarrInfo.CursorLocation = 2
MarrInfo.LockType = 1
MarrInfo.Open()

MarrInfo_numRows = 0
%>
<%
if not MarrInfo.eof then
  MarrType = MarrInfo("MarrType")
  MateName = MarrInfo("MateName")
  MateComp = MarrInfo("MateComp")
  MateTel = MarrInfo("MateTel")
  else
  MarrType = ""
  MateName = ""
  MateComp = ""
  MateTel = ""
end if
%>
<%
Dim fm__MMColParam
fm__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  fm__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim fm
Dim fm_numRows

Set fm = Server.CreateObject("ADODB.Recordset")
fm.ActiveConnection = MM_EmpMain_STRING
fm.Source = "SELECT * FROM HomeInfo WHERE EmpID = " + Replace(fm__MMColParam, "'", "''") + ""
fm.CursorType = 0
fm.CursorLocation = 2
fm.LockType = 1
fm.Open()

fm_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
fm_numRows = fm_numRows + Repeat1__numRows
%>
<%
Dim EduList__MMColParam
EduList__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  EduList__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim EduList
Dim EduList_numRows

Set EduList = Server.CreateObject("ADODB.Recordset")
EduList.ActiveConnection = MM_EmpMain_STRING
EduList.Source = "SELECT * FROM StudyHistory WHERE EmpID = " + Replace(EduList__MMColParam, "'", "''") + ""
EduList.CursorType = 0
EduList.CursorLocation = 2
EduList.LockType = 1
EduList.Open()

EduList_numRows = 0
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
EduList_numRows = EduList_numRows + Repeat2__numRows
%>
<%
Dim EvnWork__MMColParam
EvnWork__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  EvnWork__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim EvnWork
Dim EvnWork_numRows

Set EvnWork = Server.CreateObject("ADODB.Recordset")
EvnWork.ActiveConnection = MM_EmpMain_STRING
EvnWork.Source = "SELECT * FROM WorkHistory WHERE EmpID = " + Replace(EvnWork__MMColParam, "'", "''") + ""
EvnWork.CursorType = 0
EvnWork.CursorLocation = 2
EvnWork.LockType = 1
EvnWork.Open()

EvnWork_numRows = 0
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = -1
Repeat3__index = 0
EvnWork_numRows = EvnWork_numRows + Repeat3__numRows
%>
<%
Dim workinfo__MMColParam
workinfo__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  workinfo__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim workinfo
Dim workinfo_numRows

Set workinfo = Server.CreateObject("ADODB.Recordset")
workinfo.ActiveConnection = MM_EmpMain_STRING
workinfo.Source = "SELECT * FROM WorkDynamic WHERE EmpID = " + Replace(workinfo__MMColParam, "'", "''") + ""
workinfo.CursorType = 0
workinfo.CursorLocation = 2
workinfo.LockType = 1
workinfo.Open()

workinfo_numRows = 0
%>
<%
Dim Repeat4__numRows
Dim Repeat4__index

Repeat4__numRows = -1
Repeat4__index = 0
workinfo_numRows = workinfo_numRows + Repeat4__numRows
%>
<%
Dim JC__MMColParam
JC__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  JC__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim JC
Dim JC_numRows

Set JC = Server.CreateObject("ADODB.Recordset")
JC.ActiveConnection = MM_EmpMain_STRING
JC.Source = "SELECT * FROM HortPun WHERE EmpID = " + Replace(JC__MMColParam, "'", "''") + ""
JC.CursorType = 0
JC.CursorLocation = 2
JC.LockType = 1
JC.Open()

JC_numRows = 0
%>
<%
Dim Repeat5__numRows
Dim Repeat5__index

Repeat5__numRows = -1
Repeat5__index = 0
JC_numRows = JC_numRows + Repeat5__numRows
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="CSS/SellWellWeb.css" type="text/css">
</HEAD>
<BODY class="body">

 <fieldset style="padding: 2" class="fiedset"> <legend>基本信息</legend> 
  
   <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber1" class="table" align="center">
    <tr> 
      <td nowrap align="right" class="Caption" width="25%">编号:</td>
      <td class="ValueArea" width="25%"><%=(genInfo.Fields.Item("EmpCompID").Value)%></td>
      <td nowrap align="right" class="Caption" width="25%">姓名:</td>
      <td width="25%" class="ValueArea"> <p align="left"><%=(genInfo.Fields.Item("EmpName").Value)%></td>
    </tr>
    <tr> 
      <td width="25%" nowrap align="right" class="Caption">英文名:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("EmpEnglishName").Value)%></td>
      <td width="25%" nowrap align="right" class="Caption">身份证号:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("EmpSelfID").Value)%></td>
    </tr>
    <tr> 
      <td width="25%" nowrap align="right" class="Caption">性别:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("EmpGender").Value)%></td>
      <td width="25%" nowrap align="right" class="Caption">出生年月:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("EmpBirthDay").Value)%></td>
    </tr>
    <tr> 
      <td width="25%" nowrap align="right" class="Caption">籍贯:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("EmpNativePlace").Value)%></td>
      <td width="25%" nowrap align="right" class="Caption">户籍地址:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("EmpNativeAddress").Value)%></td>
    </tr>
    <tr> 
      <td width="25%" nowrap align="right" class="Caption">现址:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("EmpNowAddress").Value)%></td>
      <td width="25%" nowrap align="right" class="Caption">电话:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("EmpNowTel").Value)%></td>
    </tr>
    <tr> 
      <td width="25%" nowrap align="right" class="Caption">户籍状况:</td>
      <td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("EmpEvenAddress").Value)%></td>
      <td width="25%" nowrap align="right" class="Caption">手机:</td>
      <td width="25%"  class="ValueArea"><%=(genInfo.Fields.Item("EmpEvenTel").Value)%></td>
    </tr>
    <tr> 
      <td width="25%" nowrap align="right" class="Caption">通讯地址:</td>
      <td colspan="3" class="ValueArea"><%=(genInfo.Fields.Item("EmpCommAddress").Value)%></td>
    </tr>
    <tr>