freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

基于bs的信息工程學(xué)院學(xué)生信息管理系統(tǒng)(編輯修改稿)

2025-06-12 18:23 本頁面
 

【文章內(nèi)容簡介】 并不相同的模塊進(jìn)行了合并整合。通過在調(diào)用時(shí)使用 get 方式傳遞控制參數(shù)和使用多嵌套結(jié)構(gòu)來實(shí)現(xiàn)功能操作判斷,十多個(gè)功能模塊操作最終有一個(gè)文件所完成。這樣大大減少了文件數(shù)量,使整個(gè)系統(tǒng)顯得精干。我們對(duì)文件進(jìn)行了合理布局使其邏輯關(guān)系明了,便于今后的修改和拓展。下面簡述一下幾個(gè)功能的實(shí)現(xiàn)算法: 1) 數(shù)據(jù)庫的聯(lián)接 由于數(shù)據(jù)庫的聯(lián)接是幾乎每個(gè)文件都要使用的一部分所以我把它單獨(dú)的寫在了一個(gè)文件( )中,當(dāng)需要時(shí)直接調(diào)用 就可以了,避免了程序的臃腫。 % dim conn,connstr on error resume next connstr=DBQ=+(database/)+。DefaultDir=。DRIVER={Microsoft Access Driver (*.mdb)}。 Set conn=() connstr % 2) 各頁面功能主要代碼列表 : 添加保存代碼功能 !include file = % 39。 ====================== 39。 功能:增加信息保存頁 39。 描述:對(duì) 文件提交過來的表單數(shù)據(jù)進(jìn)行保存操作,有保存信息標(biāo)題,信息內(nèi)容,信息標(biāo)題圖片;同時(shí)保存所有此篇信息所有相關(guān)的上傳或遠(yuǎn)程獲取的文件信息,有源文件名,保存文件名,保存路徑文件名。 39。 ====================== Call Header(增加信息保存 ) Call Content() Call Footer() 39。 本頁內(nèi)容區(qū) Sub Content() Dim i 39。 取提交過來的數(shù)據(jù) 39。 注意取信息內(nèi)容的方法,因?yàn)閷?duì)大表單的自動(dòng)處理,一定要使用循環(huán),否則大于 100K 的內(nèi)容將取不到,單個(gè)表單項(xiàng)的限制為 102399 字節(jié)( 100K 左右) Dim sTitle, sContent, sPicture,sclassid,sNclassid,szuozhe,ssj,sdepartment sTitle = (d_title) sPicture = (d_picture) sclassid = (classid) sNclassid= (Nclassid) szuozhe=trim(session(t_name)) ssj=now() sdepartment=trim(Session(T_d)) 39。 開始: eWebEditor 編輯區(qū)取值 sContent = For i = 1 To (d_content).Count sContent = sContent amp。 (d_content)(i) Next 39。 結(jié)束: eWebEditor 編輯區(qū)取值 39。 以下為所有通過編輯器上傳的所有文件相關(guān)信息,包括編輯區(qū)手動(dòng)上傳的和自動(dòng)遠(yuǎn)程上傳的 39。 GetSafeStr 函數(shù)為過濾一些特殊字符,防止有些人惡意的破壞此演示程序 39。 上傳或遠(yuǎn)程獲取前的原文件名,多個(gè)以 |分隔 Dim sOriginalFileName 39。 上傳后保存到本地服務(wù)器的文件名(不帶路徑),多個(gè)以 |分隔 Dim sSaveFileName 39。 上傳后保存到本地服務(wù)器的路徑文件名,多個(gè)以 |分隔 Dim sSavePathFileName sOriginalFileName = GetSafeStr((d_originalfilename)) sSaveFileName = GetSafeStr((d_savefilename)) sSavePathFileName = GetSafeStr((d_savepathfilename)) 39。 保存信息內(nèi)容,同時(shí)取出自增的信息 ID Dim sNewsID sSql = SELECT * FROM st_work WHERE D_ID=0 sSql, oConn, 1, 3 oRs(D_Title) = sTitle oRs(D_Content) = sContent oRs(D_Picture) = sPicture oRs(D_OriginalFileName) = sOriginalFileName oRs(D_SaveFileName) = sSaveFileName oRs(D_SavePathFileName) = sSavePathFileName oRs(classid) = sclassid oRs(Nclassid) = sNclassid oRs(zuozhe) = szuozhe oRs(sj) = ssj oRs(department) = sdepartment sNewsID = oRs(D_ID) 39。 輸出成功保存信息 信息( ID: amp。 sNewsID amp。 )增加保存成功! End Sub % 刪除功能 !include file = % 39。 ====================== 39。 功能:刪除信息 39。 描述:信息刪除后,頁面轉(zhuǎn)向信息列表頁。 39。 刪除信息的同時(shí),刪除此信息相關(guān)的上傳文件。 39。 ====================== Call Header(刪除信息 ) Call Content() Call Footer() 本頁內(nèi)容區(qū) Sub Content() 39。 取參數(shù):信息 ID Dim sNewsID sNewsID = Trim(Request(id)) 39。 信息 ID有效性驗(yàn)證,防止有些人惡意的破壞此演示程序 If IsNumeric(sNewsID) = False Then GoError 請(qǐng)通過頁面上的鏈接進(jìn)行操作,不要試圖破壞此演示系統(tǒng)。 End If 39。 從信息數(shù)據(jù)表中取出相關(guān)的上傳文件 39。 上傳后保存到本地服務(wù)器的路徑文件名,多個(gè)以 |分 隔 39。 刪除文件,要取帶路徑的文件名才可以,并且只要這個(gè)就可以了,原來存的原文件名或不帶路徑的保存文件名可用于其它地方使用 Dim sSavePathFileName sSql = SELECT D_SavePathFileName FROM st_work WHERE D_ID= amp。 sNewsID sSql, oConn, 0, 1 If Not Then sSavePathFileName = oRs(D_SavePathFileName) Else GoError 無效的信息 ID,請(qǐng)點(diǎn)頁面上的鏈接進(jìn)行操作! End If 39。 把帶 |的字符串轉(zhuǎn)為數(shù)組 Dim aSavePathFileName aSavePathFileName = Split(sSavePathFileName, |) 39。 刪除信息相關(guān)的文件,從文件夾中 Dim i For i = 0 To UBound(aSavePathFileName) 39。 按路徑文件名刪除文件 Call DoDelFile(aSavePathFileName(i)) Next 39。 刪除信息 sSql = DELETE FROM st_work WHERE D_ID= amp。 sNewsID sSql 39。 3秒轉(zhuǎn)向信息列表頁 p align=center信息刪除成功, 3 秒后自動(dòng)返回script(=39。39。,3000)。/script/p End Sub 39。 刪除指定的文件 Sub DoDelFile(sPathFile) On Error Resume Next Dim oFSO Set oFSO = () ((sPathFile)) Set oFSO = Nothing End Sub % 修改功能 !include file = % 39。 ====================== 39。 功能:修改信息保存頁 39。 描述:對(duì) 文件提交過來的表單數(shù)據(jù)進(jìn)行保存操作,有保存信息標(biāo)題,信息內(nèi)容,信息標(biāo)題圖片; 同時(shí)保存所有此篇信息所有相關(guān)的上傳或遠(yuǎn)程獲取的文件信息,有源文件名,保存文件名,保存路徑文件名。 39。 ====================== Call Header(修改信息保存 ) Call Content() Call Footer() 39。 本頁內(nèi)容區(qū) Sub Content() Dim i 39。 傳入?yún)?shù):信息 ID Dim sNewsID sNewsID = Trim(Request(id)) 39。 信息 ID有效性驗(yàn)證,防止有些人惡意的破壞此演示程序 If IsNumeric(sNewsID) = False Then GoError 請(qǐng)通過頁面上的鏈接進(jìn)行操作,不要試圖破壞此演示系統(tǒng)。 End If 39。 取提交過來的數(shù)據(jù) 39。 注意取信息內(nèi)容的方法,因?yàn)閷?duì)大表單的自動(dòng)處理,一定要使用循環(huán),否則大于 100K 的內(nèi)容將取不到,單個(gè)表單項(xiàng)的限制為 102399 字節(jié)( 100K 左右) Dim sTitle, sContent, sPicture,sclassid,sNclassid,szuozhe,ssj,sdepartment sTitle = (d_title) sPicture = (d_picture) sclassid = (classid) sNclassid= (Nclassid) szuozhe=trim(session(t_name)) ssj=now() sdepartment=trim(Session(T_d)) 39。 開始: eWebEditor 編輯區(qū)取值 sContent = For i = 1 To (d_content).Count sContent = sContent amp。 (d_content)(i) Next 39。 結(jié)束: eWebEditor 編輯區(qū)取值 以下為所有通過編輯器上傳的所有文件相關(guān)信息,包括編輯區(qū)手動(dòng)上傳的和自動(dòng)遠(yuǎn)程上傳的 39。 GetSafeStr 函數(shù)為 過濾一些特殊字符,防止有些人惡意的破壞此演示程序 39。 上傳或遠(yuǎn)程獲取前的原文件名,多個(gè)以 |分隔 Dim sOriginalFileName 39。 上傳后保存到本地服務(wù)器的文件名(不帶路徑),多個(gè)以 |分隔 Dim sSaveFileName 39。 上傳后保存到本地服務(wù)器的路徑文件名,多個(gè)以 |分隔 Dim sSavePathFileName sOriginalFileName = GetSafeStr((d_originalfilename)) sSaveFileName = GetSafeStr((d_savefilename)) sSavePathFileName = GetSafeStr((d_savepathfilename)) 修改指定信息內(nèi)容 sSql = SELECT * FROM st_work WHERE D_ID= amp。 sNewsID sSql, oConn, 1, 3 If Not Then oRs(D_Title) = sTitle oRs(D_Content) = sContent oRs(D_Picture) = sPicture oRs(D_OriginalFileName) = sOriginalFileName oRs(D_SaveFileName) = sSaveFileName oRs(D_SavePathFileName) = sSavePathFileName oRs(classid) = sclassid oRs(Nclassid) = sNclassid oRs(zuozhe) = szuozhe oRs(sj) = ssj oRs(department) = sdepartment Else GoError 無效的信息 ID,請(qǐng)點(diǎn)頁面上的鏈接進(jìn)行操作! End If 39。 輸出成功保存信息 信息( ID: amp。 sNewsID amp。 )修改保存成功! End Sub % 顯示功能 !include file = !include file = Include/ % Dim sNewsID sNewsID = Trim(Request(id)) If IsNumeric(sNewsID) = False Then GoError 請(qǐng)通過頁面上的鏈接進(jìn)行操作,不要試圖破壞系統(tǒng)。 End If Dim sTitle, sContent, sPicture, sOriginalFileName, sSaveFileName, sSavePathFile
點(diǎn)擊復(fù)制文檔內(nèi)容
高考資料相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號(hào)-1