ASP网页设计ASP输入EXCEL文件的通用函数 function,nothing,数据库,数据源,EXCEL

老尸发表于 2015-1-16 22:44:09

ASP网页设计ASP输入EXCEL文件的通用函数

ASP是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊！上面这段小程序，用于把一个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’>
<!>
<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>
<!>
</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">

<style>

</style>

</head>

<bodylink=bluevlink=purple>
强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。

老尸发表于 2015-1-19 21:50:52

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

飘灵儿 发表于 2015-1-28 08:23:49

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

爱飞发表于 2015-2-5 14:30:16

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

若天明 发表于 2015-2-12 06:22:42

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

活着的死人 发表于 2015-3-2 23:08:50

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

分手快乐 发表于 2015-3-11 07:21:35

代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

若相依 发表于 2015-3-17 23:09:16

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

灵魂腐蚀 发表于 2015-3-25 06:29:33

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

页: [1]

仓酷云's Archiver

ASP网页设计ASP输入EXCEL文件的通用函数