tble.asp

来自「ASP客户关系管理系统+论文 全套毕业设计」· ASP 代码 · 共 50 行

ASP
50
字号
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=DataBase/conn.asp-->
<!--#include file=config.asp-->
<%
a=array("联系人姓名",2,3,4,5,6,7,8,9,10,11)
%>
<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("select LinkmanName,LinkmanDept,LinkmanTel,LinkmanHander,LinkmanEmail from tb_Linkman")
%>
<table width="100"  border="1" cellspacing="0">
  <tr>
  <%
  j=2
  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"><%=rs(i)%></td>
	<%next%>

  </tr>
  <%
  rs.movenext
  j=j+1
  loop
  rs.close
  %>
</table>
</body>
</html>

⌨️ 快捷键说明

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