28,405
社区成员
发帖
与我相关
我的任务
分享我这样将数据库中的内容直接显示成word文档，但是怎样在查询后也能显示成word呢？
（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&"'"
调用页面是绝对正确的，这该怎么办呢？
<%
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&"'"
调用页面是绝对正确的，这该怎么办呢？
...全文
请发表友善的回复…
发表回复
sfar 2004-07-27
- 打赏
- 举报
SQLQuery = "SELECT * FROM depart where Chiname = '"&subject&"'"
Response.Write( SQLQuery )
Response.End
Response.Write( SQLQuery )
Response.End
TSD 2004-07-27
- 打赏
- 举报
把 subject 这个变量换成 mysubject 试试
小安子 2004-07-27
- 打赏
- 举报
跟着学习
xujing1975 2004-07-27
- 打赏
- 举报
看看你Chiname字段是否写错。数据类型是否匹配
gupp 2004-01-11
- 打赏
- 举报
我的问题有没有大侠解答啊…………急…………
wshzhi 2004-01-11
- 打赏
- 举报
跟着学习
