table_kh.asp

来自「该源码包含了CRM系统的基本功能」· ASP 代码 · 共 56 行

ASP
56
字号
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=DataBase/conn.asp-->

<%
if request("tt")="Excel" then'当为客户报表查询时产生相应字段
	a=array("公司名称","所在国家/地区","所在城市","公司电话","公司传真","E-mail")
elseif  request("tt")="Excel_l" then'当为联系人报表查询时产生相应字段
	a=array("姓名","客户名称","部门","职务","电话","手机","E-mail")
elseif request("tt")="Excel_k" then'当为反馈客户报表查询时产生相应字段
	a=array("客户名称","反馈日期","是否解决","反馈主题","反馈内容","处理结果")
elseif request("tt")="Excel_kc" then'当为库存报表查询时产生相应字段
	a=array("产品编号","产品名称","产品数量","单位","库存类型") 
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style>
</head>

<body>
<%response.ContentType="application/vnd.ms-excel"%>
<%
set rs=conn.execute(request("sql"))
%>
<table width="100"  border="1" cellspacing="0">
  <tr>
<%
for i=0 to rs.fields.count-1
%>
    <td align="center"><%=a(i)%></td>
<%next%>

  </tr>
<%do while not rs.eof%>
  <tr>
	<%for i=0 to rs.fields.count-1%>
    <td align="center" class="table"><%=rs(i)%></td>
	<%next%>
  </tr>
<%
rs.movenext
loop
rs.close
%>
</table>
</body>
</html>

⌨️ 快捷键说明

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