【導讀】料和從事其它有關(guān)調(diào)研。有收集、綜合和正。確利用各種信息的能力。次分明、段落、論題間的銜接自然、舒展。文筆流暢、語言通順、使用專業(yè)術(shù)語準確，圖表清楚，符合要求。證能力、寫作水平，同時要明確指出論文（設(shè)計）的不足之處及改進方向。先鋒軟件學院畢業(yè)論文（設(shè)計）評閱表評閱人：------------------------------------年--------月--------日。1．畢業(yè)設(shè)計（論文）題目類型、指導教師精力投入、學生積極性等情況；2．畢業(yè)設(shè)計（論文）成績分析、典型經(jīng)驗；3．存在問題，改革措施與建議。環(huán)境，它提供了生成企業(yè)級應(yīng)用程序所必需的全部服務(wù)，基于.NETFramework生成，整個框架都可用于任何應(yīng)用程序。可以使用任何與公共語言運行庫。兼容的語言來創(chuàng)建應(yīng)用程序。

　　

【正文】 作用是創(chuàng)建數(shù)據(jù)庫文件的虛擬路徑 (\\)。 ([MdbPath])。 //從配置文件中取到數(shù)據(jù)庫連接字符串， “MdbPath”為 //文件中的鍵 /值對所設(shè)置的 key 值 return ()。 //返回字符串類型 } } public OleDbDataReader ExecuteOleDbDataReader(string strSql) { //此函數(shù)表示從數(shù)據(jù)庫讀取數(shù)據(jù)時以只進只讀的行流的方式進行 OleDbCommand cmd=new OleDbCommand(strSql,Lb_Conn)。 OleDbDataReader rd=()。 // 通過調(diào)用對象 OleDbCommand 的 ExecuteReader() 方法創(chuàng)建//OleDbDataReader 對象 return rd。 } public DataSet CreateDataSet(string strSql,string tableName) { OleDbDataAdapter da=new OleDbDataAdapter(strSql,Lb_Conn)。 //創(chuàng)建 DataAdapter 類實例，可用于填充 DataSet 對象和檢索、更新數(shù)據(jù) DataSet dst=new DataSet()。 (dst,tableName)。 //填充 DataSet(數(shù)據(jù)集 )中的一個表 return dst。 } public int ExecuteSql(string strSql) { OleDbCommand cmd2=new OleDbCommand(strSql,Lb_Conn)。 int result=()。 //對數(shù)據(jù)庫執(zhí)行插入、刪除和更新等操作，返回影響數(shù)據(jù)庫記錄的行數(shù) return result。 22 Ahead Institute of Software and Technology } } 39。數(shù)據(jù)起始位置： 2 個 CRLF 開始 DataStart = InStrB(PosOpenBoundary,FormData,str2bin(VbCrLf amp。 VbCrLf)) + 4 If FormFileName 〈〉 Then 39。數(shù)據(jù)長度，減 1 是因為數(shù)據(jù)文件的存取字節(jié)數(shù)問題 (可能是 AppendChunk 方法的問題 )： 39。由于字節(jié)數(shù)為奇數(shù)的圖象存到數(shù)據(jù)庫時會去掉最后一個字符導致圖象不能正確顯示 , 39。字節(jié)數(shù)為偶數(shù)的數(shù)據(jù)文件就不會出現(xiàn)這個問題，因此必須保持字節(jié)數(shù)為偶數(shù)。 DataSize = InStrB(DataStart,FormData,DivStr) DataStart 1 FormFieldData = MidB(FormData,DataStart,DataSize) Else 39。數(shù)據(jù)長度，減 2 是因為分隔標志串前有一個 CRLF DataSize = InStrB(DataStart,FormData,DivStr) DataStart 2 FormFieldData = bin2str(MidB(FormData,DataStart,DataSize)) End If 39。建立一個 Dictionary 集存儲 Form中各個 Field 的相關(guān)數(shù)據(jù) Set Field = CreateUploadField() = FormFieldName = FormFileName = GetFileName(FormFileName) = FormFileCT = LenB(FormFieldData) = FormFieldData FormFieldName, Field PosOpenBoundary = PosCloseBoundary PosCloseBoundary = InStrB(PosOpenBoundary + 1,FormData,DivStr) Wend Set GetUpload = Fields End Function 39。把二進制字符串轉(zhuǎn)換成普通字符串函數(shù) Function bin2str(binstr) Dim varlen,clow,ccc,skipflag 39。中文字符 Skip 標志 skipflag=0 ccc = Ahead Institute of Software and Technology 23 If Not IsNull(binstr) Then varlen=LenB(binstr) For i=1 To varlen If skipflag=0 Then clow = MidB(binstr,i,1) 39。判斷是否中文的字符 If AscB(clow) 〉 127 Then 39。AscW 會把二進制的中文雙字節(jié)字符高位和低位反轉(zhuǎn)，所以要先把中文的高低位反轉(zhuǎn) ccc =ccc amp。 Chr(AscW(MidB(binstr,i+1,1) amp。 clow)) skipflag=1 Else ccc = ccc amp。 Chr(AscB(clow)) End If Else skipflag=0 End If Next End If bin2str = ccc End Function 39。把普通字符串轉(zhuǎn)成二進制字符串函數(shù) Function str2bin(varstr) str2bin= For i=1 To Len(varstr) varchar=mid(varstr,i,1) varasc = Asc(varchar) 39。 asc 對中文字符求出來的值可能為負數(shù)， 39。 加上 65536 就 可求出它的無符號數(shù)值 39。 1 在機器內(nèi)是用補碼表示的 0xffff, 39。 其無符號值為 65535,65535=1+65536 39。 其他負數(shù)依次類推。 If varasc〈 0 Then varasc = varasc + 65535 End If 39。對中文的處理：把雙字節(jié)低位和高位分開 If varasc〉 255 Then varlow = Left(Hex(Asc(varchar)),2) varhigh = right(Hex(Asc(varchar)),2) str2bin = str2bin amp。 chrB(amp。H amp。 varlow) amp。 chrB(amp。H amp。 varhigh) 24 Ahead Institute of Software and Technology Else str2bin = str2bin amp。 chrB(AscB(varchar)) End If Next End Function 39。取得文件名 (去掉 Path) Function GetFileName(FullPath) If FullPath 〈〉 Then FullPath = StrReverse(FullPath) FullPath = Left(FullPath, InStr(1, FullPath, \) 1) GetFileName = StrReverse(FullPath) Else GetFileName = End If End Function 〈 /SCRIPT〉 〈 SCRIPT RUNAT=SERVER LANGUAGE=JSCRIPT〉 function CreateUploadField(){ return new uf_Init() } function uf_Init(){ = null = null = null = null = null = null } 〈 /SCRIPT〉 //新聞添加 〈 !include file=〉 〈 html〉 〈 head〉 〈 meta equiv=ContentLanguage content=zh〉 〈 meta equiv=ContentType content=text/html。 charset=gb2312〉 〈 style type=text/css〉 .buttonface { BACKGROUNDCOLOR: 0079F2。 BORDERBOTTOM: 333333 1px outset。 Ahead Institute of Software and Technology 25 BORDERLEFT: 333333 1px outset。 BORDERRIGHT: ffffff 1px outset。 BORDERTOP: ffffff 1px outset。 COLOR: ffffff。 FONTSIZE: 9pta { color: 000000。 textdecoration: none} 〈 /style〉 〈 SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript〉 〈 ! function client_onblur(ii) { server=eval(+ii) if(==){ client=eval(+ii) clientvalue=+ varlen= a=(39。\\39。) clientvalue=(a+1) //alert(clientvalue)。 =clientvalue } } function form1_onsubmit() { for(i=1。i〈 1。i++){ client=eval(+i) server=eval(+i) if(!= amp。amp。 ==){alert( 上傳后的文件名不能空！)。()。return false} } } //〉 〈 /SCRIPT〉 〈 title〉新聞發(fā)布系統(tǒng)〈 /title〉 〈 /head〉 〈 body bgcolor=EDF0F5 topmargin=10 marginheight=5 leftmargin=4 marginwidth=0〉 〈 form method=POST action= name=form1 enctype=multipart/formdata LANGUAGE=javascript onsubmit=return form1_onsubmit()〉 〈 div align=left〉 〈 table border=1 width=754 height=404〉 26 Ahead Institute of Software and Technology 〈 tr align=center〉 〈 td width=754 height=28 colspan=3 style=fontsize:11pt〉〈 strong〉新聞發(fā)布系統(tǒng)后臺管理 新聞添加〈 /strong〉〈 /td〉 〈 /tr〉 〈 tr〉 〈 td width=121 height=16 align=center style=fontsize:9pt〉新聞標題〈 /td〉 〈 td width=617 height=16 colspan=2〉 〈 input type=text name=news_title size=87〉〈 /td〉 〈 /tr〉 〈 tr〉 〈 td width=121 height=165 align=center style=fontsize:9pt〉新聞內(nèi)容〈 /td〉 〈 td width=617 height=165 colspan=2〉〈 textarea rows=11 name=news_content cols=85〉〈 /textarea〉〈 /td〉 〈 /tr〉 〈 tr〉 〈 td width=121 height=21 align=center style=fontsize:9pt〉新聞來源〈 /td〉 〈 td width=617 height=21 colspan=2〉 〈 input type=text name=news_src size=87〉〈 /td〉 〈 /tr〉 〈 tr〉 〈 td width=121 height=20 align=center style=fontsize:9pt 〉圖片上傳〈 /td〉 〈 td width=617 height=20 colspan=2〉 〈 input type=file name=client1 size=20 readonly LANGUAGE=javascript onblur=return client_onblur(1) 〉 〈 span style=fontsize:9pt〉〈 /span〉 〈 INPUT type=hidden name=server1〉 〈 input type=hidden value=mysession name=mysession〉 〈 /td〉 〈 /tr〉 〈 /table〉 〈 /div〉 〈 p〉 〈 input type=submit value=遞交 name=B1 class=buttonface〉 〈 input type=reset value=全部重寫 name=B2 class=buttonface〉 〈 input type=button value= 帳號修改 onclick==39。admin/39。 name=B2 style=fontsize:10pt。color:000000。 class=buttonface〉 〈 input type=button value=新聞修改 onclick==39。39。 name=B2 style=fontsize:10pt。color:000000。 class=buttonface〉〈 /p〉 〈 /form〉 〈 /body〉 〈 /html〉 Ahead Institute of Software and Technology 27 39。 〈 !include file=〉 〈 % 39。Fields(xxx).Name 取得 Form中 xxx(Form Object)的名字 39。Fields(xxx).FilePath 如果是 file Object 取得文件的完整路徑 39。Fields(xxx).FileName 如果是 file Object 取得文件名 39。Fields(xxx).ContentType 如果是 file Object 取得文件的類型 39。Fields(xxx).Length 取得