ASP网页设计WSH 间接将查询数据了局天生 EXCEL 表

asp对于服务器的要求较高，一般的服务器如果访问量一大就垮了，不得不重启。EXCELa.VBS间接将查询数据了局天生EXCEL表，稍做修正后便可
改成ASP文件放在服务器下面向客户

optionExplicit
dimconn,strConnString
Setconn=WScript.CreateObject("ADODB.Connection")
onerrorresumenext
strConnString="Provider=SQLOLEDB.1;Password=UP;"&_
"PersistSecurityInfo=True;UserID=UI;"&_
"InitialCatalog=UCOOl;"&_
"DataSource=111.111.111.111;ConnectTimeout=15"
conn.OpenstrConnString
iferr.number0Then
WScript.echo"数据库链接不顺畅!;"
WScript.Quit
endIf
onerrorgoto0
Dimrs,sql
setrs=WScript.createobject("adodb.recordset")
onerrorresumenext
sql="selectname,dw,dwdz,zw,sex,emailfromt1orderbyiddesc"
rs.Opensql,conn
iferr.number0Then
WScript.echo"查询语句有误!;"
WScript.Quit
endIf
onerrorgoto0
dimrsname,i
onerrorresumenext
rsname=RS(0).name
fori=1toRS.Fields.Count-1
rsname=rsname&chr(9)&RS(i).name
next
rsname=rsname&chr(13)
Dimstrdate
strdate=rsname&rs.GetString(2,-1,,,"")
iferr.number0Then
WScript.echo"保留数据时堕落!;"
WScript.Quit
endIf
Setconn=Nothing
Setrs=Nothing
onerrorgoto0
Dimfs,fl,path,ntime
Setfs=WScript.CreateObject("scripting.filesystemobject")
path=WScript.scriptfullname
path=left(path,instrrev(path,""))
ntime=cstr(Now)
ntime=Replace(ntime,":","_")
onerrorresumenext
Setfl=fs.CreateTextFile(path&ntime&".xls",true)
fl.Writestrdate
iferr.number0Then
WScript.echo"创建文件堕落!;"
endIf

由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况；

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: