📄 eventdetail.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "event","read"
set objcheck=nothing
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
rs.Open "select * from v_event where id="&Request.QueryString("eventid"),conn,1,1
if rs.EOF then
Response.Write "记录不存在"
Response.End
end if
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("subject")%></title>
</head>
<script language="JavaScript">
function window_onload()
{
//window.moveTo(-2,-2);
//window.resizeTo(screen.availWidth, screen.availHeight);
}
</script>
<body bgcolor="#ffffff" onload="window_onload()">
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="35%"><b><font class="title">事件：<%=rs("subject")%></font></b></td>
<td width="65%">
<a href="javascript:opensubwin3('newevent.asp?id=<%=request("eventid")%>','','resizable=yes, scrollbars=yes, left= 40, top=40, menubar=no, location=no, toolbar=no ,width=750, height=550');"><img src="../images/button_edit.gif" border=0></a>
</tr>
<tr >
<td height="16" colspan="2" background="../images/title.gif"></td>
</tr>
<tr>
<td height=4></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="FFFFFF">
<tr>
<td align=center height=20 bgcolor="DEDFDE">主题</td>
<td align=center bgcolor="EFEFEF"><%=rs("subject")%></td>
<td align=center bgcolor="DEDFDE">相关事件类型</td>
<td align=center bgcolor="EFEFEF"><%=rs("relativetype")%></td>
</tr>
<tr>
<td align=center height=20 bgcolor="DEDFDE" width="15%">客户</td>
<td align=center bgcolor="EFEFEF" width="35%"><a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=700, height=480','../account/accountdetail.asp?accountid=<%=rs("accountid")%>');"><%=rs("account")%></a></td>
<td align=center bgcolor="DEDFDE" width="15%">事件类型</td>
<td align=center bgcolor="EFEFEF" width="35%"><%=rs("eventtype")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%" height=18 align=center bgcolor="DEDFDE">待做者</td>
<td width="35%" align=center bgcolor="EFEFEF"><%=rs("eventuser")%></td>
<td width="15%" align=center bgcolor="DEDFDE">销售机会</td>
<td width="35%" align=center bgcolor="EFEFEF">
<a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=700, height=480','../deal/dealdetail.asp?dealid=<%=rs("dealid")%>');">
<%=rs("dealsubject")%></a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%" height=18 align=center bgcolor="DEDFDE">事件日期</td>
<td width="35%" align=center bgcolor="EFEFEF"><%=rs("eventdate")%></td>
<td width="15%" align=center bgcolor="DEDFDE">销售机会阶段</td>
<td width="35%" align=center bgcolor="EFEFEF"><%=rs("dealstagename")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%" height=18 align=center bgcolor="DEDFDE">地址</td>
<td width="35%" align="center" bgcolor="EFEFEF">
<div align="left"><%=rs("address")%></div></td>
<td width="15%" align=center bgcolor="DEDFDE">事件时间</td>
<td width="35%" align=center bgcolor="EFEFEF"><%=rs("eventtime")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%" height=18 align=center bgcolor="DEDFDE">参加人</td>
<td colspan="3" align=center bgcolor="EFEFEF"><div align="left">
<%
set rsat=conn.Execute("select * from v_eventattendant where eventid="&Request.QueryString("eventid"))
do while not rsat.eof
Response.Write rsat("username")&" "
rsat.movenext
loop
%>
</div></td>
</tr>
<tr bgcolor="#FFFFFF" width="85%">
<td width="15%" height=18 align=center bgcolor="DEDFDE">创建者</td>
<td align="center" bgcolor="EFEFEF" width="35%"><%=rs("CreateName")%> </td>
<td align="left" bgcolor="DEDFDE" width="15%"><div align="center">创建日期</div></td>
<td align="center" bgcolor="EFEFEF" width="35%"><%=rs("createdate")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%" height=18 align=center bgcolor="DEDFDE">最后修改者</td>
<td align=center bgcolor="EFEFEF"><%=rs("lastmodname")%></td>
<td width="15%" align=center bgcolor="DEDFDE">最后修改时间</td>
<td align=center bgcolor="EFEFEF"><%=rs("lastmoddate")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%" height=18 align=center bgcolor="DEDFDE">事件目的</td>
<td colspan="3" align=left bgcolor="EFEFEF" width="85%"><%=rs("description")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%" height=18 align=center bgcolor="DEDFDE">事件结果</td>
<td colspan="3" align=left bgcolor="EFEFEF" width="85%"><%=rs("result")%></td>
</tr>
</table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -