show_service_detail.asp

来自「Activity——活动管理模块 Analyse——分析模块 Client—」· ASP 代码 · 共 93 行

ASP
93
字号
<%@ LANGUAGE="VBSCRIPT"%>
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<!--#include file="../Pub_Fun.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>销售详表</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Pragma content=no-cache>
<META content="MSHTML 6.00.2715.400" name=GENERATOR>
<style type="text/css">
<!--
.style1 {color: #FF6600}
-->
</style>

</HEAD>
<LINK href="../css.css" rel=stylesheet>

<body>



  <TABLE border=0 cellPadding=5 cellSpacing=0 width="600" align="center">
    <tr class='CListTTL'> 
      <td height = '30' valign="middle" colspan="2"><font color = yellow size = 3><b>反馈服务详细信息</b></font></td>
    </tr>
    <%
''获取传递过来的参数
if  (request("ID")) ="" then
   ID=0
else
    ID=cint(trim(request("ID")) )
end if
'从数据库中读出相应的记录
	set rec = server.createobject("adodb.recordset")
	sql = "select * from FeedBack where  FeedBackID =" & ID	
	rec.open sql,conn,3
if not rec.eof then%>
    <tr class=CRow> 
      <td height = '24' align="left"><strong>反馈主题:</strong>&nbsp;&nbsp;<%=rec("FeedBacktopic")%> </td>
      <td height = '24' align="left"> &nbsp;&nbsp;<strong>反馈日期:</strong>&nbsp;&nbsp;<%=rec("FeedBackdate")%> </td>
    </tr>
    <tr class=CRow> 
      <td height = '24' align="left"><strong>相关客户:</strong>&nbsp;&nbsp;<%=showclientname(rec("FeedBackclientid"))%> </td>
      <td height = '24' align="left"> &nbsp;&nbsp;<strong>相关联系人:</strong>&nbsp;&nbsp;<%=showtouchmanname(rec("FeedBacktouchmanID"))%> </td>
    </tr>
    <tr class=CRow> 
      <td height = '24' align="left"><strong>产品:</strong>&nbsp;&nbsp;<%=rec("FeedBackProduct")%> </td>
      <td height = '24' align="left"> &nbsp;&nbsp;<strong>服务反馈类型:</strong>&nbsp;&nbsp;<%=rec("FeedBackSort")%> </td>
    </tr>
    <tr class=CRow> 
      <td height = '24' align="left"><strong>是否结束</strong>:&nbsp;&nbsp;
	  <%
	  ''先是是否结束、如果结束显示结束时间
	  if rec("FeedBackOver")=0 then 
	     response.Write("未结束")
	  else
	      response.Write("结束")
		  response.Write("&nbsp;&nbsp;<b>时间</b>:"&rec("FeedBackOverDate"))
	  end if	  
	  %>
	  </td>
      <td height = '24' align="left"><strong> &nbsp;&nbsp;操作者</strong>:&nbsp;&nbsp;<%=showoperatorname(rec("FeedBackCreatorID"))%></td>
    </tr>
    <tr class=CRow> 
      <td height = '24' align="left" colspan="2"> <strong>详细描述:</strong></td>
    </tr>
    <tr class=CRow> 
      <td height = '24' align="left" colspan="2"> <%=rec("FeedBackDetail")%>&nbsp;&nbsp; </td>
    </tr>
    <tr class=CRow> 
      <td height = '24' align="left" colspan="2"> <strong>处理结果:</strong></td>
    </tr>
    <tr class=CRow> 
      <td height = '24' align="left" colspan="2"> <%=rec("FeedBackResult")%>&nbsp;&nbsp; </td>
    </tr>
    <% else%>
    <tr class=CRow> 
      <td height = '24' align="left" colspan="2"> &nbsp;&nbsp;没有此记录! </td>
    </tr>
    <%end if
set rec=nothing	
	%>
  </TABLE>
<br>
<center>
<input name="CancelButton" type="button" class="button_all"  value="关闭" onclick="window.close()">
</center>

</BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?