人要学会放下图片:哪位过路的大侠帮我看看这段代码！检查一下子

来源：百度文库编辑：高考问答时间：2024/04/29 13:53:36

为什么不能运行说“Set fs = server.CreateObject("scripting.filesystemobject")”有错！
<%@ LANGUAGE="VBSCRIPT" %>
<%option explicit%>
<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<title>利用asp将数据库内容生成EXCEL文件</title>
</head>

<body>

利用asp将从数据库中生成EXCEL文件

 

<a href="makeexcel.asp?mov=make">生成EXCEL文件</a>


<hr width="200">
<%
if Request("mov") = "" then '判断操作
else
'----------设置变量
dim temp
dim conn
dim connstr
dim rs,sql
dim filename,fs
dim newfile,source,view

'----------建立数据库对象,进行数据库操作
set conn=server.CreateObject("adodb.connection")
connstr="DBQ="+server.mappath("manage.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
conn.Open connstr,1,1

Set fs = server.CreateObject("scripting.filesystemobject")
'----------设置生成的EXCEL文件的存放路径,我们选择存放在当前数据库文件相同的目录
temp=server.mappath("manage.mdb")'取得数据库文件的物理路径
filename=left(temp,len(temp)-10)
filename = filename+"manage.xls" '设置EXCEL文件名称为manage.xls
'----------如果存在相同的EXCEL文件,则将其删除
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'----------否则,创建新的EXCEL文件
set newfile = fs.CreateTextFile(filename,true)

'-----------创建数据记录集rs

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from 人员 "
'----------打开数据库进行操作
rs.Open sql,conn

'----------判断数据库中是否有数据
if rs.EOF and rs.BOF then

else

dim data,responsestr

data=""

For each source in rs.fields
data= data & source.name & chr(9)
Next

'----------先将数据库中表的列名写入EXCEL文件
' newfile.writeline data

Do while Not rs.EOF
data=""

for each source in rs.Fields
data= data & source.value & chr(9)
next
'----------再将数据库中表的数据写入EXCEL文件
newfile.writeline data
'----------移动数据库记录
rs.MoveNext

loop

end if
'--------------关闭数据库对象
rs.Close
set rs = nothing
conn.close
set conn = nothing
set newfile = nothing
Set fs=Nothing
'--------------察看生成的Excel文件内容
view="<A HREF=" & filename & ">打开Excel文件</a>"
Response.write view
end if
%></body>
</html>

yun
看不懂

哪位过路的大侠帮我看看这段代码！检查一下子哪位高手帮我看看这段代码！检查一下子谁能帮我检查一下这段代码？？？？帮我看看这段代码帮我看看这段代码高手帮我看看这段代码请帮我看看这段代码帮我看看这段java代码谁帮我看看这段代码? 帮我看看这段C代码