📄 empmain_marr_disp.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%call fnCheckRight("MarrInfo","1")%>
<%
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
%>
<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">
</head>
<body class="body">
<form method="POST" action="EmpMain_Marr_Disp.asp" webbot-action="--WEBBOT-SELF--">
<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="53" align="center" class="table">
<tr>
<td width="15%" align="right" height="19" nowrap class="Caption">当前状况:</td>
<td colspan="4" height="19" class="ValueArea"><%=MarrType%></td>
</tr>
<tr>
<td width="15%" rowspan="2" align="right" height="33" nowrap class="Caption">配偶情况:</td>
<td width="15%" height="16" align="right" nowrap class="Caption">姓名:</td>
<td width="34%" height="16" class="ValueArea"><%=MateName%></td>
<td width="13%" height="16" nowrap class="Caption">
<p align="right">电话:
</td>
<td width="23%" height="16" class="ValueArea"><%=MateTel%></td>
</tr>
<tr>
<td width="15%" height="16" align="right" nowrap class="Caption">工作单位:</td>
<td height="16" colspan="3" class="ValueArea"><%=MateComp%></td>
</tr>
</table>
</fieldset></form>
<div align="right">
<input type="button" name="Submit" value="修改" class="button" onclick="window.location='EmpMain_Marr_Edit.asp?ID=<%=request("ID")%>'">
</div>
</body>
</html>
<%
MarrInfo.Close()
Set MarrInfo = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -