仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 381|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网页设计将数据库内里的内容天生EXCEL

[复制链接]
小妖女 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:34:01 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
ASP一般认为只能运行在IIS上,正如前面所提到的,这并不是十分正确,事实上,ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能,所需做的,只需打开mod_perl。1、ASP文件:

<%@LANGUAGE="VBSCRIPT"%>
<%optionexplicit%>
<%
EXAMPLEAS:把数据库中一个天天24小时在耳目数放到一个EXCEL文件中往
AUTHOR:钢铁工人
EMAIL:hello_hhb@21cn.com
DATE:2001-3-25
TEST:在NT4,SP6,SQLSERVER7.0,EXCEL2000中测试经由过程
%>
<HTML>
<HEAD>
<metacontent="text/html;charset=gb2312"http-equiv="Content-Type">
<TITLE>天生EXCEL文件</TITLE>
</HEAD>
<body>
<ahref="dbtoexcel.asp?act=make">天生在耳目口的EXCEL</a>
<hrsize=1align=leftwidth=300px>
<%
ifRequest("act")=""then
else

dimconn
setconn=server.CreateObject("adodb.connection")
conn.Open"test","sa",""
conn.OpenApplication("connstr")

dimrs,sql,filename,fs,myfile,x,link

Setfs=server.CreateObject("scripting.filesystemobject")
--假定你想让天生的EXCEL文件做以下的寄存
filename="c:online.xls"
--假如本来的EXCEL文件存在的话删除它
iffs.FileExists(filename)then
fs.DeleteFile(filename)
endif
--创立EXCEL文件
setmyfile=fs.CreateTextFile(filename,true)



Setrs=Server.CreateObject("ADODB.Recordset")
--从数据库中把你想放到EXCEL中的数据查出来
sql="selectpopulation,hourpos,dateposfrompopulationperhourorderbydatepos,hourposasc"
rs.Opensql,conn
ifrs.EOFandrs.BOFthen

else

dimstrLine,responsestr
strLine=""
Foreachxinrs.fields
strLine=strLine&x.name&chr(9)
Next

--将表的列名先写进EXCEL
myfile.writelinestrLine

DowhileNotrs.EOF
strLine=""

foreachxinrs.Fields
strLine=strLine&x.value&chr(9)
next
--将表的数据写进EXCEL
myfile.writelinestrLine

rs.MoveNext
loop

endif

rs.Close
setrs=nothing
conn.close
setconn=nothing
setmyfile=nothing
Setfs=Nothing

link="<AHREF="&filename&">OpenTheExcelFile</a>"
Response.writelink
endif
%>
</BODY>
</HTML>


2、数据库相干:

CREATETABLE[populationperhour](
[population][int]NOTNULL,
[hourpos][int]NOTNULL,
[datepos][datetime]NOTNULL
);
insertintopopulationperhourvalues(936,1,2001-1-11);
insertintopopulationperhourvalues(636,2,2001-1-11);
insertintopopulationperhourvalues(106,3,2001-1-11);
insertintopopulationperhourvalues(177,4,2001-1-11);
insertintopopulationperhourvalues(140,5,2001-1-11);
insertintopopulationperhourvalues(114,6,2001-1-11);
insertintopopulationperhourvalues(94,7,2001-1-11);
insertintopopulationperhourvalues(49,8,2001-1-11);
insertintopopulationperhourvalues(88,9,2001-1-11);
insertintopopulationperhourvalues(215,10,2001-1-11);
insertintopopulationperhourvalues(370,11,2001-1-11);
insertintopopulationperhourvalues(550,12,2001-1-11);
insertintopopulationperhourvalues(629,13,2001-1-11);
insertintopopulationperhourvalues(756,14,2001-1-11);
insertintopopulationperhourvalues(833,15,2001-1-11);
insertintopopulationperhourvalues(923,16,2001-1-11);
insertintopopulationperhourvalues(980,17,2001-1-11);
insertintopopulationperhourvalues(957,18,2001-1-11);
insertintopopulationperhourvalues(812,19,2001-1-11);
insertintopopulationperhourvalues(952,20,2001-1-11);
insertintopopulationperhourvalues(1379,21,2001-1-11);
insertintopopulationperhourvalues(1516,22,2001-1-11);
insertintopopulationperhourvalues(1476,23,2001-1-11);
insertintopopulationperhourvalues(1291,24,2001-1-11);
insertintopopulationperhourvalues(1028,1,2001-1-12);
insertintopopulationperhourvalues(687,2,2001-1-12);
insertintopopulationperhourvalues(462,3,2001-1-12);
insertintopopulationperhourvalues(317,4,2001-1-12);
insertintopopulationperhourvalues(221,5,2001-1-12);
insertintopopulationperhourvalues(158,6,2001-1-12);
insertintopopulationperhourvalues(127,7,2001-1-12);
insertintopopulationperhourvalues(81,8,2001-1-12);
insertintopopulationperhourvalues(96,9,2001-1-12);
insertintopopulationperhourvalues(192,10,2001-1-12);
insertintopopulationperhourvalues(380,11,2001-1-12);
insertintopopulationperhourvalues(629,12,2001-1-12);
insertintopopulationperhourvalues(745,13,2001-1-12);
insertintopopulationperhourvalues(964,14,2001-1-12);
insertintopopulationperhourvalues(1012,15,2001-1-12);
insertintopopulationperhourvalues(1050,16,2001-1-12);
insertintopopulationperhourvalues(1135,17,2001-1-12);
insertintopopulationperhourvalues(1130,18,2001-1-12);
insertintopopulationperhourvalues(894,19,2001-1-12);
insertintopopulationperhourvalues(1026,20,2001-1-12);
insertintopopulationperhourvalues(1430,21,2001-1-12);
insertintopopulationperhourvalues(1777,22,2001-1-12);
insertintopopulationperhourvalues(1759,23,2001-1-12);
insertintopopulationperhourvalues(1697,24,2001-1-12);

问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.
活着的死人 该用户已被删除
沙发
发表于 2015-1-19 16:30:33 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
只想知道 该用户已被删除
板凳
发表于 2015-1-24 18:20:31 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
小妖女 该用户已被删除
地板
 楼主| 发表于 2015-2-2 11:47:08 | 只看该作者
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
不帅 该用户已被删除
5#
发表于 2015-2-7 19:20:22 | 只看该作者
用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
兰色精灵 该用户已被删除
6#
发表于 2015-2-23 03:32:20 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
蒙在股里 该用户已被删除
7#
发表于 2015-3-7 06:04:08 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
精灵巫婆 该用户已被删除
8#
发表于 2015-3-14 13:58:00 | 只看该作者
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
小女巫 该用户已被删除
9#
发表于 2015-3-21 09:37:41 | 只看该作者
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 14:32

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表