易截截图软件、单文件、免安装、纯绿色、仅160KB

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


相关问答:

asp中用javascript动态改变Image的src的路径问题

<form id="form1" runat="server">
  <div>
  <script type="text/javascript">
  function oo(a){
  document.getEleme ......

我是一名ASP处学者!想请帮忙推荐一本ASP好的书籍

我原本是学jsp的可找了一个ASP的公司!我要重新学习! 学习ASP! 希望大家推荐一本好书给我谢谢
<ASP3.0高级编程> 网上有电子版的

发现网上asp信息时最多的 比其他的都多好多

yun

找本有应用事例的A ......

asp升级到asp.net,好多结构都不知道如何转换

asp下面,当要根据不同的权限显示一些功能按钮的话会写成
<%
if 权限=1 then
%>
<input type="submit" name="Submit" value="提交" />
<%
end i ......

关于ASP批量修改文件名的问题

请问为什么我这段代码可以显示已修改成功pic文件夹中的图片,但实际上文件夹中的文件名称还是好好的。望高手帮忙改改啊。
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
S ......

asp跟Access数据连接问题。

IsSqlDataBase = 0 '主数据库类型(1=SQL,0=AC)

'===========================================================================
SqlDatabaseName = "ads365" '主数据库名
S ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号