第一篇：asp總結(jié)

生成靜態(tài)頁(yè)面的代碼：

<%

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

'轉(zhuǎn)換為字符

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 ”成功生成企業(yè)（“&PersonNum &”）份“ , ”../sitesys/muban1.asp“

%>

加載數(shù)據(jù)庫(kù)代碼：

<%

response.expires=0

response.buffer=true

session.timeout=30

dim conn

dim char_str(20)

sub OpenDataConn()

dim connstr

connstr = ”P(pán)rovider=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

%>

插入記錄語(yǔ)句的執(zhí)行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“

修改語(yǔ)句的執(zhí)行2：

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

刪除語(yǔ)句的執(zhí)行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

%>

輸出語(yǔ)句的執(zhí)行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

失效時(shí)間！

把文件寫(xiě)入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是寫(xiě)入文件中

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

x=t.ReadLine 張小

x=replace(x,”,“,”我是張小偉“)

t.close

Response.Write(”“& x &”")讀出里面的內(nèi)容 %>

第二篇：ASP總結(jié)

ASP 課 程 設(shè) 計(jì) 總 結(jié)系別：信息工程系 班級(jí)：09大計(jì)一班 學(xué)號(hào)：52 姓名：張明

通過(guò)這次課程設(shè)計(jì)，我拓寬了知識(shí)面，鍛煉了能力，綜合素質(zhì)得到了提高。課程設(shè)計(jì)是培養(yǎng)學(xué)生綜合運(yùn)用所學(xué)知識(shí),發(fā)現(xiàn),提出,分析和解決實(shí)際問(wèn)題,鍛煉實(shí)踐能力的重要環(huán)節(jié),是對(duì)學(xué)生實(shí)際工作能力的具體訓(xùn)練和考察過(guò)程.通過(guò)理論與實(shí)際的結(jié)合、人與人的溝通，進(jìn)一步提高思想覺(jué)悟。尤其是觀察、分析和解決問(wèn)題的實(shí)際工作能力，以便培養(yǎng)成為能夠主動(dòng)適應(yīng)社會(huì)主義現(xiàn)代化建設(shè)需要的高素質(zhì)的復(fù)合型人才。作為整個(gè)學(xué)習(xí)體系的有機(jī)組成部分，課程設(shè)計(jì)雖然安排在連續(xù)兩周進(jìn)行，但并不具有絕對(duì)獨(dú)立的意義。它的一個(gè)重要功能，在于運(yùn)用學(xué)習(xí)成果，檢驗(yàn)學(xué)習(xí)成果。運(yùn)用學(xué)習(xí)成果，把課堂上學(xué)到的系統(tǒng)化的理論知識(shí)，嘗試性地應(yīng)用于實(shí)際設(shè)計(jì)工作，并從理論的高度對(duì)設(shè)計(jì)工作的現(xiàn)代化提出一些有針對(duì)性的建議和設(shè)想。檢驗(yàn)學(xué)習(xí)成果，看一看課堂學(xué)習(xí)與實(shí)際工作到底有多大距離，并通過(guò)綜合分析，找出學(xué)習(xí)中存在的不足，以便為完善學(xué)習(xí)計(jì)劃，改變學(xué)習(xí)內(nèi)容與方法提供實(shí)踐依據(jù)。對(duì)我們計(jì)算機(jī)專(zhuān)業(yè)的專(zhuān)科生來(lái)說(shuō)，實(shí)際能力的培養(yǎng)至關(guān)重要，而這種實(shí)際能力的培養(yǎng)單靠課堂教學(xué)是遠(yuǎn)遠(yuǎn)不夠的，必須從課堂走向?qū)嵺`。這也是一次預(yù)演和準(zhǔn)備畢業(yè)設(shè)計(jì)工作。通過(guò)課程設(shè)計(jì)，讓我們找出自身狀況與實(shí)際需要的差距，并在以后的學(xué)習(xí)期間及時(shí)補(bǔ)充相關(guān)知識(shí)，為求職與正式工作做好充分的知識(shí)、能力準(zhǔn)備，從而縮短從校園走向社會(huì)的心理轉(zhuǎn)型期。

回顧起此次asp課程設(shè)計(jì)，至今我仍感慨頗多，的確，從拿到老師給我們的題目，然后老師簡(jiǎn)單的闡述我們?cè)撟鲂┦裁矗撏瓿尚┦裁吹臅r(shí)候，我就覺(jué)得這個(gè)課程設(shè)計(jì)是很有挑戰(zhàn)的，因?yàn)槲抑榔綍r(shí)自

己學(xué)的知識(shí)不是很牢固，這些做起來(lái)肯定很棘手。事實(shí)驗(yàn)證了我的想法。在整整兩星期的日子里，可以說(shuō)得是苦多于甜，由于對(duì)相關(guān)知識(shí)所學(xué)甚少，可以說(shuō)做起設(shè)計(jì)來(lái)是一片茫然。在設(shè)計(jì)的過(guò)程中遇到問(wèn)題，可以說(shuō)得是困難重重，遇到過(guò)各種各樣的問(wèn)題，同時(shí)在設(shè)計(jì)的過(guò)程中發(fā)現(xiàn)了自己的不足之處，對(duì)以前所學(xué)過(guò)的知識(shí)理解得不夠深刻，掌握得不夠牢固?？粗切┠吧拇a和程序，真的不知道該怎么辦。但是最后還是我們組其他成員幫助了我。在他們做的差不多的情況下，我在幫忙整理和美化，并試著去看懂代碼，在這期間我也弄懂了不少問(wèn)題和知識(shí)。由于自己并沒(méi)多少知識(shí)，別人可以說(shuō)是通過(guò)此次課程設(shè)計(jì)鞏固了以前所學(xué)過(guò)的知識(shí)，而且學(xué)到了很多在書(shū)本上所沒(méi)有學(xué)到過(guò)的知識(shí)，而我呢，只能說(shuō)是從這次課程設(shè)計(jì)中重新審視了自己，終于發(fā)現(xiàn)自己對(duì)所學(xué)知識(shí)的嚴(yán)重不足，這也給我提了個(gè)醒，沒(méi)知識(shí)終究將是一事無(wú)成。

不過(guò)通過(guò)這次課程設(shè)計(jì)我也明白了很多事理。它使我懂得了理論與實(shí)際相結(jié)合是很重要的，只有理論知識(shí)是遠(yuǎn)遠(yuǎn)不夠的，只有把所學(xué)的理論知識(shí)與實(shí)踐相結(jié)合起來(lái)，從理論中得出結(jié)論，才能真正為社會(huì)服務(wù)，從而提高自己的實(shí)際動(dòng)手能力和獨(dú)立思考的能力。

課程設(shè)計(jì)達(dá)到了專(zhuān)業(yè)學(xué)習(xí)的預(yù)期目的。在兩個(gè)星期的課程設(shè)計(jì)之后，我們普遍感到不僅實(shí)際動(dòng)手能力有所提高，更重要的是通過(guò)對(duì)匯編語(yǔ)言重大功能的了解，進(jìn)一步激發(fā)了我們對(duì)專(zhuān)業(yè)知識(shí)的興趣，并能夠結(jié)合實(shí)際存在的問(wèn)題在專(zhuān)業(yè)領(lǐng)域內(nèi)進(jìn)行更深入的學(xué)習(xí)。在課程設(shè)計(jì)過(guò)程中，收獲知識(shí)，提高能力的同時(shí)，我也學(xué)到了很多人生的哲理，懂得怎么樣去制定計(jì)劃，怎么樣去實(shí)現(xiàn)這個(gè)計(jì)劃，并掌握了在執(zhí)行過(guò)程中怎么樣去克服心理上的不良情緒。因此在以后的生活和學(xué)習(xí)的過(guò)程中，我一定會(huì)把課程設(shè)計(jì)的精神帶到生活中，不畏艱難，勇往直前！

第三篇：ASP操作Excel技術(shù)總結(jié)

ASP操作Excel技術(shù)總結(jié)

目錄

一、環(huán)境配置

二、ASP對(duì)Excel的基本操作

三、ASP操作Excel生成數(shù)據(jù)表

四、ASP操作Excel生成Chart圖

五、服務(wù)器端Excel文件瀏覽、下載、刪除方案

六、附錄

正文

一、環(huán)境配置

服務(wù)器端的環(huán)境配置從參考資料上看，微軟系列的配置應(yīng)該都行，即：

1．Win9x+PWS+Office

2．Win2000 Professional+PWS+Office

3．Win2000 Server+IIS+Office

目前筆者測(cè)試成功的環(huán)境是后二者。Office的版本沒(méi)有特殊要求，考慮到客戶(hù)機(jī)配置的不確定性和下兼容特性，建議服務(wù)器端Office版本不要太高，以防止客戶(hù)機(jī)下載后無(wú)法正確顯示。

服務(wù)器端環(huán)境配置還有兩個(gè)偶然的發(fā)現(xiàn)是：

1．筆者開(kāi)發(fā)機(jī)器上原來(lái)裝有金山的WPS2002，結(jié)果Excel對(duì)象創(chuàng)建始終出現(xiàn)問(wèn)題，卸載WPS2002后，錯(cuò)誤消失。

2．筆者開(kāi)發(fā)ASP代碼喜歡用FrontPage，結(jié)果發(fā)現(xiàn)如果FrontPage打開(kāi)（服務(wù)器端），對(duì)象創(chuàng)建出現(xiàn)不穩(wěn)定現(xiàn)象，時(shí)而成功時(shí)而不成功。擴(kuò)展考察后發(fā)現(xiàn)，Office系列的軟件如果在服務(wù)器端運(yùn)行，則Excel對(duì)象的創(chuàng)建很難成功。

服務(wù)器端還必須要設(shè)置的一點(diǎn)是COM組件的操作權(quán)限。在命令行鍵入“DCOMCNFG”，則進(jìn)入COM組件配置界面，選擇Microsoft Excel后點(diǎn)擊屬性按鈕，將三個(gè)單選項(xiàng)一律選擇自定義，編輯中將Everyone加入所有權(quán)限。保存完畢后重新啟動(dòng)服務(wù)器。

客戶(hù)端的環(huán)境配置沒(méi)發(fā)現(xiàn)什么特別講究的地方，只要裝有Office和IE即可，版本通用的好象都可以。

二、ASP對(duì)Excel的基本操作

1、建立Excel對(duì)象

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

（筆者測(cè)試時(shí)保存成功，頁(yè)面報(bào)錯(cuò)。）

6、退出Excel操作

objExcelApp.Quit

一定要退出

set objExcelApp = Nothing

三、ASP操作Excel生成數(shù)據(jù)表

1、在一個(gè)范圍內(nèi)插入數(shù)據(jù)

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

2、在一個(gè)單元格內(nèi)插入數(shù)據(jù)

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

3、選中一個(gè)范圍

4、單元格左邊畫(huà)粗線條

5、單元格右邊畫(huà)粗線條

6、單元格上邊畫(huà)粗線條

7、單元格下邊畫(huà)粗線條

8、單元格設(shè)定背景色

9、合并單元格

10、插入行

11、插入列

四、ASP操作Excel生成Chart圖

1、創(chuàng)建Chart圖

objExcelApp.Charts.Add

2、設(shè)定Chart圖種類(lèi)

objExcelApp.ActiveChart.ChartType = 97

注：二維折線圖，4；二維餅圖，5；二維柱形圖，51

3、設(shè)定Chart圖標(biāo)題

objExcelApp.ActiveChart.HasTitle = True

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

4、通過(guò)表格數(shù)據(jù)設(shè)定圖形

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

5、直接設(shè)定圖形數(shù)據(jù)（推薦）

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、顯示數(shù)據(jù)表

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

8、顯示圖例

objExcelApp.ActiveChart.DataTable.ShowLegendKey = True

五、服務(wù)器端Excel文件瀏覽、下載、刪除方案

瀏覽的解決方法很多，“Location.href=”，“Navigate”，“Response.Redirect”都可以實(shí)現(xiàn)，建議用客戶(hù)端的方法，原因是給服務(wù)器更多的時(shí)間生成Excel文件。

下載的實(shí)現(xiàn)要麻煩一些。用網(wǎng)上現(xiàn)成的服務(wù)器端下載組件或自己定制開(kāi)發(fā)一個(gè)組件是比較好的方案。另外一種方法是在客戶(hù)端操作Excel組件，由客戶(hù)端操作服務(wù)器端Excel文件另存至客戶(hù)端。這種方法要求客戶(hù)端開(kāi)放不安全ActiveX控件的操作權(quán)限，考慮到通知每個(gè)客戶(hù)將服務(wù)器設(shè)置為可信站點(diǎn)的麻煩程度建議還是用第一個(gè)方法比較省事。

刪除方案由三部分組成：

A：

同一用戶(hù)生成的Excel文件用同一個(gè)文件名，文件名可用用戶(hù)ID號(hào)或SessionID號(hào)等可確信不重復(fù)字符串組成。這樣新文件生成時(shí)自動(dòng)覆蓋上一文件。

B：

在Global.asa文件中設(shè)置Session_onEnd事件激發(fā)時(shí)，刪除這個(gè)用戶(hù)的Excel暫存文件。

C：

在Global.asa文件中設(shè)置Application_onStart事件激發(fā)時(shí)，刪除暫存目錄下的所有文件。

注：建議目錄結(jié)構(gòu)

Src 代碼目錄

Templet 模板目錄

Temp 暫存目錄

六、附錄

出錯(cuò)時(shí)Excel出現(xiàn)的死進(jìn)程出現(xiàn)是一件很頭疼的事情。在每個(gè)文件前加上“On Error Resume Next”將有助于改善這種情況，因?yàn)樗鼤?huì)不管文件是否產(chǎn)生錯(cuò)誤都堅(jiān)持執(zhí)行到“Application.Quit”，保證每次程序執(zhí)行完不留下死進(jìn)程。

.