ASP教程之输入EXCEL文件的通用函数，很有用

只看该作者 · 发表于 2015-1-16 23:35:17

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

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

x

优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件excel|函数阿余常要把林林总总的查询了局输入到EXCEL中，以是做了上面这段小程序，用于把一个SQL的SELECT查询出的了局输入为EXCEL格局文件，这个程序你只需设好用于获得一个纪录集的SQL的SELECT查询语句和一个文件名，程序就可以输入EXCEL格局文件了，这个程序一共由三个文件组成，第一个文件的文件名为：toexcel.asp是主文件，内容以下：

<%

后面是设置数据源并链接到数据库,请自行誊写相干语句，此处略过

sql=session("toexcelsql")这里是要输入EXCEL的查询语句，如"SESECT*FORMCAIWHERE性别=女"
filename="excel.xls"要输入的EXCEL文件的文件名,你只需改以上两句就好了,别的的都不要改.

你只需修正以上两变量就好了.别的的我都做好了.

calltoexcel(FILENAME,sql)
setconn=nothing

functionReadText(FileName)这是一个用于读出文件的函数
setadf=server.CreateObject("Adodb.Stream")
withadf
.Type=2
.LineSeparator=10
.Open
.LoadFromFile(server.MapPath(FileName))
.Charset="GB2312"
.Position=2
ReadText=.ReadText
.Cancel()
.Close()
endwith
setads=nothing
endfunction

subSaveText(FileName,Data)这是一个用于写文件的函数
setfs=createobject("scripting.filesystemobject")
setts=fs.createtextfile(server.MapPath(FileName),true)
ts.writeline(data)
ts.close
setts=nothing
setfs=nothing
endsub

subtoexcel(filename,sql)这是一个依据SQL语句和FILENAME天生EXCEL文件
Setrs=Server.CreateObject("ADODB.RecordSet")
rs.Opensql,conn,1,3
TOEXCELLR="<tablewidth=100%><tr>"
setmyfield=rs.fields
dimfieldname(50)
fori=0tomyfield.count-1
toexcellr=toexcellr&"<tdclass=xl24>"&MYFIELD(I).NAME&"</td>"
fieldname(i)=myfield(i).name
ifmyfield(i).type=135thendatename=datename&myfield(i).name&","
next
toexcellr=toexcellr&"</tr>"
dowhilenotrs.eof
toexcellr=toexcellr&"<tr>"
fori=0tomyfield.count-1
ifinstr(datename,fieldname(i)&",")0then
ifnotisnull(rs(fieldname(i)))then
TOEXCELLR=TOEXCELLR&"<tdclass=xl25><palign=left>"&formatdatetime(rs(fieldname(i)),2)&"</p></td>"
else
TOEXCELLR=TOEXCELLR&"<tdclass=xl25><palign=left>　</p></td>"
endif
else
TOEXCELLR=TOEXCELLR&"<tdclass=xl24>"&rs(fieldname(i))&"</td>"
endif
next
toexcellr=toexcellr&"</tr>"
rs.movenext
loop
toexcellr=toexcellr&"</table>"
tou=readtext("tou.txt")
di=readtext("di.txt")
toexcellr=tou&toexcellr&di
callsavetext(filename,toexcellr)
endsub
%>
<html>
<head>
<metahttp-equiv="refresh"content="3;URL=<%=filename%>">
<metahttp-equiv="Content-Language"content="en-us">
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>正在天生EXLCE文件</title>
</head>
<BODY>
正在天生EXLCE文件....
</BODY>
</HTML>

＊＊＊＊＊＊＊＊＊＊＊＊＊＊第二个文件名为：di.txt内容以下：

<tablex:strborder=0cellpadding=0cellspacing=0width=288style=border-collapse:
collapse;table-layout:fixed;width:216pt>
<![ifsupportMisalignedColumns]>
<trheight=0style=display:none>
<tdwidth=72style=width:54pt></td>
<tdwidth=72style=width:54pt></td>
<tdwidth=72style=width:54pt></td>
<tdwidth=72style=width:54pt></td>
</tr>
<![endif]>
</table>

＊＊＊＊＊＊＊＊＊＊＊＊第三个文件的文件名为：tou.TXT　内容以下：

<htmlxmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns="http://www.w3.org/TR/REC-html40">

<head>
<metahttp-equiv=Content-Typecontent="text/html;charset=GB2312">
<metaname=ProgIdcontent=Excel.Sheet>
<metaname=Generatorcontent="MicrosoftExcel9">
<linkrel=File-Listhref="./222.files/filelist.xml">
<linkrel=Edit-Time-Datahref="./222.files/editdata.mso">
<linkrel=OLE-Object-Datahref="./222.files/oledata.mso">
<!--[ifgtemso9]><xml>
<o:DocumentProperties>
<o:Author>xky</o:Author>
<o:LastAuthor>xky</o:LastAuthor>
楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。

只看该作者 · 发表于 2015-1-20 10:04:52

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

只看该作者 · 发表于 2015-1-20 22:55:25

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

只看该作者 · 发表于 2015-1-25 14:05:01

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

只看该作者 · 发表于 2015-2-2 22:19:19

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

只看该作者 · 发表于 2015-2-8 13:11:24

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

只看该作者 · 发表于 2015-2-25 15:02:22

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

只看该作者 · 发表于 2015-3-7 22:32:08

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

只看该作者 · 发表于 2015-3-15 15:12:54

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

只看该作者 · 发表于 2015-3-22 01:46:08

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

		自动登录	找回密码
密码			立即注册

[学习教程] ASP教程之输入EXCEL文件的通用函数，很有用

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

相关帖子