📄 basicinfo.asp

📁 一个VB的p2p聊天系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="headfiles/Connection.inc"-->
<%
	'定义变量
	dim EmpID,flag
	EmpID=Request("Eid")
	
	'并接受表单信息
	if EmpID="" then
		dim EmpName,EmpSex,EmpNation,EmpPolitics,EmpMarried,EmpIdcard,EmpBirth,EmpNPlace,EmpTel,EmpPic,EmpMobile,EmpCall,EmpAddress,EmpZip
		EmpID=Request.Form("txtEmpID")
		EmpSex=cint(Request.Form("sltSex"))
		EmpNation=cint(Request.Form("sltNation"))
		EmpPolitics=cint(Request.Form("sltPolitics"))
		EmpMarried=cint(Request.Form("sltMarried"))
		EmpIdcard=Request.Form("txtIDcard")
		EmpBirth=Request.Form("txtBirth")
		EmpNPlace=Request.Form("txtNplace")
		EmpTel=Request.Form("txtTel")
		EmpPic=Request.Form("txtPic")
		EmpMobile=Request.Form("txtMobile")
		EmpCall=Request.Form("txtCall")
		EmpAddress=Request.Form("txtAddress")
		EmpZip=Request.Form("txtZip")
		flag=1
'		Response.Write EmpSex&EmpNation&EmpPolitics&EmpMarried&EmpIdcard&EmpBirth&EmpNPlace&EmpTel&EmpPic&EmpMobile&EmpCall&EmpAddress&EmpZip
	end if
		
	'定义并打开记录集
	set rsNation=server.CreateObject("ADODB.RECORDSET")
	set rsPolitics=server.CreateObject("ADODB.RECORDSET")
	set rsMarried=server.CreateObject("ADODB.RECORDSET")
	strSql="select * from NationTable order by Nation_ID"
	rsNation.Open strSql,Conn,3,1
	strSql="select * from PoliticalTable order by Political_ID"
	rsPolitics.Open strSql,Conn,3,1
	strSql="select * from MarriedTable order by Married_ID"
	rsMarried.Open strSql,Conn,3,1
	dim rsBasicInfo
	set rsBasicInfo=server.CreateObject("ADODB.RECORDSET")
'	Response.Write EmpID
'	Response.Write chr(34)&Optid&chr(34)
	if flag=1 then
		
		'修改数据库信息
		strSql="select * from EmployeeBasicTable where Employee_ID="&cint(EmpID)
		rsBasicInfo.Open strSql,Conn,3,2
'		Response.Write rsBasicInfo.RecordCount 
		rsBasicInfo("Employee_Sex")=EmpSex
		rsBasicInfo("Employee_Nation")=EmpNation
		rsBasicInfo("Employee_Political")=EmpPolitics
		rsBasicInfo("Employee_Married")=EmpMarried
		if EmpIdcard<>"" then
			rsBasicInfo("Employee_IdCard")=EmpIdcard
		end if
		if EmpBirth<>"" then
			rsBasicInfo("Employee_Birth")=EmpBirth
		end if
		if EmpNPlace<>"" then
			rsBasicInfo("Employee_NaPlace")=EmpNPlace
		end if
		if EmpTel<>"" then
			rsBasicInfo("Employee_Tel")=EmpTel
		end if
		if EmpPic<>"" then
			rsBasicInfo("Employee_Pic")=EmpPic
		end if
		if EmpMobile<>"" then
			rsBasicInfo("Employee_Mobile")=EmpMobile
		end if
		if EmpCall<>"" then
			rsBasicInfo("Employee_Call")=EmpCall
		end if
		if EmpAddress<>"" then
			rsBasicInfo("Employee_Address")=EmpAddress
		end if
		if EmpZip<>"" then
			rsBasicInfo("Employee_Zip")=EmpZip
		end if
		rsBasicInfo.Update
		rsBasicInfo.Close
	end if
	
	'重新打开视图
	strSql="select * from EmployeeBasicView where Employee_ID="&cint(EmpID)
	rsBasicInfo.Open strSql,Conn,3,1
'	Response.Write rsEmployee.RecordCount 
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="headfiles/text.css" rel="stylesheet" type="text/css">
<title></title>
<SCRIPT language=JavaScript>
<!--
<!--
if (navigator.appName.indexOf("Internet Explorer") != -1)
document.onmousedown = noSourceExplorer;
function noSourceExplorer(){if (event.button == 2 | event.button == 3)
{
//alert("版权所有，严禁拷贝！");
}}
// -->

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->

<!--
function OpenNew(Url){
	window.navigate (Url+"?Eid="+frmBasicInfo.txtEmpID.value);
}

function EmployeeSave(){
	msg=confirm("您的操作将修改"+frmBasicInfo.txtEmpID.value+"（"+frmBasicInfo.txtEmpName.value+"）的信息！\n\n确实要保存吗？")
	if(msg==false){
		return false;
	}
	if((frmBasicInfo.txtBirthY.value).length<4&&(frmBasicInfo.txtBirthY.value).length>0){
		alert ("请把年份写全！\n\n如：1986");
		frmBasicInfo.txtBirthY.focus();
		return false;
	}
	if(frmBasicInfo.txtBirthY.value!=""){
		frmBasicInfo.txtAge.value=frmBasicInfo.txtYear.value-frmBasicInfo.txtBirthY.value;
	}
	if((frmBasicInfo.txtBirthM.value).length<2){
		frmBasicInfo.txtBirthM.value="0"+frmBasicInfo.txtBirthM.value;
	}
	frmBasicInfo.txtBirth.value=frmBasicInfo.txtBirthY.value+"/"+frmBasicInfo.txtBirthM.value;
	frmBasicInfo.txtEmpID.disabled=false;
	frmBasicInfo.submit();
}

//-->
</SCRIPT>

</head>

<BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginwidth='0' marginheight='0' onLoad="MM_preloadImages('images/new1.gif','images/del1.gif')">
<div align="center">
<form id="frmBasicInfo" name="frmBasicInfo" action="BasicInfo.asp" method="post">
    <table width="600" height="360" background="images\bg.gif" class="title3" border="0" cellspacing="0" cellpadding="0">
      <tr> 
        <td align='right' height='30' background='images\item1.gif'>基本信息</td>
        <td rowspan="11" align="center">
		<table width=520 height="350" border="0" cellpadding="0" cellspacing="0">
		  <tr><td align="center" style="BORDER-RIGHT: 1px outset; BORDER-TOP: 1px outset; BORDER-LEFT: 1px outset; BORDER-BOTTOM: 1px outset">
		  	<table cellspacing="5" width="510" height="340" border="0" class="title1">
                  <tr> 
                    <td align='right' width='72' height='33'>职工号：</td>
                    <td colspan='3' width='270'><input type=text id='txtEmpID' name='txtEmpID' style='width:150px'disabled></td>
                    <td colspan='2' width='130' align='center' rowspan='4'><img src='images\Employees\<%if OptID<>1 then	Response.write rsBasicInfo("Employee_Pic") end if %>' alt='这里是员工的照片！' width='100' height='120'></td>
                  </tr>
                  <tr> 
                    <td align='right' width='72'>姓名：</td>
                    <td width='100'><input type=text id='txtEmpName' name='txtEmpName' style='width:80px' disabled></td>
                    <td align='right' width='70'>性别：</td>
                    <td width='100'><select style='width:50px' id=sltSex name=sltSex>
                    <option value='0'>男</option>
                    <option value='1'>女</option></select></td>
                  </tr>
                  <tr> 
                    <td align='right'>年龄：</td>
                    <td><input type=text style='width:50px' id=txtAge name=txtAge disabled></td>
                    <td align='right'>民族：</td>
                    <td><select style='width:80px' id=sltNation name=sltNation>
                    <option value=0>不清楚</option>
        <%
			while not rsNation.BOF and not rsNation.EOF 
				Response.Write chr(10)&chr(13)&"<option value="&rsNation("Nation_ID")&">"&rsNation("Nation_Name")&"</option>"
				rsNation.MoveNext()
12 下一页
⌨️ 快捷键说明

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