ASP总结

第一篇：ASP总结

ASP 课 程 设 计 总 结系别：信息工程系 班级：09大计一班 学号：52 姓名：张明

通过这次课程设计，我拓宽了知识面，锻炼了能力，综合素质得到了提高。课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对学生实际工作能力的具体训练和考察过程.通过理论与实际的结合、人与人的沟通，进一步提高思想觉悟。尤其是观察、分析和解决问题的实际工作能力，以便培养成为能够主动适应社会主义现代化建设需要的高素质的复合型人才。作为整个学习体系的有机组成部分，课程设计虽然安排在连续两周进行，但并不具有绝对独立的意义。它的一个重要功能，在于运用学习成果，检验学习成果。运用学习成果，把课堂上学到的系统化的理论知识，尝试性地应用于实际设计工作，并从理论的高度对设计工作的现代化提出一些有针对性的建议和设想。检验学习成果，看一看课堂学习与实际工作到底有多大距离，并通过综合分析，找出学习中存在的不足，以便为完善学习计划，改变学习内容与方法提供实践依据。对我们计算机专业的专科生来说，实际能力的培养至关重要，而这种实际能力的培养单靠课堂教学是远远不够的，必须从课堂走向实践。这也是一次预演和准备毕业设计工作。通过课程设计，让我们找出自身状况与实际需要的差距，并在以后的学习期间及时补充相关知识，为求职与正式工作做好充分的知识、能力准备，从而缩短从校园走向社会的心理转型期。

回顾起此次asp课程设计，至今我仍感慨颇多，的确，从拿到老师给我们的题目，然后老师简单的阐述我们该做些什么，该完成些什么的时候，我就觉得这个课程设计是很有挑战的，因为我知道平时自

己学的知识不是很牢固，这些做起来肯定很棘手。事实验证了我的想法。在整整两星期的日子里，可以说得是苦多于甜，由于对相关知识所学甚少，可以说做起设计来是一片茫然。在设计的过程中遇到问题，可以说得是困难重重，遇到过各种各样的问题，同时在设计的过程中发现了自己的不足之处，对以前所学过的知识理解得不够深刻，掌握得不够牢固。看着那些陌生的代码和程序，真的不知道该怎么办。但是最后还是我们组其他成员帮助了我。在他们做的差不多的情况下，我在帮忙整理和美化，并试着去看懂代码，在这期间我也弄懂了不少问题和知识。由于自己并没多少知识，别人可以说是通过此次课程设计巩固了以前所学过的知识，而且学到了很多在书本上所没有学到过的知识，而我呢，只能说是从这次课程设计中重新审视了自己，终于发现自己对所学知识的严重不足，这也给我提了个醒，没知识终究将是一事无成。

不过通过这次课程设计我也明白了很多事理。它使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。

课程设计达到了专业学习的预期目的。在两个星期的课程设计之后，我们普遍感到不仅实际动手能力有所提高，更重要的是通过对汇编语言重大功能的了解，进一步激发了我们对专业知识的兴趣，并能够结合实际存在的问题在专业领域内进行更深入的学习。在课程设计过程中，收获知识，提高能力的同时，我也学到了很多人生的哲理，懂得怎么样去制定计划，怎么样去实现这个计划，并掌握了在执行过程中怎么样去克服心理上的不良情绪。因此在以后的生活和学习的过程中，我一定会把课程设计的精神带到生活中，不畏艰难，勇往直前！

第二篇：asp总结

生成静态页面的代码：

<%

dim xmlHttp,os, PersonNum

'定义xmlhttp

function GetXmlText(Url)

dim GetXmlHttp

set GetXmlHttp=server.Createobject(“Microsoft.XMLHTTP”)GetXmlHttp.open “Get”,url,false,“",”“

GetXmlHttp.Send

'GetXmlText=GetXmlHttp.Responsetext

GetXmlText=GetXmlHttp.ResponseBody

set GetXmlHttp=Nothing

end function

'转换为字符

Function BytesToBstr(body,Cset)

dim objstream

set objstream = Server.CreateObject(”adodb.stream“)objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = Cset

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

End Function

'保存文件

Sub SaveToFile(strBody,File)

Dim objStream

Set objStream = Server.CreateObject(”ADODB.Stream“)With objStream

.Type = 2

.Open

.Charset = ”GB2312“

.Position = objStream.Size

.WriteText = strBody

.SaveToFile Server.MapPath(File),2

.Close

End With

Set objStream = Nothing

End Sub

%>

<% dim k

k=0

'set rs=server.createobject(”adodb.recordset“)

'sql=”select ComId FROM CompanyTbl order by Comid desc“

'rs.open sql,conn,1,1

'PersonNum = rs.recordcount

'

do while k<10

Randomize

ComId=int(rnd*1000)

%>

<%SaveToFile

BytesToBstr(GetXmlText(”“%>

<%

'rs.movenext

k=k+1

loop

'rs.close()

'Set rs=Nothing

'Qsite.ShowMsg ”成功生成企业（“&PersonNum &”）份“ , ”../sitesys/muban1.asp“

%>

加载数据库代码：

<%

response.expires=0

response.buffer=true

session.timeout=30

dim conn

dim char_str(20)

sub OpenDataConn()

dim connstr

connstr = ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“

connstr = connstr & Server.MapPath(”../data/qhousedb.asp“)

'response.write connstr

set conn=Server.CreateObject(”AdoDb.Connection“)

conn.Open connstr

end sub

sub CloseDataConn()

'conn.close

set conn=Nothing

end sub

%>

插入记录语句的执行1：

sql=”insert into news(topic,q1,fromw,sort,comment)values(“&topic&”,“&q1&”,“&fromw&”,'“&sort&”',“&comment&”)“

opendataconn

conn.execute sql

response.redirect”news_del.asp“

修改语句的执行2：

sql=”updatenews set topic=“&topic&”,q1=“&q1&”,fromw=“&fromw&”,sort='“&sort&”',DNT=now(),comment=“&comment&” where newsid=“&newsid&”“

删除语句的执行3：

<%

opendataconn

ids=split(request(”newsid“),”,“)

for i=0 to ubound(ids)

tt=trim(ids(i))

set rs=server.createobject(”adodb.recordset“)

'rs.open”select * from news where newsid=“&tt&”“,conn,1,1

'If Not Rs.Eof Then

'imgname=Split(Trim(Rs(”imgname“)),”,“)

' For m=0 to ubound(imgname)

'If len(imgname(m))>12 then

'set fso=Server.CreateObject(”Scripting.FileSystemObject“)

' fso.deleteFile Server.MapPath(”../pic/“&imgname(m))

'Set fso=Nothing

' end if

'Next

' End if

'rs.close

sql=”select * from news where newsid=“&tt&”“

rs.open sql,conn,1,1

if not rs.eof then

conn.execute ”delete from news where newsid=“&tt&”“

rs.close

set rs=nothing

end if

conn.execute”delete from news where newsid=“&tt&”“

next

response.redirect”news_del.asp“

closedataconn

%>

输出语句的执行4：

<%

strSql=”select top 12 * from news where sort=1 order by dnt desc“set rs=Server.CreateObject(”ADODB.RecordSet“)

rs.open strSql,conn,3,3

do while not rs.eof%>

<%

Rs.MoveNext

Loop

Rs.Close %>

Session.timeout=100

失效时间！

把文件写入txt中

<%

dim fs,fname,f,t,x

set fs=Server.CreateObject(”Scripting.FileSystemObject“)公共的部分

'set fname=fs.CreateTextFile(”textads.txt“,true)

'fname.WriteLine(”我是伟！！“&year(now())&”-“&month(now())&”-“&day(now())&”“)

'fname.Close

'set fname=nothing

'set fs=nothing是写入文件中

set t=fs.OpenTextFile(”textads.txt“,1,false)

x=t.ReadLine 张小

x=replace(x,”,“,”我是张小伟“)

t.close

Response.Write(”“& x &”")读出里面的内容 %>

第三篇：ASP操作Excel技术总结

ASP操作Excel技术总结

目录

一、环境配置

二、ASP对Excel的基本操作

三、ASP操作Excel生成数据表

四、ASP操作Excel生成Chart图

五、服务器端Excel文件浏览、下载、删除方案

六、附录

正文

一、环境配置

服务器端的环境配置从参考资料上看，微软系列的配置应该都行，即：

1．Win9x+PWS+Office

2．Win2000 Professional+PWS+Office

3．Win2000 Server+IIS+Office

目前笔者测试成功的环境是后二者。Office的版本没有特殊要求，考虑到客户机配置的不确定性和下兼容特性，建议服务器端Office版本不要太高，以防止客户机下载后无法正确显示。

服务器端环境配置还有两个偶然的发现是：

1．笔者开发机器上原来装有金山的WPS2002，结果Excel对象创建始终出现问题，卸载WPS2002后，错误消失。

2．笔者开发ASP代码喜欢用FrontPage，结果发现如果FrontPage打开（服务器端），对象创建出现不稳定现象，时而成功时而不成功。扩展考察后发现，Office系列的软件如果在服务器端运行，则Excel对象的创建很难成功。

服务器端还必须要设置的一点是COM组件的操作权限。在命令行键入“DCOMCNFG”，则进入COM组件配置界面，选择Microsoft Excel后点击属性按钮，将三个单选项一律选择自定义，编辑中将Everyone加入所有权限。保存完毕后重新启动服务器。

客户端的环境配置没发现什么特别讲究的地方，只要装有Office和IE即可，版本通用的好象都可以。

二、ASP对Excel的基本操作

1、建立Excel对象

set objExcelApp = CreateObject(“Excel.Application ”)

objExcelApp.DisplayAlerts = false

不显示警告

objExcelApp.Application.Visible = false

不显示界面

2、新建Excel文件

objExcelApp.WorkBooks.add

set objExcelBook = objExcelApp.ActiveWorkBook

set objExcelSheets = objExcelBook.Worksheets

set objExcelSheet = objExcelBook.Sheets(1)

3、读取已有Excel文件

strAddr = Server.MapPath(“.”)

objExcelApp.WorkBooks.Open(strAddr & “TempletTable.xls ”)

set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets

set objExcelSheet = objExcelBook.Sheets(1)

4、另存Excel文件

objExcelBook.SaveAs strAddr & “TempTable.xls ”

5、保存Excel文件

objExcelBook.Save

（笔者测试时保存成功，页面报错。）

6、退出Excel操作

objExcelApp.Quit

一定要退出

set objExcelApp = Nothing

三、ASP操作Excel生成数据表

1、在一个范围内插入数据

objExcelSheet.Range(“B3:k3 ”).Value = Array(“67 ”, “87 ”, “5 ”, “9 ”, “, ”45 “, ”54 “, ”54 “, ”10 “)

2、在一个单元格内插入数据

objExcelSheet.Cells(3,1).Value= ”Internet Explorer “

3、选中一个范围

4、单元格左边画粗线条

5、单元格右边画粗线条

6、单元格上边画粗线条

7、单元格下边画粗线条

8、单元格设定背景色

9、合并单元格

10、插入行

11、插入列

四、ASP操作Excel生成Chart图

1、创建Chart图

objExcelApp.Charts.Add

2、设定Chart图种类

objExcelApp.ActiveChart.ChartType = 97

注：二维折线图，4；二维饼图，5；二维柱形图，51

3、设定Chart图标题

objExcelApp.ActiveChart.HasTitle = True

objExcelApp.ActiveChart.ChartTitle.Text = ”A test Chart “

4、通过表格数据设定图形

objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range(”A1:k5 “),1

5、直接设定图形数据（推荐）

objExcelApp.ActiveChart.SeriesCollection.NewSeries

objExcelApp.ActiveChart.SeriesCollection(1).Name = ”= “ ”333 “ ” “

objExcelApp.ActiveChart.SeriesCollection(1).Values = ”={1,4,5,6,2} “

6、绑定Chart图

objExcelApp.ActiveChart.Location 1

7、显示数据表

”7 “, ”45 objExcelApp.ActiveChart.HasDataTable = True

8、显示图例

objExcelApp.ActiveChart.DataTable.ShowLegendKey = True

五、服务器端Excel文件浏览、下载、删除方案

浏览的解决方法很多，“Location.href=”，“Navigate”，“Response.Redirect”都可以实现，建议用客户端的方法，原因是给服务器更多的时间生成Excel文件。

下载的实现要麻烦一些。用网上现成的服务器端下载组件或自己定制开发一个组件是比较好的方案。另外一种方法是在客户端操作Excel组件，由客户端操作服务器端Excel文件另存至客户端。这种方法要求客户端开放不安全ActiveX控件的操作权限，考虑到通知每个客户将服务器设置为可信站点的麻烦程度建议还是用第一个方法比较省事。

删除方案由三部分组成：

A：

同一用户生成的Excel文件用同一个文件名，文件名可用用户ID号或SessionID号等可确信不重复字符串组成。这样新文件生成时自动覆盖上一文件。

B：

在Global.asa文件中设置Session_onEnd事件激发时，删除这个用户的Excel暂存文件。

C：

在Global.asa文件中设置Application_onStart事件激发时，删除暂存目录下的所有文件。

注：建议目录结构

Src 代码目录

Templet 模板目录

Temp 暂存目录

六、附录

出错时Excel出现的死进程出现是一件很头疼的事情。在每个文件前加上“On Error Resume Next”将有助于改善这种情况，因为它会不管文件是否产生错误都坚持执行到“Application.Quit”，保证每次程序执行完不留下死进程。

.