📄 empmain_marr_edit.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%call fnCheckRight("MarrInfo","2")%>
<%
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")
ProcessType = "edit"
else
MarrType = ""
MateName = ""
MateComp = ""
MateTel = ""
ProcessType = "insert"
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>婚姻状况</title>
<link rel="stylesheet" href="CSS/SellWellWeb.css" type="text/css">
<script language="javascript" src="js_Lib/fnCheckForm.js"></script>
</head>
<body class="body">
<form method="POST" action="EmpMain_Marr_Edit_Process.asp" name="form1">
<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" height="66" align="center" class="table">
<tr>
<td width="15%" align="right" height="19" nowrap class="Caption">当前状况:</td>
<td colspan="4" height="19" class="ValueArea">
<input type="radio" name="MarrType" value="未婚" <%if trim(MarrType) = "未婚" then%>checked<%end if%>>
未婚
<input type="radio" name="MarrType" value="已婚" <%if trim(MarrType) = "已婚" then%>checked<%end if%>>
已婚
<input type="radio" name="MarrType" value="离婚" <%if trim(MarrType) = "离婚" then%>checked<%end if%>>
离婚
<input type="radio" name="MarrType" value="失配" <%if trim(MarrType) = "失配" then%>checked<%end if%>>
失配</td>
</tr>
<tr>
<td width="15%" rowspan="2" align="right" height="33" nowrap class="Caption">配偶情况:</td>
<td width="15%" height="22" align="right" nowrap class="Caption">姓名:</td>
<td width="34%" height="22" class="ValueArea">
<input name="MateName" type="text" class="text" id="MateName" value="<%=MateName%>"></td>
<td width="13%" height="22" nowrap class="Caption">
<p align="right">电话:
</td>
<td width="23%" height="22" class="ValueArea">
<input name="MateTel" type="text" id="MateTel" class="text" value="<%=MateTel%>" DataType="TelNo"></td>
</tr>
<tr>
<td width="15%" height="16" align="right" nowrap class="Caption">工作单位:</td>
<td height="16" colspan="3" class="ValueArea">
<input name="MateComp" type="text" id="MateComp" class="text" value="<%=MateComp%>"></td>
</tr>
</table>
</fieldset>
<div align="right">
<input type="button" name="Submit" value="修改" class="button" onClick="fnCheckForm()">
<input type="button" name="back" value="返回" class="button" onclick="window.location='EmpMain_Marr_Disp.asp?ID=<%=request("ID")%>'">
<input type="hidden" name="ProcessType" value="<%=ProcessType%>">
<input type="hidden" name="EmpID" value="<%=request.QueryString("ID")%>">
</div>
</form>
</body>
</html>
<%
MarrInfo.Close()
Set MarrInfo = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -