第一篇：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總結

ASP 課 程 設 計 總 結系別：信息工程系 班級：09大計一班 學號：52 姓名：張明

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

回顧起此次asp課程設計，至今我仍感慨頗多，的確，從拿到老師給我們的題目，然后老師簡單的闡述我們該做些什么，該完成些什么的時候，我就覺得這個課程設計是很有挑戰的，因為我知道平時自

己學的知識不是很牢固，這些做起來肯定很棘手。事實驗證了我的想法。在整整兩星期的日子里，可以說得是苦多于甜，由于對相關知識所學甚少，可以說做起設計來是一片茫然。在設計的過程中遇到問題，可以說得是困難重重，遇到過各種各樣的問題，同時在設計的過程中發現了自己的不足之處，對以前所學過的知識理解得不夠深刻，掌握得不夠牢固。看著那些陌生的代碼和程序，真的不知道該怎么辦。但是最后還是我們組其他成員幫助了我。在他們做的差不多的情況下，我在幫忙整理和美化，并試著去看懂代碼，在這期間我也弄懂了不少問題和知識。由于自己并沒多少知識，別人可以說是通過此次課程設計鞏固了以前所學過的知識，而且學到了很多在書本上所沒有學到過的知識，而我呢，只能說是從這次課程設計中重新審視了自己，終于發現自己對所學知識的嚴重不足，這也給我提了個醒，沒知識終究將是一事無成。

不過通過這次課程設計我也明白了很多事理。它使我懂得了理論與實際相結合是很重要的，只有理論知識是遠遠不夠的，只有把所學的理論知識與實踐相結合起來，從理論中得出結論，才能真正為社會服務，從而提高自己的實際動手能力和獨立思考的能力。

課程設計達到了專業學習的預期目的。在兩個星期的課程設計之后，我們普遍感到不僅實際動手能力有所提高，更重要的是通過對匯編語言重大功能的了解，進一步激發了我們對專業知識的興趣，并能夠結合實際存在的問題在專業領域內進行更深入的學習。在課程設計過程中，收獲知識，提高能力的同時，我也學到了很多人生的哲理，懂得怎么樣去制定計劃，怎么樣去實現這個計劃，并掌握了在執行過程中怎么樣去克服心理上的不良情緒。因此在以后的生活和學習的過程中，我一定會把課程設計的精神帶到生活中，不畏艱難，勇往直前！

第三篇：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”，保證每次程序執行完不留下死進程。

.