网络资讯

目标网络完善的客服机制,能快速解决您的疑问。


ASP动态ip生成XLS文件

2020-03-05 17:53:22   来源:   点击:
  <% Response.Buffer = true
 
  Response.CharSet = "utf-8" %>
 
  <!--#include file="conn.asp"-->
 
  <%
 
  dim    rs,sql,filename,fs,myfile,x
 
  Set    fs    =    server.CreateObject("scripting.filesystemobject")
 
  '--假设你想让生成的EXCEL文件做如下的存放
 
  filename    =    "E:\文件名.xls"
 
  '--如果原来的EXCEL文件存在的话删除它
 
  if    fs.FileExists(filename)    then
 
  fs.DeleteFile(filename)
 
  end    if
 
  '--创建EXCEL文件
 
  set    myfile    =    fs.CreateTextFile(filename,true)
 
  Set    rs    =    Server.CreateObject("ADODB.Recordset")
 
  '--从数据库动态VPN中把你想放到EXCEL中的数据查出来
 
  sql    =    "select * from TABLES "
 
  rs.Open    sql,conn
 
  if    rs.EOF    and    rs.BOF    then
 
  else
 
  dim    strLine,responsestr
 
  strLine=""
 
  For    each    x    in    rs.fields
 
  strLine=    strLine    &    x.name    &    chr(9)
 
  Next
 
  '--将表的列名先写入EXCEL
 
  myfile.writeline    strLine
 
  Do    while    Not    rs.EOF
 
  strLine=""
 
  for    each    x    in    rs.Fields
 
  strLine=    strLine    &    x.value    &    chr(9)
 
  next
 
  '--将表的数据动态ip写入EXCEL
 
  myfile.writeline    strLine
 
  rs.MoveNext
 
  loop
 
  end    if
 
  rs.Close
 
  set    rs    =    nothing
 
  response.Write "<script language=javascript>alert('completed!');history.go(-1);</script>"
 
  %>

上一篇:Exchange 2010动态IP
下一篇:cisco交换机中通过IP查端口将ip与mac绑定及ip与端口绑定

桂ICP备19002340号-2
目标互联网络仅提供加速技术服务,用户使用目标互联网络从事的任何行为均不代表目标动态IP加速器的意志和观点,与目标互联网络的立场无关。 严禁用户使用目标动态IP加速器从事任何违法犯罪行为,产生的相关责任用户自负,对此目标动态IP加速器不承担任何法律责任。 目标公司保留公司所有权利

庆祝双11优惠活动,99元200多地区每月独享动态线路,买2送1。
点击立刻咨询 点击立刻咨询 点击立刻咨询