1.请高手帮忙!报表系报表!统源!制作用ASP如何生成excel报表 本人原意贡献所有积分谢谢!工具!报表系报表!统源网页公告源码
2.网上下载了asp源码,制作怎么样才能运行
3.下载的asp源码怎么使用?
4.现在在做关于 asp的网上考试系统 希望你能帮忙
请高手帮忙!!工具!报表系报表用ASP如何生成excel报表 本人原意贡献所有积分谢谢!统源!制作!工具
生成报表是报表系报表做系统经常遇到的事,一些企业或者单位往往要求EXCEL格式的报表!
第一种方式
程序代码
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = "c:\online.xls"
'-创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
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
'--将表的数据写入EXCEL
myfile.writeline strLine
rs.MoveNext
loop
end if
Set fs=Nothing
这方法的好处是不管有多少条记录 速度上是没问题 但是有一个很严重的缺点 就是生成的EXCEL文件的格式不能得到很好的控制 例如 单元格的格式不能改变等
第二种方法 用EXCEL组件+EXCEL模板
原理是打开一个存在的EXCEL模板文件 然后写入数据后在另存为所要的报表文件
优点:格式能很好的控制
缺点:速度上很慢 (因为控件接口很费资源)
看了微软的说明又想到了用数组做中转的方法 只要打开一个接口写入所有数据,于是问题得到了解决,可是新的问题出来了,万或者更高的记录时 数组就的空间分配就成了问题了.
工夫不负有心人 ,经过几天努力 终于完美解决
就是记录多时分批写入~~~~~~~~~
程序代码
sub writetoarr(lines,begin_rs,begin_exl)
'==============================================================================
'过程writetoarr(lines,begin_rs,begin_exl)写入EXCEL
'lines:要写入的记录条数
'begin_rs:从第几条记录开始
'begin_exl:要写入的EXCEL开始位置
'==============================================================================
redim temparr(lines-1,)
'--将表的列名存放到数组
'--将表的数据存放到数组
ii=1
For i = begin_rs To begin_rs+lines-1
j=0
'response.write ii&"<br>"
For each x in rs.fields
temparr(ii-1,j)=x.value
j=j+1
Next
ii=ii+1
rs.movenext
Next
objExcelSheet.Range("A"&begin_exl).Resize(lines, ).Value = temparr
redim temparr(0,0)
response.write "从A"&begin_exl&"开始写到A"&begin_exl+lines&"<br>"
response.write "从第"&begin_rs&"条到"&begin_rs+lines&"条记录<br>"
response.write "共写入"&lines&"行<br>"
response.write "-------------------------<br>"
end sub
maxk=rs.recordcount
beginrs=1 '从第几条记录开始,一般是统源1
beginexl=2 '从excel的第几行开始写,一般是制作2
liness= '每次操作多少条记录,不建议超过万
do while maxk>0
if maxk>liness then
call writetoarr(liness,beginrs,beginexl)
beginrs=beginrs+liness
beginexl=beginexl+liness
maxk=maxk-liness
else
call writetoarr(maxk,beginrs,beginexl)
exit do
end if
loop
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = "c:\online.xls"
'-创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
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
'--将表的数据写入EXCEL
myfile.writeline strLine
rs.MoveNext
loop
end if
Set fs=Nothing
这方法的好处是不管有多少条记录 速度上是没问题 但是有一个很严重的缺点 就是生成的EXCEL文件的格式不能得到很好的控制 例如 单元格的格式不能改变等
第二种方法 用EXCEL组件+EXCEL模板
原理是打开一个存在的EXCEL模板文件 然后写入数据后在另存为所要的报表文件
优点:格式能很好的控制
缺点:速度上很慢 (因为控件接口很费资源)
看了微软的说明又想到了用数组做中转的方法 只要打开一个接口写入所有数据,于是问题得到了解决,可是新的问题出来了,万或者更高的记录时 数组就的空间分配就成了问题了.
工夫不负有心人 ,经过几天努力 终于完美解决
就是记录多时分批写入~~~~~~~~~
程序代码
sub writetoarr(lines,begin_rs,begin_exl)
'==============================================================================
'过程writetoarr(lines,begin_rs,begin_exl)写入EXCEL
'lines:要写入的记录条数
'begin_rs:从第几条记录开始
'begin_exl:要写入的EXCEL开始位置
'==============================================================================
redim temparr(lines-1,)
'--将表的列名存放到数组
'--将表的数据存放到数组
ii=1
For i = begin_rs To begin_rs+lines-1
j=0
'response.write ii&"<br>"
For each x in rs.fields
temparr(ii-1,j)=x.value
j=j+1
Next
ii=ii+1
rs.movenext
Next
objExcelSheet.Range("A"&begin_exl).Resize(lines, ).Value = temparr
redim temparr(0,0)
response.write "从A"&begin_exl&"开始写到A"&begin_exl+lines&"<br>"
response.write "从第"&begin_rs&"条到"&begin_rs+lines&"条记录<br>"
response.write "共写入"&lines&"行<br>"
response.write "-------------------------<br>"
end sub
maxk=rs.recordcount
beginrs=1 '从第几条记录开始,一般是1
beginexl=2 '从excel的第几行开始写,一般是2
liness= '每次操作多少条记录,不建议超过万
do while maxk>0
if maxk>liness then
call writetoarr(liness,beginrs,beginexl)
beginrs=beginrs+liness
beginexl=beginexl+liness
maxk=maxk-liness
else
call writetoarr(maxk,beginrs,beginexl)
exit do
end if
loop
网上下载了asp源码,怎么样才能运行
方法一:1、获取一个如netbox的ASP本地调试工具,安装后按照软件的openwrt源码语言指导进行操作;2、使用Windows系统自带的IIS在本地计算机上搭建一个WEB服务器,将你的代码放置在wwwroot目录下,或者创建一个新的虚拟目录;3、在网上租用一个支持ASP的虚拟主机空间,通过FTP将你的代码上传到空间的指定目录。你代码中不是包含有word文档吗?打开它,里面应该有操作说明。
下载的asp源码怎么使用?
新手和初学者在下载ASP源码并尝试在自己的电脑上运行时,可能会遇到一些困惑。本文旨在为这些菜鸟级用户解答如何正确使用ASP源码。libxml 源码分析通常,下载的源码会以压缩包的形式存在,解压后包含多种文件类型,这对于新手来说可能感到一头雾水。尽管有些说明提到只需将所有文件上传到网络空间,但这样的描述过于简略,对于新手来说并不够清晰。本文将详细讲解如何在本地下载和使用ASP源码,同样的步骤也适用于PHP源码。
一、网闸源码在本地电脑上使用ASP源码:
1. 首先,需要在本地电脑上安装IIS(Internet Information Services)。许多现代操作系统默认不包含IIS,因此可能需要下载并安装。
2. 解压下载的源码,并将其复制到本地电脑的适当文件夹中,通常是C盘下的Inetpub/wwwroot目录。
3. 通过浏览器访问:http://localhost/ 或 http://.0.0.1/ 来查看网站。
4. 如果页面无法显示,请确认是老火机源码否有默认文档如index.asp,如果有,先运行安装脚本。如果问题依旧,检查conn.asp文件中的数据库连接参数是否正确。
二、在本地电脑上使用PHP源码:
1. 安装PHPnow环境,它集成了PHP和MySQL,可以通过迅雷搜索并下载。
2. 将源码复制到PHPnow安装目录下的htdocs文件夹。
3. 如果无法访问,检查是否需要导入数据库,可以通过phpMyAdmin进行操作。检查config.php文件中的数据库连接参数是否正确。
4. 如果配置了虚拟主机,将源码复制到虚拟主机控制的文件夹,并通过相应的地址访问。
三、将源码上传到网络空间:
1. 确认空间提供商支持哪种源码类型,如ASP+Access或PHP+MySQL。
2. 将源码上传到空间的服务器根目录或指定目录。
3. 使用域名或特定路径访问网站。
4. 如果包含SQL数据库,先导入数据库,并根据空间提供商提供的数据库信息更新连接参数。不含数据库的PHP源码通常含有安装脚本,可以运行install.php进行安装。
5. 对于SQL数据库的导入,确认空间服务器是否允许远程访问,如果允许,使用SQL管理工具导入;如果不允许,通过空间提供商的用户控制面板进行导入。
请尊重原创作者,转载时请注明出处:尖叫论坛。
现在在做关于 asp的网上考试系统 希望你能帮忙
首先建立一数据库exercise.mdb,其中包括两个表:user和test,user表中有包括三个字段:
字段名称:user;字段类型:文本;字段大小:。存储用户名
字段名称:passwd;字段类型:文本;字段大小:。存储用户密码
字段名称:score;字段类型:数字;字段大小:整型。存储用户成绩
test表中有五个字段:
字段名称:question;字段类型:文本;字段大小:。存储考试题目
字段名称:a;字段类型:文本;字段大小:。存储选项A的答案
字段名称:b;字段类型:文本;字段大小:。存储选项B的答案
字段名称:c;字段类型:文本;字段大小:。存储选项C的答案
字段名称:d;字段类型:文本;字段大小:。存储选项D的答案
字段名称:ans;字段类型:文本;字段大小:2。存储正确答案