小型企業網站論文(文件)

　

【正文】 更改，容易向關系、網狀、層次等各種數據模型轉換。(3)逐步擴張，首先定義最重要的核心概念結構，然后向外擴充，以滾雪球的方式逐步生成其他概念結構，直至總體概念結構。管理員與新聞實體之間關系的ER圖。將以上的數據庫概念結構設計轉換為關系模型。再次反復重復(1)，(2)步驟，直到程序無錯誤為止。(4)登錄身份驗證可以在數據庫中自行設定，但必須在相應的程序中進行修改。(8)本網站初始后臺管理員用戶名為admin,密碼為cyc861023。對于數據的輸入、修改、查詢等問題通過程序進行了有效的解決。比如ASP和Microsoft Office Access數據庫以及網站設計方面的知識。但是由于畢業設計時間較短和本人知識有限，所以該網站還有許多不盡人意的地方，網站還存在以下一些問題:(1)系統在安全性方面還有一些問題；(2)系統的某些功能還不能夠很好的實現，同時本系統還某些方面沒有考慮到；(3)系統在跨平臺運行方面有一些不足。 應用編程 150 例》電子工業出版社 200405致 謝在完成論文的過程中，陳立斌指導老師給予我悉心的關心與指導，在此表示衷心的感謝。另外，我要感謝湖南理工學院的所有老師，是他們指引了我的前進方向、是他們的諄諄教誨和辛勤勞動讓我對計算機的知識有了全面的學習和了解，還要感謝所有關心、幫助過我的同學，讓我在大學生活中有了豐富的一面。dbamp。set conn=()if err thenelse connstrend ifsub CloseConn() set conn=nothingend sub%%39。參 數：str 原字符串39。nbsp。gt。 … exit for else gotTopic=str end if next gotTopic=replace(replace(replace(replace(gotTopic, ,amp。),amp。)end function39。39。pos=InStr(1,abcdefg,cd) 39。實現就是把當前位置作為起始位置繼續查找。 amp。過程名：showpage39。 maxperpage 每頁數量39。39。form name=39。 action=39。trtd if ShowTotal=true then strTemp=strTemp amp。 strUnit amp。nbsp。 else strTemp=strTemp amp。 page=139。 a href=39。 (CurrentPage1) amp。 end if if ncurrentpage1 then strTemp=strTemp amp。 strUrl amp。下一頁/aamp。 amp。 39。頁次：strongfont color=red amp。 /strong頁 strTemp=strTemp amp。 maxperpage amp。 amp。 size=39。 for i = 1 to n strTemp=strTemp amp。 39。 i amp。***********************************************39。 totalnumber 總數量39。有某些頁面不能使用，否則會出現JS錯誤。center39。Post39。 39。 /b amp。amp。nbsp。 strUrl amp。 strTemp=strTemp amp。 page= amp。nbsp。 amp。 39。 a href=39。 n amp。nbsp。 n amp。b amp。 /page if ShowAllPages=True then strTemp=strTemp amp。page39。javascript:submit()39。 i amp。 No. amp。 /td/tr/form/table strTempend sub39。參 數： 要檢查的Email地址39。***************************************************39。返回值：True 已經安裝39。函數名：strLength39。參 數：str 要求長度的字符串39。函數名：SendMail39。 Subject 主題39。****************************************************39。****************************************************sub WriteErrMsg() dim strErr strErr=strErr amp。text/html。 link href=39。 type=39。 table cellpadding=2 cellspacing=2 border=0 width=400 class=39。 tr align=39。 class=39。 trtd height=39。 valign=39。/td/tr amp。td class=39?！痉祷亍?a/td/tr amp。 /body/html amp。作 用：顯示成功提示信息39。ContentType39。 amp。 rel=39。/headbody amp。 align=center amp。td height=39。strong恭喜你！/strong/td/tr amp。 class=39。br amp。 tr align=39。a href=39。 /table amp。==================================================39。==================================================sub MenuJS() script type=39。 src=39。過程名：ShowRootClass_Menu39。text/javascript39。 vbcrlf amp。,400,39。,0,39。,0,0,0,0,0,1,0,0])。,[0,4,0,0,2,2,0,0,100,39。,2,90,0,0,39。,39。])。,[0,39。,39。,39。,39。,39。,39。,1,39。,39。,39。,39。,39。 vbcrlf if Language=1 then stm_aix(39。,[1,39。,39。,39。,39。,39。,39。,1,39。,39。,39。,39。,39。 vbcrlf else stm_aix(39。,[1,39。,39。,39。,39。,39。,39。,1,39。,39。,39。,39。,39。 vbcrlf end if stm_aix(39。,[0,39。39。39。39。39。39。f1f2ee39。39。fffff739。FFFFFF39。39。 amp。jamp。,[1,39。,39。,1,1,0,39。,39。 rsRoot(4) amp。 rsRoot(6) amp。,39。,39。,1,39。,39。,39。,39。,39。 vbcrlf end if if rsRoot(5)0 then if Language=1 then call GetClassMenu(rsRoot(0),0,1) else call GetClassMenu(rsRoot(0),0,2) end if end if j=j+1 stm_aix(39。,[0,39。39。39。39。39。39。f1f2ee39。39。fffff739。FFFFFF39。39。 amp。 vbcrlf amp。p amp。progid:(overlap=.5,enabled=0,Duration=)39。99999939。39。 amp。 39。 39。p amp。p amp。 amp。 order by OrderID asc Set rsClass= () sqlClass,conn,1,1 do while not if rsClass(4) then if rsClass(5)0 then stm_aix(39。kamp。pNum2amp。 rsClass(1) amp。,39。 rsClass(4) amp。,39。,39。,39。,6,0,0,39。,7,7,0,0,1,39。,0,39。,3,3,0,0,39。,39。,39。 vbcrlf pNum=pNum+1 pNum2=pNum2+1 if Language=1 then call GetClassMenu(rsClass(0),1,1) else call GetClassMenu(rsClass(0),1,2) end if else stm_aix(39。kamp。pNum2amp。 rsClass(1) amp。,39。 rsClass(4) amp。,39。,39。,39。,0,0,0,39。,0,0,0,0,1,39。,0,39。,3,3,0,0,39。,39。,39。 vbcrlf end if end if k=k+1 loop set rsClass=nothing stm_ep()。過程名：ShowAnnounce39。 AnnounceNum else sqlAnnounce=select top 10 end if sqlAnnounce=sqlAnnounce amp。nbsp。39。39。height=450, width=400, toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=no, status=no39。 39。rsAnnounce(title) amp。作 用：顯示友情鏈接站點39。 ShowType 顯示方式。 SiteNum 最多顯示多少個站點39。==================================================39。FF000039。 amp。newwindow39。?ID= amp。nbsp。nbsp。 AnnounceNum 最多顯示多少條公告39。 vbcrlf end sub39。])。,39。,39。,39。,1,39。,39。,39。 rsClass(6) amp。 rsClass(4) amp。,39。,1,1,0,39。,39。,[0,39。,39。pNumamp。])。,39。,39。,39。,0,39。,39。,39。 rsClass(6) amp。 rsClass(4) amp。,39。,1,1,0,39。,39。,[0,39。,39。pNumamp。 where ParentID= amp。 39。 39。 amp。p amp。p amp。aca89939。EBEBEB39。39。 39。 vbcrlf end subsub GetClassMenu(ID,ShowType,Language) dim sqlClass,rsClass,k 39。 amp。39。FFFFFF39。00000039。39。cccccc39。39。39。39。_self39。39。39。,39。])。,39。,39。,3,3,0,0,39。,1,39。,0,0,0,0,1,39。,0,0,0,39。,39。,39。,39。 rsRoot(4) amp。,39。 rsRoot(1) amp。,39。 where Depth=0 and ShowOnTop=True order by RootID Set rsRoot= () sqlRoot,conn,1,1 if not( and ) then j=3 do while not if rsRoot(4) then stm_aix(39。39。FFFFFF39。00000039。39。cccccc39。39。39。39。_self39。39。39。,39。])。,39。,39。,3,3,0,0,39。,1,39。,0,0,0,0,1,39。,0,0,0,39。,39。,39。,1,1,0,39。,39。,39。])。,39。,39。,3,3,0,0,39。,1,39。,0,0,0,0,1,39。,0,0,0,39。,39。,39。,1,1,0,39。,39。,39。,0,0])。,39。,39。,3,3,0,0,39。,1,39。,0,0,0,0,1,39。,0,0,0,39。,39。,39。,1,1,0,39。,39。 vbcrlf stm_ai(39。,3,0,0,39。,39。,2,39。 vbcrlf stm_bp(39。,39。,39。 vbcrlf stm_bm([39。39。參 數：Language 語言 1中文 2英文 39。/scriptend subdim pNum,pNum2pNum=1pNum2=039。 language=39。作 用：生成下拉菜單相關的JS代碼39。 /body/html amp。【返回】/a/td/tr amp。td class=39。/td/tr amp。 valign=39。 trtd height=39。 class=39。 tr align=39。 table cellpadding=2 cellspacing=2 border=0 w