<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
on error resume next
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename = 楼盘团购报名表"&cstr(date())&".xls"
dim rs,sql, sCount
sql = "SELECT * FROM [LouPan_Buy] ORDER BY ItemName ASC, ID DESC"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
sCount = rs.recordcount
%>
可以使用visual studio developer 2005 速成版。
至于代码嘛,找个教程学一下就行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
on error resume next
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename = 楼盘团购报名表"&cstr(date())&".xls"
dim rs,sql, sCount
sql = "SELECT * FROM [LouPan_Buy] ORDER BY ItemName ASC, ID DESC"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
sCount = rs.recordcount
%>
【报名总人数】:<%=sCount%> | 【制表时间】:<%=NOW()%> |
序号 | 姓名 | 性别 | 团购楼盘 | 预购价格 | 手机 | 电话 | 电子邮件 | QQ号码 | 报名时间 | IP地址 |
---|---|---|---|---|---|---|---|---|---|---|
<%=rs("ID")%> | <%=rs("Name")%> | <%=rs("Sex")%> | <%=rs("ItemName")%> | <%=rs("Price")%> | <%=rs("Mobil")%> | <%=rs("Phone")%> | <%=rs("Email")%> | <%=rs("QQ")%> | <%=rs("Time")%> | <%=rs("IP")%> |
简单的,网上有很多源码