?? empmain_danan_info1.asp
字號:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%
if request.QueryString("pagetype") <> "" then
if request.QueryString("pagetype") <> "Base" then
url = "empmain_" &request.QueryString("pagetype")& "_Disp.asp?ID=" & request.QueryString("ID") & "&pagetype=" & request.QueryString("pagetype")
response.Redirect(url)
response.end
end if
end if
%>
<%call fnCheckRight("GeneralInfo","1")%>
<%
Dim genInfo__MMColParam
genInfo__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
genInfo__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim genInfo
Dim genInfo_numRows
dim userid
dim username
user=request("dananid")
Set genInfo = Server.CreateObject("ADODB.Recordset")
genInfo.ActiveConnection = MM_EmpMain_STRING
genInfo.Source = "SELECT * FROM danan WHERE id = "&user& ""
genInfo.CursorType = 0
genInfo.CursorLocation = 2
genInfo.LockType = 1
genInfo.Open()
genInfo_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 4.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_Base_Disp.asp" webbot-action="--WEBBOT-SELF--" class="body">
<fieldset style="padding: 2" class="fiedset"> <legend>合同檔案基本信息</legend>
<% if geninfo.eof then
response.write ("暫無記錄")
xx="新增"
else
userdananid=geninfo.fields.item("dananid")
xx="修改"%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber1" class="table" align="center">
<tr>
<td nowrap align="right" class="Caption" width="25%">檔案編號:</td>
<td class="ValueArea" width="25%"><%=userdananid%></td>
<td nowrap align="right" class="Caption" width="25%">員工姓名:</td>
<td width="25%" class="ValueArea"> <p align="left"><%=(genInfo.Fields.Item("name").Value)%></td>
</tr>
<tr>
<td width="25%" nowrap align="right" class="Caption">責任人:</td>
<td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("user").Value)%></td>
<td width="25%" nowrap align="right" class="Caption">歸檔處:</td>
<td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("where").Value)%></td>
</tr>
<tr>
<td width="25%" nowrap align="right" class="Caption">登記日期:</td>
<td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("denjidate").Value)%></td>
<td width="25%" nowrap align="right" class="Caption">到期日期:</td>
<td width="25%" class="ValueArea"><%=(genInfo.Fields.Item("overdate").Value)%></td>
</tr>
</table></fieldset>
<fieldset style="padding: 2" class="fiedset"> <legend>檔案內容</legend>
<table height=100 border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber1" class="table" align="center">
<!--DWLayoutTable-->
<tr>
<td width="25%" height="98" align="right" nowrap class="Caption">內容:</td>
<td width="722" valign="top" class="ValueArea"><%=(genInfo.Fields.Item("content").Value)%></td>
</tr>
</table><%end if%>
</fieldset></form>
<div align="right"> </div>
</body>
</html>
<%
genInfo.Close()
Set genInfo = Nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -