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
相关问答：
由于对页面使用了伪静态
并且对ID进行了加密。
主要代码如下：
httpd.ini
RewriteRule /List-([0-9,a-z]*).html /List.asp\?ComId=$1 [N,I]
程序代码
A为加密，B为解密函数
<a href=&q ......
<%
Sql="select top 8 * from NewsData where d_classid in (select classid from NewsClass where ParentID=16)"
Rs.Open Sql, conn, 1,1
Do Until Rs.Eof
......
现在这社会基本上不需要ASP程序员了,一面试,都要.NET或者PHP,JSP的,哎,,,,ASP这么不值钱吗,学习ASP是个错误吗
没啥错误 一句话：技多不压身
靠ASP都混不到饭吃了 晕 晕
我的意思是多学一门技术没啥错误 ......
asp下面，当要根据不同的权限显示一些功能按钮的话会写成
<%
if 权限=1 then
%>
<input type="submit" name="Submit" value="提交" />
<%
end i ......
不是直接打开，而是读取内容，然后可以操作的数据，可以存储到数据库或者显示在页面上。
word文件在服务器端。
可以考虑用第三方组件
http://officewriter.softartisans.com/officewriter-372.aspx
有中文说 ......
