⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 basicinfo.asp

📁 一个VB的p2p聊天系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
			wend
                    Response.Write chr(10)&chr(13)&"</select></td>"
                  Response.Write chr(10)&chr(13)&"</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 style='width:80px' id=sltPolitics name=sltPolitics>"
                    Response.Write chr(10)&chr(13)&"<option value=0>不清楚</option>"
			while not rsPolitics.BOF and not rsPolitics.EOF 
				Response.Write chr(10)&chr(13)&"<option value="&rsPolitics("Political_ID")&">"&rsPolitics("Political_Name")&"</option>"
				rsPolitics.MoveNext()
			wend
                    Response.Write chr(10)&chr(13)&"</select></td>"
                    Response.Write chr(10)&chr(13)&"<td align='right' width='70'>婚姻状况:</td>"
                    Response.Write chr(10)&chr(13)&"<td><select style='width:80px' id=sltMarried name=sltMarried>"
                    Response.Write chr(10)&chr(13)&"<option value=0>不清楚</option>"
			while not rsMarried.BOF and not rsMarried.EOF 
				Response.Write chr(10)&chr(13)&"<option value="&rsMarried("Married_ID")&">"&rsMarried("Married_Name")&"</option>"
				rsMarried.MoveNext()
			wend
        %>
                    </select></td>
                  </tr>
                  <tr> 
                    <td align='right'>身份证号:</td>
                    <td colspan='3'><input name=txtIDcard id=txtIDcard type=text style='width:200px' maxlength=18></td>
                    <td width='60'></td>
                    <td width='70'></td>
                  </tr>
                  <tr> 
                    <td align='right'>出生年月:</td>
                    <td><input type=text style='width:40px' id=txtBirthY name=txtBirthY maxlength=4>年<input type=text style='width:20px' id=txtBirthM name=txtBirthM maxlength=2>月<input type=text style='width:5px;visibility:hidden' id=txtBirth name=txtBirth></td>
                    <td align='right'>籍贯:</td>
                    <td><input type=text style='width:100px' id=txtNplace name=txtNplace></td>
                    <td><input type=text style='width:40px;visibility:hidden' id=txtYear name=txtYear onchange='CalAge();'></td>
                    <td></td>
                  </tr>
                  <tr> 
                    <td align='right'>电话:</td>
                    <td><input type=text style='width:100px' id=txtTel name=txtTel></td>
                    <td align='right'>照片文件:</td>
                    <td colspan='2'><input type=text style='width:150px' id=txtPic name=txtPic></td>
					<td></td>
                  </tr>
                  <tr> 
                    <td align='right'>手机:</td>
                    <td><input type=text style='width:100px' id=txtMobile name=txtMobile maxlength=11></td>
                    <td align='right'>传呼:</td>
                    <td><input type=text style='width:100px' id=txtCall name=txtCall></td>
                    <td></td>
                    <td></td>
                  </tr>
                  <tr> 
                    <td align='right'>通信地址:</td>
                    <td colspan='5'><input type=text style='width:400px' id=txtAddress name=txtAddress></td>
                  </tr>
                  <tr> 
                    <td align='right'>邮编:</td>
                    <td><input type=text style='width:100px' id=txtZip name=txtZip maxlength=6></td>
                    <td colspan='4' align='right'></td>
                  </tr>
                  <tr> 
                    <td colspan='4' valign='bottom'>&nbsp;&nbsp;<font color='#FF0000'>*注意:如有修改,请及时保存!</font></td>
                  	<td colspan='2' 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>
                    <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' bgcolor='#62b0ff' background='images\item2.gif'><a class='detail' onmouseover="this.className='red'" onmouseout="this.className='detail'" onClick='OpenNew("WorkInfo.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("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>"
if OptID<>1 then
	Response.write chr(10)&chr(13)&"Initial();"
end if

Response.Write chr(10)&chr(13)&"function Initial(){"
	Response.Write chr(10)&chr(13)&"frmBasicInfo.txtEmpID.value='"&rsBasicInfo("Employee_ID")&"';"
	Response.Write chr(10)&chr(13)&"frmBasicInfo.txtEmpName.value='"&rsBasicInfo("Employee_Name")&"';"
	if rsBasicInfo("Employee_Sex")<>"" then
		Response.Write chr(10)&chr(13)&"frmBasicInfo.sltSex.value="&rsBasicInfo("Employee_Sex")&";"
	else
		Response.Write chr(10)&chr(13)&"frmBasicInfo.sltSex.value=0;"
	end if
'	if rsBasicInfo("")<>"" then
'		frmBasicInfo.txtAge.value='rsBasicInfo("")';
'	end if
	if rsBasicInfo("Employee_Nation")<>"" then
		Response.Write chr(10)&chr(13)&"frmBasicInfo.sltNation.value="&rsBasicInfo("Employee_Nation")&";"
	else
		Response.Write chr(10)&chr(13)&"frmBasicInfo.sltNation.value=0;"
	end if
	if rsBasicInfo("Employee_Political")<>"" then
		Response.Write chr(10)&chr(13)&"frmBasicInfo.sltPolitics.value="&rsBasicInfo("Employee_Political")&";"
	else
		Response.Write chr(10)&chr(13)&"frmBasicInfo.sltPolitics.value=0;"
	end if
	if rsBasicInfo("Employee_Married")<>"" then
		Response.Write chr(10)&chr(13)&"frmBasicInfo.sltMarried.value="&rsBasicInfo("Employee_Married")&";"
	else
		Response.Write chr(10)&chr(13)&"frmBasicInfo.sltMarried.value=0;"
	end if
	if rsBasicInfo("Employee_IdCard")<>"" then
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtIDcard.value='"&rsBasicInfo("Employee_IdCard")&"';"
	else
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtIDcard.value='';"
	end if
	if rsBasicInfo("Employee_Birth")<>"" then
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtBirthY.value='"&year(rsBasicInfo("Employee_Birth"))&"';"
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtBirthM.value='"&month(rsBasicInfo("Employee_Birth"))&"';"
	else
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtBirthY.value='';"
	end if
	if rsBasicInfo("Employee_NaPlace")<>"" then
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtNplace.value='"&rsBasicInfo("Employee_NaPlace")&"';"
	else
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtNplace.value='';"
	end if
	if rsBasicInfo("Employee_Tel")<>"" then
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtTel.value='"&rsBasicInfo("Employee_Tel")&"';"
	else
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtTel.value='';"
	end if
	if rsBasicInfo("Employee_Pic")<>"" then
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtPic.value='"&rsBasicInfo("Employee_Pic")&"';"
	else
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtPic.value='';"
	end if
	if rsBasicInfo("Employee_Mobile")<>"" then
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtMobile.value='"&rsBasicInfo("Employee_Mobile")&"';"
	else
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtMobile.value='';"
	end if
	if rsBasicInfo("Employee_Call")<>"" then
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtCall.value='"&rsBasicInfo("Employee_Call")&"';"
	else
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtCall.value='';"
	end if
	if rsBasicInfo("Employee_Address")<>"" then
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtAddress.value='"&rsBasicInfo("Employee_Address")&"';"
	else
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtAddress.value='';"
	end if
	if rsBasicInfo("Employee_Zip")<>"" then
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtZip.value='"&rsBasicInfo("Employee_Zip")&"';"
	else
		Response.Write chr(10)&chr(13)&"frmBasicInfo.txtZip.value='';"
	end if
	Response.Write chr(10)&chr(13)&"frmBasicInfo.txtYear.value="&Year(date())&";"
	Response.Write chr(10)&chr(13)&"if(frmBasicInfo.txtBirthY.value!=''){"
	Response.Write chr(10)&chr(13)&"frmBasicInfo.txtAge.value=frmBasicInfo.txtYear.value-frmBasicInfo.txtBirthY.value;"
	Response.Write chr(10)&chr(13)&"}"
Response.Write chr(10)&chr(13)&"}"
Response.Write chr(10)&chr(13)&"</script>"
%>
</body>
</html>

⌨️ 快捷键说明

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