红线抬头源码
2024-11-23 02:38
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本地调试工具，安装后按照软件的star rat 源码分析指导进行操作；2、使用Windows系统自带的IIS在本地计算机上搭建一个WEB服务器，将你的代码放置在wwwroot目录下，或者创建一个新的虚拟目录；3、在网上租用一个支持ASP的虚拟主机空间，通过FTP将你的代码上传到空间的指定目录。你代码中不是包含有word文档吗？打开它，里面应该有操作说明。
下载的asp源码怎么使用？
新手和初学者在下载ASP源码并尝试在自己的电脑上运行时，可能会遇到一些困惑。本文旨在为这些菜鸟级用户解答如何正确使用ASP源码。gprs 心跳包 源码通常，下载的源码会以压缩包的形式存在，解压后包含多种文件类型，这对于新手来说可能感到一头雾水。尽管有些说明提到只需将所有文件上传到网络空间，但这样的描述过于简略，对于新手来说并不够清晰。本文将详细讲解如何在本地下载和使用ASP源码，同样的步骤也适用于PHP源码。
一、易语言vip源码在本地电脑上使用ASP源码：
1. 首先，需要在本地电脑上安装IIS（Internet Information Services）。许多现代操作系统默认不包含IIS，因此可能需要下载并安装。
2. 解压下载的源码，并将其复制到本地电脑的适当文件夹中，通常是C盘下的Inetpub/wwwroot目录。
3. 通过浏览器访问：http://localhost/ 或 http://.0.0.1/ 来查看网站。
4. 如果页面无法显示，请确认是dx9.0 源码否有默认文档如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。存储正确答案
2024-11-23 02:44
2024-11-23 02:28
2024-11-23 02:12
2024-11-23 02:06
2024-11-23 01:27
2024-11-23 01:20
2024-11-23 00:50
2024-11-23 00:41