func_usermodi.asp

企业办公简单管理系统,可以发布信息以及论坛

      <td colspan="5" class=tablebody1><input name="Register" type="text" value="<%=rs("Register")%>" size="90" maxlength="100"></td>
    </tr>
    <tr > 
      <td class=tablebody1>邮政<br>编码</td>
      <td colspan="2" class=tablebody1><input name="Reg_postcode" type="text" value="<%=rs("Reg_postcode")%>" size="20" maxlength="6"></td>
      <td align="center" class=tablebody1>联系<br>电话</td>
      <td class=tablebody1><input name="RegTel" type="text" value="<%=rs("RegTel")%>" size="25" maxlength="30"></td>
    </tr>
    <tr > 
      <td rowspan="2" align="center" class=tablebody1>现住址</td>
      <td colspan="5" class=tablebody1><input name="Dwelling" type="text" value="<%=rs("Dwelling")%>" size="90" maxlength="100"></td>
    </tr>
    <tr > 
      <td height="20" class=tablebody1>邮政<br>编码</td>
      <td colspan="2" class=tablebody1><input name="Dw_postcode" type="text" value="<%=rs("Dw_postcode")%>" size="20" maxlength="6"></td>
      <td align="center" class=tablebody1>联系<br>电话</td>
      <td class=tablebody1><input name="DW_Tel" type="text" value="<%=rs("DW_Tel")%>" size="25" maxlength="30"></td>
    </tr>
    <tr > 
      <td align="center" class=tablebody1>紧急<br>联系</td>
      <td class=tablebody1>电话</td>
      <td colspan="2" class=tablebody1><input name="Urgency_Tel" type="text" value="<%=rs("Urgency_Tel")%>" size="20" maxlength="30"></td>
      <td align="center" class=tablebody1>其他<br>电话</td>
      <td class=tablebody1><input name="Urgency_other" type="text" value="<%=rs("Urgency_other")%>" size="25" maxlength="30"></td>
    </tr>
    <tr> 
      <td colspan="6" align="center" class=tablebody1><input type="submit" name="Submit" value=" 保 存 "></td>
    </tr>
	<input type=hidden name=id value="<%=request("id")%>">
    <input type=hidden name=saveflag value="1">
  </form>
</table>
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableborder1>
  <form name="theform2" method="post" action="">
<tr><td class=TopLighNav colspan="5"><b>教育背景</b></td></tr>
<tr>
      <td width="180" align="center" class=tablebody1>时间</td>
	  <td width="100" align="center" class=tablebody1>学校</td>
      <td width="80" align="center" class=tablebody1>专业</td>
	  <td width="50" align="center" class=tablebody1>方式</td>
      <td align="center" class=tablebody1>所受奖励</td>
	  <td width="50" class=tablebody1  align="center">修改</td>
	   <td width="50" class=tablebody1  align="center">删除</td>
    </tr>
<%
rs.close
sql="select * from cci_oa_embg where srcid="& request("id")
rs.Open Sql,connObj,1,1
do while not rs.eof 
	response.Write "<tr align=center>"
	response.Write "<td class=tablebody1>" & formatdatetime(rs("starttime"),2) & "-" & formatdatetime(rs("endtime"),2)  & "</td>"
	response.Write "<td class=tablebody1>" &rs("school") & "</td>"
    response.Write "<td class=tablebody1>" & rs("speciality")& "</td>"
	response.Write "<td class=tablebody1>" &rs("mode") & "</td>"
    response.Write "<td class=tablebody1>" &rs("encourage")& "</td>"
	response.Write "<td class=tablebody1><input type=radio name=abc onclick=DoChange(" & request("id")& ","& rs("id") &",3)" 
	if cint(request("tid"))=rs("id") then
		response.Write " checked"
	end if
	response.Write "></td>"
	response.Write "<td class=tablebody1><input type=radio name=bcd onclick=DoDelete(" & request("id")& ","& rs("id") &",3)></td>"
	response.Write "</tr>"
	rs.movenext
loop
rs.close

