📄 report.asp
字号:
<%
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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -