asp把access数据库内容导出到excel的代码
我写了一段，但是有点问题。帮忙看看。
<%
action=request("action")
if action="make_excel" then'只有获取指令才进行操作
dim conn,ConnStr
ConnStr="DBQ="+server.mappath("../db/#sdoa.asa")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.Open ConnStr
dim rs,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'定义文件路径，直接为当前目录
filepath=Request.ServerVariables("APPL_PHYSICAL_PATH")
'定义文件名，以当前时间作文件名，不会重复
filename = filepath&year(now)&month(now)&day(now)&".xls"
response.Write(filepath&"sss <br>")
response.Write(filename)
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)
Set rs = Server.CreateObject("ADODB.Recordset")
sql&nbs
相关问答：
我们有一个网站模板，www.c111.com.cn,希望修改一些地方：
1）点击左侧“服务品牌”的其中一个小分类，如“足球”，界面的右侧就出现如www.c111.com.cn/1.jpg，点击1.jpg上方的其中一个品牌logo，下面就出现相关的� ......
我的網頁代碼為ASP語言,驗證方式為系統自帶的WINDOW驗證模式.
現在我如果要在ASP代碼中獲取當前的登入人 ......
请问为什么我这段代码可以显示已修改成功pic文件夹中的图片，但实际上文件夹中的文件名称还是好好的。望高手帮忙改改啊。
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
S ......
IsSqlDataBase = 0 '主数据库类型(1=SQL，0=AC)
'===========================================================================
SqlDatabaseName = "ads365" '主数据库名
S ......