if request("selectflag")="3" then
	sql="select * from cci_oa_embg where id="& request("tid")
	rs.Open Sql,connObj,1,1
	if not rs.eof then
		starttime=rs("starttime")
		endtime=rs("endtime")
		school=rs("school")
		speciality=rs("speciality")
		mode=rs("mode")
		encourage=rs("encourage")
		
	end if
	rs.close
else	
	starttime="yyyy-mm-dd"
	endtime="yyyy-mm-dd"
	school=""
	speciality=""
	mode=""
	encourage=""
end if


%>
	<tr align=center>
	<td class=tablebody1><input name="starttime" type="text" value="<%=starttime%>" size="10">至<input name="endtime" type="text" value="<%=endtime%>" size="10"></td>
	<td class=tablebody1><input name="school" type="text" value="<%=school%>" size="15"></td>
    <td class=tablebody1><input name="speciality" type="text" value="<%=speciality%>" size="10"></td>
	<td class=tablebody1><input name="mode" type="text" value="<%=mode%>" size="5"></td>
    <td class=tablebody1><input name="encourage" type="text" value="<%=encourage%>" size="10"></td>
	<td class=tablebody1 colspan="2"><input type="submit" name="Submit" value="保存"></td>
<input type=hidden name=id value="<%=request("id")%>">
    <input type=hidden name=saveflag value="<% if request("selectflag")="3" then 
													response.write "3"
												else
													response.Write "2"
												end if	
											 %>">
	</tr>		
</form>	
</table>
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableborder1>
 <form name="theform3" method="post" action="">
<tr><td class=TopLighNav colspan="5"><b>工作经历</b></td></tr>
<tr>
      <td width="180" align="center" class=tablebody1>时间</td>
	  <td width="100" align="center" class=tablebody1>单位</td>
      <td width="80" align="center" class=tablebody1>职位</td>
	  <td width="50" align="center" class=tablebody1>证明人</td>
      <td align="center" class=tablebody1>联系电话</td>
	  <td width="50" class=tablebody1  align="center">修改</td>
	   <td width="50" class=tablebody1  align="center">删除</td>
    </tr>
<%
sql="select * from cci_oa_exper where srcid="& request("id")
rs.Open Sql,connObj,1,1
do while not rs.eof 
	response.Write "<tr align=center>"
	response.Write "<td class=tablebody1>" & formatdatetime(rs("starttime"),2) & "-" & formatdatetime(rs("endtime"),2)  & "</td>"
	response.Write "<td class=tablebody1>" & rs("Jobunit") & "</td>"
    response.Write "<td class=tablebody1>" & rs("Station")& "</td>"
	response.Write "<td class=tablebody1>" &rs("prover") & "</td>"
    response.Write "<td class=tablebody1>" &rs("Prove_tel")& "</td>"
	response.Write "<td class=tablebody1><input type=radio name=abc onclick=DoChange(" & request("id")& ","& rs("id") &",4)" 
	if cint(request("tid"))=rs("id") then
		response.Write " checked"
	end if
	response.Write "></td>"
	response.Write "<td class=tablebody1><input type=radio name=bcd onclick=DoDelete(" & request("id")& ","& rs("id") &",4)></td>"
	
	response.Write "</tr>"
	rs.movenext
loop
rs.close

if request("selectflag")="4" then
	sql="select * from cci_oa_exper where id="& request("tid")
	rs.Open Sql,connObj,1,1
	if not rs.eof then
		starttime=rs("starttime")
		endtime=rs("endtime")
		Jobunit=rs("Jobunit")
		Station=rs("Station")
		prover=rs("prover")
		Prove_tel=rs("Prove_tel")
		
	end if
	rs.close
else	
	starttime="yyyy-mm-dd"
	endtime="yyyy-mm-dd"
	Jobunit=""
	Station=""
	prover=""
	Prove_tel=""
end if
%>	
<tr align=center>
	<td class=tablebody1><input name="starttime" type="text" value="<%=starttime%>" size="10">至<input name="endtime" type="text" value="<%=endtime%>" size="10"></td>
	<td class=tablebody1><input name="Jobunit" type="text" value="<%=Jobunit%>" size="15"></td>
    <td class=tablebody1><input name="Station" type="text" value="<%=Station%>" size="10"></td>
	<td class=tablebody1><input name="prover" type="text" value="<%=prover%>" size="5"></td>
    <td class=tablebody1><input name="Prove_tel" type="text" value="<%=Prove_tel%>" size="10"></td>
	<td class=tablebody1 colspan="2"><input type="submit" name="Submit" value="保存"></td>
<input type=hidden name=id value="<%=request("id")%>">
    <input type=hidden name=saveflag value="<% if request("selectflag")="4" then 
													response.write "5"
												else
													response.Write "4"
												end if	
											 %>">	
</form>	
</table>
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableborder1>
 <form name="theform4" method="post" action="">
<tr><td  class=TopLighNav colspan="5"><b>家庭成员</b></td></tr>
<tr>
      <td width="70" align="center" class=tablebody1>关系</td>
	  <td width="100" align="center" class=tablebody1>姓名</td>
      <td width="70" align="center" class=tablebody1>年龄</td>
	  <td width="120" align="center" class=tablebody1>工作单位</td>
      <td align="center" class=tablebody1>联系电话</td>
	  <td width="50" class=tablebody1  align="center">修改</td>
	   <td width="50" class=tablebody1  align="center">删除</td>
    </tr>
<%
sql="select * from cci_oa_Member where srcid="& request("id")
rs.Open Sql,connObj,1,1
do while not rs.eof 
	response.Write "<tr align=center>"
	response.Write "<td class=tablebody1>" & rs("relation") & "</td>"
    response.Write "<td class=tablebody1>" & rs("Name")& "</td>"
	response.Write "<td class=tablebody1>" & rs("age") & "</td>"
    response.Write "<td class=tablebody1>" & rs("Jobunit")&"</td>"
	response.Write "<td class=tablebody1>" & rs("Tel")  & "</td>"
	response.Write "<td class=tablebody1><input type=radio name=abc onclick=DoChange(" & request("id")& ","& rs("id") &",5)" 
	if cint(request("tid"))=rs("id") then
		response.Write " checked"
	end if
	response.Write "></td>"
	response.Write "<td class=tablebody1><input type=radio name=bcd onclick=DoDelete(" & request("id")& ","& rs("id") &",5)></td>"
	response.Write "</tr>"
	rs.movenext
loop
rs.close

if request("selectflag")="5" then
	sql="select * from cci_oa_Member where id="& request("tid")
	rs.Open Sql,connObj,1,1
	if not rs.eof then
		relation=rs("relation")
		Name=rs("Name")
		age=rs("age")
		Jobunit=rs("Jobunit")
		Tel=rs("Tel")
		
	end if
	rs.close
else	
	relation=""
	Name=""
	age=""
	Jobunit=""
	Tel=""
end if
%>
<tr align=center>
	<td class=tablebody1><input name="relation" type="text" value="<%=relation%>" size="5"></td>
	<td class=tablebody1><input name="Name" type="text" value="<%=Name%>" size="10"></td>
    <td class=tablebody1><input name="age" type="text" value="<%=age%>" size="5"></td>
	<td class=tablebody1><input name="Jobunit" type="text" value="<%=Jobunit%>" size="15"></td>
    <td class=tablebody1><input name="Tel" type="text" value="<%=Tel%>" size="10"></td>
	<td class=tablebody1 colspan="2"><input type="submit" name="Submit" value="保存"></td>
<input type=hidden name=id value="<%=request("id")%>">
    <input type=hidden name=saveflag value="<% if request("selectflag")="5" then 
													response.write "7"
												else
													response.Write "6"
												end if	
											 %>">		
</form>
</table>
			
<form name=deleform action="" method=post>
<input type=hidden name=id>
<input type=hidden name=tid>
<input type=hidden name=deleteflag value="1">
</form>
<form name=selectform action="">
<input type=hidden name=tid>
<input type=hidden name=id>
<input type=hidden name=selectflag>
</form>