我这样将数据库中的内容直接显示成word文档,但是怎样在查询后也能显示成word呢?
gupp 2004-01-11 06:05:59 (1)如果不用查询,直接将数据库中的所有数据用word文档的格式显示,可以这样写:
<%
response.ContentType="Application/msword"
response.addHeader"Content-disposition","inline;filename=Book1.doc"
%>
<html>
<head>
<title>无标题文档</title>
</head>
<body>
<%
Dim subject
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open "Filedsn=AccessData.dsn"
SQLQuery = "SELECT * FROM depart "
Set rs= objConnection.Execute(SQLQuery)
%>
<table width="75%" border="0">
<%
Do While Not rs.EOF
%>
<tr>
<td><%=rs("chiname")%></td>
<td><%=rs("engname")%></td>
</tr>
<%
rs.MoveNext
Loop
%>
<%
rs.Close
set rsCat=nothing
%>
</table>
</body>
</html>
是成功的,但是
(2)如果其他都不变,只是作了如下修改,就不能显示查询出来的内容了:
将SQLQuery = "SELECT * FROM depart "
改为
SQLQuery = "SELECT * FROM depart where Chiname = '"&subject&"'"
调用页面是绝对正确的,这该怎么办呢?