科研訓(xùn)練數(shù)據(jù)庫應(yīng)用課程設(shè)計.doc

河北科技師范學(xué)院科研技能訓(xùn)練河北科技師范學(xué)院 數(shù)據(jù)庫應(yīng)用課程設(shè)計項目名稱 企業(yè)信息網(wǎng)站的設(shè)計與實現(xiàn) 班 級 網(wǎng)絡(luò)工程0701班 姓 名 * 學(xué) 號 09* 完成時間 2010/6/17 目 錄摘要1Abstract1引言21 企業(yè)信息網(wǎng)站的開發(fā)背景22 企業(yè)信息網(wǎng)站的開發(fā)工具及環(huán)境23 企業(yè)信息網(wǎng)站的功能分析與設(shè)計23.1 功能分析23.2 功能結(jié)構(gòu)33.3 數(shù)據(jù)庫設(shè)計43.4 各模塊數(shù)據(jù)表設(shè)計44 企業(yè)信息網(wǎng)站功能模塊的關(guān)鍵技術(shù)55 企業(yè)信息網(wǎng)站功能模塊的具體實現(xiàn)86 網(wǎng)站用戶使用說明257 結(jié)束語25參考文獻(xiàn)26- 26 - 企業(yè)信息網(wǎng)的設(shè)計與實現(xiàn)河北科技師范學(xué)院 計算機系 網(wǎng)絡(luò)工程專業(yè)0701班劉振豐 指導(dǎo)老師: 陳鴻摘 要Internet以迅猛的勢頭在國內(nèi)爆發(fā)式地增長，網(wǎng)絡(luò)憑借其卓越的互動性與便捷的交流手段正成為最有發(fā)展?jié)摿εc前途的新興媒體，成為眾商家倍為關(guān)注的宣傳熱點。尤其是小型企業(yè)更應(yīng)該充分利用互聯(lián)網(wǎng)技術(shù)，為客戶、合作伙伴在網(wǎng)上提供信息服務(wù)，并且借助互聯(lián)網(wǎng)，敏銳的捕捉商機。作為專業(yè)從事涉密及安防產(chǎn)品銷售的重慶賽智網(wǎng)絡(luò)信息技術(shù)服務(wù)中心，更需要建設(shè)好網(wǎng)站，將其作為對外宣傳、服務(wù)和交流的載體，來配合公司的迅速發(fā)展，使網(wǎng)站具有鮮明的行業(yè)特色，使更多的企業(yè)通過網(wǎng)絡(luò)來結(jié)盟，使更多的客戶通過網(wǎng)絡(luò)來了解賽智網(wǎng)絡(luò)。ASP.net+ACCESS是一種比較成熟的技術(shù),因此本項目采用A語言作為根本,選用經(jīng)典的B/S開發(fā)架構(gòu),在數(shù)據(jù)庫方面則使用了Access。關(guān)鍵詞：互聯(lián)網(wǎng)；企業(yè)網(wǎng)站；數(shù)據(jù)庫；WEB；B/S架構(gòu)；ASP.net；Access 2003。ABSTRACTThis paragraph mainly talk about Internet grows up vary fast inner along with joining in WTO.The net is becoming a new media with the most potential of development and future,as well as the hot point of publicize by much business. The net technology should be well used to offer information service for clients and cooperate cooperates,and catchs business especially for the small corporation.Chongqing SinceNetwork Ltd as a Security corporation should build its homepage better to qua it as a carrier to publicize,service and communion from this way to concert it grows up quickly.Let more corporation and client join in and know Chongqing SinceNetwork Ltd by homepage.ASP.net + ACCESS is a relatively mature technology.So this Website uses ASP.net as basal language and Access as Database.Keywords: Internet; Corporate web site; Database; WEB; B / S structure; ASP.net; Access 2003.引言在Internet飛速發(fā)展的今天，互聯(lián)網(wǎng)成為人們快速獲取、發(fā)布和傳遞信息的重要渠道，它在人們政治、經(jīng)濟(jì)、生活、學(xué)習(xí)等各個方面發(fā)揮著重要的作用。在Internet上發(fā)布信息主要是通過網(wǎng)站來實現(xiàn)的，獲取信息也是要在Internet“海洋”中按照一定的檢索方式將所需要的信息從網(wǎng)站上下載下來。因此網(wǎng)站建設(shè)在Internet應(yīng)用上的地位顯而易見，它已成為信息化建設(shè)中的重要組成部分，倍受人們的重視。 現(xiàn)代通信和網(wǎng)絡(luò)技術(shù)使世界變小了，人們可以突破種種限制，共享更多的資源。網(wǎng)絡(luò)的發(fā)展，尤其是國際互聯(lián)網(wǎng)的出現(xiàn)將信息時代的社會細(xì)胞（多媒體計算機和掌握了計算機技術(shù)的人）連成了一體，實現(xiàn)了人類智慧的連網(wǎng)，并由此創(chuàng)造出全新的網(wǎng)絡(luò)文化。網(wǎng)絡(luò)技術(shù)使享受服務(wù)不受時空限制（服務(wù)器具備記憶功能且24小時服務(wù)、網(wǎng)絡(luò)四通八達(dá)）、網(wǎng)絡(luò)的信息量大、信息傳遞快捷、交互性強。1 企業(yè)信息網(wǎng)站的開發(fā)背景傳統(tǒng)企業(yè)借助互聯(lián)網(wǎng)展示企業(yè)形象，發(fā)布產(chǎn)品信息，做好客戶服務(wù)已經(jīng)成為業(yè)界的共識，成為現(xiàn)代企業(yè)發(fā)展中一個不可或缺的步驟；互聯(lián)網(wǎng)為企業(yè)服務(wù)，滲透到企業(yè)的生產(chǎn)、銷售、管理當(dāng)中去，這也成為互聯(lián)網(wǎng)發(fā)展的重要模式之一。企業(yè)占領(lǐng)互聯(lián)網(wǎng)這一第四媒體的宣傳陣地，利用它面向全球展示了企業(yè)的形象、品牌、文化和產(chǎn)品。2 企業(yè)信息網(wǎng)站的開發(fā)工具及其環(huán)境開發(fā)工具：Macromedia Dreamweaver 8編程語言：ASP.NET+VB.net+JavaScript數(shù)據(jù)庫類型：Microsoft- ACCESS應(yīng)用平臺：windows XP IIS 6.0、windows server2003 IIS 6.03企業(yè)信息網(wǎng)的功能分析與設(shè)計3.1功能分析傳統(tǒng)企業(yè)借助互聯(lián)網(wǎng)展示企業(yè)形象，發(fā)布產(chǎn)品信息，做好客戶服務(wù)已經(jīng)成為業(yè)界的共識，成為現(xiàn)代企業(yè)發(fā)展中一個不可或缺的步驟；互聯(lián)網(wǎng)為企業(yè)服務(wù)，滲透到企業(yè)的生產(chǎn)、銷售、管理當(dāng)中去，這也成為互聯(lián)網(wǎng)發(fā)展的重要模式之一。企業(yè)占領(lǐng)互聯(lián)網(wǎng)這一第四媒體的宣傳陣地，利用它面向全球展示了企業(yè)的形象、品牌、文化和產(chǎn)品。作為企業(yè)的名片，企業(yè)網(wǎng)站應(yīng)該對企業(yè)進(jìn)行全面的介紹，在頁面方面應(yīng)追求整體感強，色調(diào)協(xié)調(diào)，在功能方面應(yīng)該實現(xiàn)對數(shù)據(jù)的更新和發(fā)布。3.2功能結(jié)構(gòu)網(wǎng)站前臺網(wǎng)站后臺數(shù)據(jù)庫信息管理交互信息管理數(shù)據(jù)提供數(shù)據(jù)本企業(yè)信息網(wǎng)站的功能結(jié)構(gòu)包括： 前臺展示頁面網(wǎng)站首頁公司簡介新聞動態(tài)組織機構(gòu)項目介紹企業(yè)文化聯(lián)系我們 后臺管理頁面管理員管理信息發(fā)布管理公司簡介的增刪改新聞中心的增刪改項目介紹的增刪改企業(yè)文化的增刪改組織機構(gòu)的增刪改聯(lián)系我們的增刪改3.3數(shù)據(jù)庫設(shè)計 采用的數(shù)據(jù)庫是access，包含如下幾個表文件：（1）admin 管理員信息表（2）gsjj公司簡介信息表（3）kcjs項目介紹信息表（4）lxwm聯(lián)系我們信息表（5）xwzx新聞動態(tài)信息表（6）zzjg組織機構(gòu)信息表3.4各模塊數(shù)據(jù)表設(shè)計表4.1 管理員信息表（admin）字段名稱數(shù)據(jù)類型默認(rèn)值備注id自動編號null自動編號Username1文本null用戶名Password1文本null密碼Time時間/日期null提交時間表4.2 公司簡介表（gsjj）字段名稱字段類型默認(rèn)值說明id自動編號null自動編號Title文本null標(biāo)題Content文本null公司簡介內(nèi)容Time文本Now()提交時間表4.2 項目介紹表（kcjs）字段名稱字段類型默認(rèn)值說明id自動編號null自動編號Title文本null項目標(biāo)題Content文本null項目內(nèi)容介紹Time文本Now()提交時間表4.2 聯(lián)系我們表（lxwm）字段名稱字段類型默認(rèn)值說明id自動編號null自動編號Title文本null標(biāo)題Content文本null聯(lián)系我們內(nèi)容Time文本Now()提交時間表4.2 企業(yè)文化表（qywh）字段名稱字段類型默認(rèn)值說明id自動編號null自動編號Title文本null標(biāo)題Content文本null企業(yè)文化內(nèi)容Time文本Now()提交時間表4.2 新聞動態(tài)表（xwzx）字段名稱字段類型默認(rèn)值說明id自動編號null自動編號Title文本null標(biāo)題Content文本null新聞動態(tài)內(nèi)容Time文本Now()提交時間表4.2 組織機構(gòu)表（zzjg）字段名稱字段類型默認(rèn)值說明id自動編號null自動編號Title文本null標(biāo)題Content文本null組織機構(gòu)內(nèi)容Time文本Now()提交時間4 企業(yè)信息網(wǎng)站功能模塊的關(guān)鍵技術(shù)ASP 是一項微軟公司的技術(shù)，是一種使嵌入網(wǎng)頁中的腳本可由因特網(wǎng)服務(wù)器執(zhí)行的服務(wù)器端腳本技術(shù)。 指 Active Server Pages（動態(tài)服務(wù)器頁面） ，運行于 IIS 之中的程序 。ASP.net不僅僅是 Active Server Page (ASP) 的下一個版本,而且是一種建立在通用語言上的程序構(gòu)架，能被用于一臺Web服務(wù)器來建立強大的Web應(yīng)用程序。ASP.net提供許多比現(xiàn)在的Web開發(fā)模式強大的優(yōu)勢。執(zhí)行效率大幅提高ASP.net是把基于通用語言的程序在服務(wù)器IIS上運行。不像以前的ASP即時解釋程序，而是將程序在服務(wù)器端首次運行時進(jìn)行編譯，這樣的執(zhí)行效果，當(dāng)然比一條一條的解釋強很多。世界級的工具支持ASP.net構(gòu)架是可以用Microsoft（R）公司最新的產(chǎn)品 Visual S開發(fā)環(huán)境進(jìn)行開發(fā)，WYSIWYG（What You See Is What You Get所見即為所得）的編輯。這些僅是ASP.net強大化軟件支持的一小部分。強大性和適應(yīng)性因為ASP.net是基于通用語言的編譯運行的程序，所以它的強大性和適應(yīng)性，可以使它運行在Web應(yīng)用軟件開發(fā)者的幾乎全部的平臺上（筆者到現(xiàn)在為止只知道它只能用在Windows 2000/2003 Server上）。通用語言的基本庫，消息機制，數(shù)據(jù)接口的處理都能無縫的整合到ASP.net的Web應(yīng)用中。ASP.net同時也是language-independent語言獨立化的，所以，你可以選擇一種最適合你的語言來編寫你的程序，或者把你的程序用很多種語言來寫，現(xiàn)在已經(jīng)支持的有C#（C+和Java的結(jié)合體），VB，Jscript。將來，這樣的多種程序語言協(xié)同工作的能力保護(hù)您現(xiàn)在的基于COM+開發(fā)的程序，能夠完整的移植向ASP.net。 ASP.NET一般分為兩種開發(fā)語言，VB.NET和C#，C#相對比較常用，因為是.NET獨有的語言，VB.NET則為以前VB程序設(shè)計，適合于以前VB程序員。高效可管理性ASP.net使用一種字符基礎(chǔ)的，分級的配置系統(tǒng)，使你服務(wù)器環(huán)境和應(yīng)用程序的設(shè)置更加簡單。因為配置信息都保存在簡單文本中，新的設(shè)置有可能都不需要啟動本地的管理員工具就可以實現(xiàn)。這種被稱為Zero Local Administration的哲學(xué)觀念使A的基于應(yīng)用的開發(fā)更加具體，和快捷。一個ASP.net的應(yīng)用程序在一臺服務(wù)器系統(tǒng)的安裝只需要簡單的拷貝一些必須的文件，不需要系統(tǒng)的重新啟動，一切就是這么簡單。多處理器環(huán)境的可靠性 ASP.net已經(jīng)被刻意設(shè)計成為一種可以用于多處理器的開發(fā)工具，它在多處理器的環(huán)境下用特殊的無縫連接技術(shù)，將很大的提高運行速度。即使你現(xiàn)在的ASP.net應(yīng)用軟件是為一個處理器開發(fā)的，將來多處理器運行時不需要任何改變都能提高他們的效能，但現(xiàn)在的ASP卻做不到這一點。自定義性和可擴(kuò)展性 ASP.net設(shè)計時考慮了讓網(wǎng)站開發(fā)人員可以在自己的代碼中自己定義plug-in的模塊。這與原來的包含關(guān)系不同，ASP.net可以加入自己定義的如何組件。網(wǎng)站程序的開發(fā)從來沒有這么簡單過。安全性基于Windows認(rèn)證技術(shù)和每應(yīng)用程序配置，你可以確保你的原程序是絕對安全的。 ASP.NET 的語法在很大程度上與 ASP 兼容，同時它還提供一種新的編程模型和結(jié)構(gòu)，可生成伸縮性和穩(wěn)定性更好的應(yīng)用程序，并提供更好的安全保護(hù)?？梢酝ㄟ^在現(xiàn)有 ASP 應(yīng)用程序中逐漸添加 ASP.NET 功能，隨時增強 ASP 應(yīng)用程序的功能。 ASP.NET 是一個已編譯的、基于 .NET 的環(huán)境，把基于通用語言的程序在服務(wù)器上運行。將程序在服務(wù)器端首次運行時進(jìn)行編譯，比ASP即時解釋程序速度上要快很多.而且是可以用任何與 .NET 兼容的語言（包括 Visual Basic .NET、C# 和 JScript .NET.）創(chuàng)作應(yīng)用程序。另外，任何 ASP.NET 應(yīng)用程序都可以使用整個 .NET Framework。開發(fā)人員可以方便地獲得這些技術(shù)的優(yōu)點，其中包括托管的公共語言運行庫環(huán)境、類型安全、繼承等等。 ASP.NET 可以無縫地與 WYSIWYG HTML 編輯器和其他編程工具（包括 Microsoft Visual Studio .NET）一起工作。這不僅使得 Web 開發(fā)更加方便，而且還能提供這些工具必須提供的所有優(yōu)點，包括開發(fā)人員可以用來將服務(wù)器控件拖放到 Web 頁的 GUI 和完全集成的調(diào)試支持。ACCESS數(shù)據(jù)庫（1）存儲方式單一 Access管理的對象有表、查詢、窗體、報表、頁、宏和模塊，以上對象都存放在后綴為（.mdb）的數(shù)據(jù)庫文件種，便于用戶的操作和管理。 (2)面向?qū)ο?Access是一個面向?qū)ο蟮拈_發(fā)工具，利用面向?qū)ο蟮姆绞綄?shù)據(jù)庫系統(tǒng)中的各種功能對象化，將數(shù)據(jù)庫管理的各種功能封裝在各類對象中。它將一個應(yīng)用系統(tǒng)當(dāng)作是由一系列對象組成的，對每個對象它都定義一組方法和屬性，以定義該對象的行為和外國，用戶還可以按需要給對象擴(kuò)展方法和屬性。通過對象的方法、屬性完成數(shù)據(jù)庫的操作和管理，極大地簡化了用戶的開發(fā)工作。同時，這種基于面向?qū)ο蟮拈_發(fā)方式，使得開發(fā)應(yīng)用程序更為簡便。 （3）界面友好、易操作 Access是一個可視化工具，是風(fēng)格與Windows完全一樣，用戶想要生成對象并應(yīng)用，只要使用鼠標(biāo)進(jìn)行拖放即可，非常直觀方便。系統(tǒng)還提供了表生成器、查詢生成器、報表設(shè)計器以及數(shù)據(jù)庫向?qū)?、表向?qū)?、查詢向?qū)?、窗體向?qū)?、報表向?qū)У裙ぞ?，使得操作簡便，容易使用和掌握?（4）集成環(huán)境、處理多種數(shù)據(jù)信息 Access基于Windows操作系統(tǒng)下的集成開發(fā)環(huán)境，該環(huán)境集成了各種向?qū)Ш蜕善鞴ぞ?，極大地提高了開發(fā)人員的工作效率，使得建立數(shù)據(jù)庫、創(chuàng)建表、設(shè)計用戶界面、設(shè)計數(shù)據(jù)查詢、報表打印等可以方便有序地進(jìn)行。 （5）Access支持ODBC（開發(fā)數(shù)據(jù)庫互連，Open Data Base Connectivity），利用Access強大的DDE（動態(tài)數(shù)據(jù)交換）和OLE（對象的聯(lián)接和嵌入）特性，可以在一個數(shù)據(jù)表中嵌入位圖、聲音、Excel表格、Word文檔，還可以建立動態(tài)的數(shù)據(jù)庫報表和窗體等。Access還可以將程序應(yīng)用于網(wǎng)絡(luò)，并與網(wǎng)絡(luò)上的動態(tài)數(shù)據(jù)相聯(lián)接。利用數(shù)據(jù)庫訪問頁對象生成HTML文件，輕松構(gòu)建Internet/Intranet的應(yīng)用。5 企業(yè)信息網(wǎng)站功能模塊的具體實現(xiàn)（一）后臺登陸首頁截圖實現(xiàn)代碼1.表單界面代碼 管理員登錄 用戶名稱： 用戶密碼：             2.按鈕執(zhí)行代碼sub enter_click(sender as object,e as eventargs)if username.text = thenmessage.text=請輸入用戶名elseif password.text = thenmessage.text=請輸入密碼elsedim conn as new oledbconnection()conn.connectionstring=provider=microsoft.jet.oledb.4.0;data source=&server.MapPath(./Databases/data.mdb)dim username1 as stringdim password1 as stringusername1=username.textpassword1=password.textdim cmd as new oledbcommand(select * from Admin where password1=& password1 & and username1=& username1 &,conn)conn.opendim dr as oledbdatareader =cmd.executereader()if dr.read() thensession(username)=username1conn.closeresponse.Redirect(Default.aspx)elsemessage.text=用戶名或密碼錯誤conn.closeend ifend ifend subsub delete_click(sender as object,e as eventargs)username.text=password.text=end sub（二）網(wǎng)站內(nèi)容管理界面截圖-項目介紹管理實現(xiàn)代碼:sub page_load(sender as object,e as eventargs)if session(username) = nothing thenresponse.Redirect(login.aspx)end ifdim conn as new oledbconnection()conn.connectionstring=provider=microsoft.jet.oledb.4.0;data source=&server.MapPath(./Databases/data.mdb)dim page_no as integerif request.QueryString(page_no)= thenpage_no=1elsepage_no=request.QueryString(page_no)end ifdim record as integerrecord=page_no*15-14dim cmd as new oledbcommand(select top 15 * from kcjs where id = (select min(id) from (select top &cstr(record)& id from kcjs order by id desc) ) order by id desc,conn)dim fycmd as new oledbcommand(select count(*) as total from kcjs,conn)conn.opendim dr as oledbdatareader =cmd.executereader()do while dr.read()message.text &=&dr.item(id)&dr.item(title)&dr.item(time)& &修改  刪除&loopdim fydr as oledbdatareader =fycmd.executereader()fydr.read()dim page_count as integerpage_count=fydr.item(total)if page_count mod 15 thenpage_count=int(page_count/15)+1elsepage_count=int(page_count/15)end ifdim i as integerif page_count = 5 thenif page_no = 1 thenfenye.text=fenye.text &上一頁  elsefenye.text=fenye.text &上一頁  end if for i = 1 to page_countif page_no = i thenfenye.text=fenye.text &cstr(i)  elsefenye.text=fenye.text &cstr(i)  end if nextif page_no = page_count thenfenye.text=fenye.text &下一頁  elsefenye.text=fenye.text &下一頁  end if end if if page_count 5 thenif page_no = 1 thenfenye.text=fenye.text &上一頁  elsefenye.text=fenye.text &上一頁  end if if page_no = 3 thenfor i = 1 to 5if page_no = i thenfenye.text=fenye.text &cstr(i)  elsefenye.text=fenye.text &cstr(i)  end if nextend if if page_no 3 thenif page_no+2=page_count thenfor i = page_no-2 to page_no-1fenye.text=fenye.text &cstr(i)  nextfenye.text=fenye.text &cstr(page_no)  for i =page_no+1 to page_no+2fenye.text=fenye.text &cstr(i)  nextend if if page_no+1 = page_count thenfor i = page_no-3 to page_no-1fenye.text=fenye.text &cstr(i)  nextfenye.text=fenye.text &cstr(page_no)  fenye.text=fenye.text &cstr(page_no+1)  end ifif page_no = page_count thenfor i = page_no-4 to page_no-1fenye.text=fenye.text &cstr(i)  nextfenye.text=fenye.text &cstr(page_no)  end ifend if if page_no = page_count thenfenye.text=fenye.text &下一頁  elsefenye.text=fenye.text &下一頁  end if end ifconn.closeend sub（三）添加新文章界面截圖添加新項目實現(xiàn)代碼界面的實現(xiàn)代碼 標(biāo)        題： 編輯內(nèi)容：         按鈕的執(zhí)行代碼sub page_load(sender as object,e as eventargs)if session(username) = nothing thenresponse.Redirect(login.aspx)end ifend subsub enter_click(sender as object,e as eventargs)dim title1 as stringdim content1 as stringtitle1=title.textcontent1=content.textdim conn as new oledbconnection()conn.connectionstring=provider=microsoft.jet.oledb.4.0;data source=&server.MapPath(./Databases/data.mdb)dim cmd as new oledbcommand(insert into kcjs(title,content)values( & title1 &,& content1 &),conn)conn.opencmd.ExecuteNonQuery()conn.closeresponse.Redirect(kcjs.aspx)end subsub delete_click(sender as object,e as eventargs)title.text=content.text=end sub修改文章截圖實現(xiàn)代碼dim id as integersub page_load(sender as object,e as eventargs)if session(username) = nothing thenresponse.Redirect(login.aspx)end ifid=request.QueryString(id)if page.IsPostBack thenelsedim conn as new oledbconnection()conn.connectionstring=provider=microsoft.jet.oledb.4.0;data source=&server.MapPath(./Databases/data.mdb)dim cmd as new oledbcommand(select * from kcjs where id like &cstr(id),conn)conn.opendim dr as oledbdatareader =cmd.executereader()dr.read()title.text=dr.item(title)content.text=dr.item(content)conn.closeend ifend subsub enter_click(sender as object,e as eventargs)dim title1 as stringdim content1 as stringtitle1=title.textcontent1=content.textdim conn as new oledbconnection()conn.connectionstring=provider=microsoft.jet.oledb.4.0;data source=&server.MapPath(./Databases/data.mdb)dim cmd as new oledbcommand(update kcjs set title= & title1 & ,content= & content1 & where id like & cstr(id) & ,conn)conn.opencmd.ExecuteNonQuery()conn.closeresponse.Redirect(kcjs.aspx)end subsub delete_click(sender as object,e as eventargs)title.text=content.text=response.Write(title.text)end sub刪除文章的代碼dim id as integersub page_load(sender as object,e as eventargs)if session(username) = nothing thenresponse.Redirect(login.aspx)end ifid=request.QueryString(id)dim conn as new oledbconnection()conn.connectionstring=provider=microsoft.jet.oledb.4.0;data source=&server.MapPath(./Databases/data.mdb)dim cmd as new oledbcommand(DELETE FROM kcjs where id like &cstr(id),conn)conn.opencmd.ExecuteNonQuery()conn.closeresponse.Redirect(kcjs.aspx)end sub前臺首頁截圖:公司簡介截圖:實現(xiàn)代碼: Function HtmlCode(ByVal fString) If fString Then fString = Replace(fString, Chr(13), ) fString = Replace(fString, Chr(10) & Chr(10), ) fString = Replace(fString, Chr(10), ) fString = Replace(fString, ,  ) HtmlCode = fString End If End Functionsub page_load(sender as object,e as eventargs)dim content as stringdim conn as new oledbconnection()conn.connectionstring=provider=microsoft.jet.oledb.4.0;data source=&server.MapPath(Databases/data.mdb)dim cmd as new oledbcommand(select top 1 * from gsjj ,conn