📄 down_report_service.asp

📁 Activity——活动管理模块 Analyse——分析模块 Client——客户管理系统模块 Email——E-mail管理模块 Fee——费用管理模块 Report——报表模块 Sel

💻 ASP

字号:

<!--#INCLUDE file="../pub_fun.asp"-->
<!--#INCLUDE FILE="../conn.asp"-->
<html>
<HEAD>
<META NAME="Keywords" CONTENT="FastReport"/>
<META NAME="Description" CONTENT="The FastReport report"/>
<LINK href="../css.css" rel="stylesheet" type="text/css" media="all">
<title>反馈信息报表下载</title>
</head>
<body >
<%


''获取查询语句
textSql=decrypt(trim(request("sql")))

   

'创建文件名
strFileName = "r_service_" & GetAutoID() & ".csv"
strFullFileName = server.mappath("../data/" & strFileName)		'带路径

SET objMyFile   = Server.Createobject("scripting.filesystemobject")
SET objNewsFile = objMyFile.createtextfile(strFullFileName)

''从数据库中读出相应的文件
SET objRs = Server.CreateObject("Adodb.RecordSet")
objRs.Open textSql,conn,3

intRC = objRs.RecordCount
strTitle = "反馈客户,反馈主题,反馈时间,是否解决,相关产品,服务反馈类型"

'写入表头
objNewsFile.writeline(strTitle)

'写入标题
FOR i=1 TO intRC
      strLineString=showclientname(objRs("Feedbackclientid"))&","
	  strLineString=strLineString&objRs("FeedbackTopic")&","
	  strLineString=strLineString&objRs("FeedbackDate")&","
      if objRs("FeedbackOver")="0" then
	           strLineString=strLineString&"未解决,"
	 else
		      strLineString=strLineString&"已解决,"
    end if
         strLineString=strLineString&objRs("FeedbackProduct")&","
		 strLineString=strLineString&objRs("FeedbackSort")
    	objNewsFile.writeline(strLineString)
				
	objRs.movenext
NEXT

objRs.Close
SET objRs = NOTHING
objNewsFile.close
SET objNewsFile = NOTHING
SET objMyFile   = NOTHING
%>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" width="380" height="207">
    <tr  class="CListTTL" >
        <td height="29" ><font color = yellow ><b>下载反馈信息数据</b></FONT></td>
    </tr>
    <tr CLASS=cROW>
      <td width="100%" height="177">
        <center>
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="72%" id="AutoNumber2">
          <tr align="center" CLASS=cROW>
            <td nowrap><a href="../data/<%=strFileName%>"  onMouseDown="javascript:if (event.button==1) alert('请用鼠标右键点击链接\n选择目标另存为!')"><font color=blue><strong>下 载</strong></font></a></td>
          </tr>
          <tr align="center" CLASS=cROW>
            <td nowrap><br><br><br><font color = red>说明：用鼠标右键点击“下载”，选择“目标另存为...”功能</font></td>
          </tr>
        </table>
        </center>
     
      </td>
    </tr>
  </table>
  </center>
</div>
</BODY>
</HTML>

💿 文件大小 261 K

👤 上传用户 peterzhang1982

📂 所属分类企业管理

🏷️ 相关标签

#模块 #Activity #Analyse #Client

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -