📄 empmain_edu_disp.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%
Dim fm__MMColParam
fm__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
fm__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim fm
Dim fm_numRows
Set fm = Server.CreateObject("ADODB.Recordset")
fm.ActiveConnection = MM_EmpMain_STRING
fm.Source = "SELECT * FROM fahuo WHERE companyid = " + Replace(fm__MMColParam, "'", "''") + ""
fm.CursorType = 0
fm.CursorLocation = 2
fm.LockType = 1
fm.Open()
fm_numRows = 0
%>
<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>
var objClassName
function HLItem(obj){
obj.oldClassName=obj.className;
obj.className="ListValuehighlight";
}
function Re(obj){
obj.className=obj.oldClassName
}
function doEdit(ID){
window.location ="EmpMain_Edu_Edit.asp?EmpID=<%=Request.QueryString("ID")%>&fID="+ID
}
</script>
</head>
<body class="body">
<form method="POST" action="EmpMain_Edu_Disp.asp">
<table border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" width="98%" align="center" class="table">
<tr>
<td width="15%" nowrap class="listTitle"> <div align="center">购买日期</div></td>
<td width="25%" nowrap class="listTitle"> <div align="center">产品名称</div></td>
<td width="15%" nowrap class="listTitle"> <div align="center">金额</div></td>
<td width="20%" nowrap class="listTitle"> <div align="center">联系人</div></td>
<td width="25%" nowrap class="listTitle"> <div align="center">备注</div></td>
</tr>
<% If fm.EOF And fm.BOF Then %>
<tr class="ListValueWhite">
<td colspan="6">没有记录!</td>
</tr>
<% End If ' end fm.EOF And fm.BOF %>
<%i=-1%>
<%
While NOT fm.EOF
%>
<%
i = i + 1
if i mod 2 = 0 then
className = "listValueWhite"
else
className = "listValuegray"
end if
%>
<tr class="<%=className%>" onClick="doEdit('<%=(fm.Fields.Item("ID").Value)%>')" style="cursor:hand" onMouseOver="HLItem(this)" onMouseOut="Re(this)">
<td><%=(fm.Fields.Item("date").Value)%></td>
<td><%=(fm.Fields.Item("产品名称").Value)%></td>
<td><%=(fm.Fields.Item("count").Value)%></td>
<td><%=(fm.Fields.Item("联系人").Value)%></td>
<td><%=(fm.Fields.Item("特殊说明").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
fm.MoveNext()
Wend
%>
</table>
<div align="right">
<input type="button" value="添加" name="B1" class="button" onclick="window.location='EmpMain_crm_AddNew.asp?ID=<%=request("ID")%>'">
</div>
</form>
</body>
</html>
<%
fm.Close()
Set fm = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -