report.asp

来自「ASPSQL企业网络管理系统」· ASP 代码 · 共 49 行

ASP

49 行

<%
response.buffer = true
dim accessdb,cn,rs,sql
accessdb = "db.mdb"
cn = "DRIVER={Microsoft Access Driver (*.mdb)};"
cn = cn & "DBQ=" & server.mappath(accessdb) & ";"
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from user_info"
rs.Open sql,cn
'告诉浏览器用word来显示文档内容
Response.ContentType = "application/msword"
'文档设定
response.AddHeader "content-disposition", "inline; filename=report.doc"
%>
<html>
<head>
<title>报表</title>
</head>
<body bgcolor="#FFFFFF">
<center>
  <h1>报表</h1>
</center>
<table border=1 cellspacing=0 cellpadding=0 bordercolor=#000000 align=center>
  <tr> 
    <td>用户名</td>
    <td>真实姓名</td>
    <td>性别</td>
  </tr>
  <%
while not rs.eof
%>
  <tr> 
    <td><%= rs("user_name") %></td>
    <td><%= rs("name") %></td>
    <td><%= rs("sex") %></td>
  </tr>
  <%
'移到下一个记录
	rs.movenext
wend
rs.close
set rs=nothing
response.flush
'response.end
%>
</table>
</body>
</html>

report.asp - 源码说明

本页面展示了「ASPSQL企业网络管理系统」中的 report.asp 源码文件，采用 ASP 编程语言编写，共 49 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASPSQL相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?