【文章內(nèi)容簡介】 allClass_down 下載小類信息表如表 所示： 表 名稱 字段名稱 數(shù)據(jù)類型 主鍵 編號 SmallClass_id 數(shù)值 是 類別名 SmallClass_name 文本 ? 名稱：軟件下載信息（ Download） 標識： Download 下載信息表如表 所示： 表 名稱 字段名稱 數(shù)據(jù)類型 主鍵 編號 id 數(shù)值 是 標題 Title 文本 說明 Content 文本 大類名稱 BigclassName 文本 小類名稱 SmallClassName 文本 系統(tǒng) System 文本 語言 Language 文本 軟件類型 Softclass 文本 圖片地址 PhotoUrl 文本 下載地址 DownloadUrl 文本 文件大小 FileSize 數(shù)值 點擊數(shù) Hits 數(shù)值 增加日期 AddDate 日期 ? 名稱：注冊用戶信息表（ user） 標識： user 注冊用戶信息表如表 所示： 表 名稱 字段名稱 數(shù)據(jù)類型 主鍵 編號 id 數(shù)值 是 姓名 userName 文本 密碼 Password 文本 性別 sex 文本 聯(lián)系電話 tel 文本 Email 文本 最后登錄日期 LastLoginTime 日期時間 頁面子系統(tǒng)模塊 歡迎頁面 管理員登錄 管理員登錄 IPO 圖 輸入：管理員帳號，密碼 處理：判斷工作證號和密碼是否有效。填入工作證號和密碼后點擊 [提交 ]按鈕，系統(tǒng)將自動從數(shù)據(jù)庫中的管理員信息表中判斷是否存在相同的管理員和密碼，如果有則進入系統(tǒng)，如果不存在或密碼錯誤，則提示帳號或密碼有錯誤的信息。 輸出：登錄成功，進入系統(tǒng)管理頁面。 管理員登錄頁面 主要登錄代碼如下 : % dim sql,rs dim username,password,CheckCode username=replace(trim(request(username)),39。,) password=replace(trim(Request(password)),39。,) CheckCode=replace(trim(Request(CheckCode)),39。,) if UserName= then FoundErr=True ErrMsg=ErrMsg amp。 brli用戶名不能為空！ /li end if if Password= then FoundErr=True ErrMsg=ErrMsg amp。 brli密碼不能為空！ /li end if if CheckCode= then FoundErr=True ErrMsg=ErrMsg amp。 brli驗證碼不能為空！ /li end if if session(CheckCode)= then FoundErr=True ErrMsg=ErrMsg amp。 brli你登錄時間過長，請重新返回登錄頁面進行登錄。 /li end if if CheckCodeCStr(session(CheckCode)) then FoundErr=True ErrMsg=ErrMsg amp。 brli您輸入的確認碼和系統(tǒng)產(chǎn)生的不一致，請重新輸入。 /li end if if FoundErrTrue then password=md5(password) set rs=() sql=select * from Admin where password=39。amp。passwordamp。39。 and username=39。amp。usernameamp。39。 sql,conn,1,3 if and then FoundErr=True ErrMsg=ErrMsg amp。 brli用戶名或密碼錯誤?。。?/li else if passwordrs(password) then FoundErr=True ErrMsg=ErrMsg amp。 brli用戶名或密碼錯誤！！！ /li else RndPassword=GetRndPassword(16) rs(LastLoginIP)=(REMOTE_ADDR) rs(LastLoginTime)=now() rs(LoginTimes)=rs(LoginTimes)+1 rs(RndPassword)=RndPassword =SessionTimeout session(AdminName)=rs(username) session(AdminPassword)=rs(Password) session(RndPassword)=RndPassword set rs=nothing call CloseConn() end if end if set rs=nothing end if 系統(tǒng)管理主界面 系統(tǒng)主界面，以框架的形式進行組織。充分利用框架靈活、方便的特點，使得多個功能選項可以在同一個窗口中打開。 其它界面介紹 添加下載一級分類 輸入：類別名稱 處理：檢驗類別名稱的有效必，并將類別信息寫入類別庫 輸出：若類別添加成功顯示添加成功信息 主要代碼如下 : % dim Action,BigClassName,rs,FoundErr,ErrMsg Action=trim(Request(Action)) BigClassName=trim(request(BigClassName)) if Action=Add then if BigClassName= then FoundErr=True ErrMsg=ErrMsg amp。 brli下載大類名不能為空！ /li end if if FoundErrTrue then Set rs=() Select * From BigClass_down Where BigClassName=39。 amp。 BigClassName amp。 39。,conn,1,3 if not ( and ) then FoundErr=True ErrMsg=ErrMsg amp。 brli下載大類“ amp。 BigClassName amp。 ”已經(jīng)存在！ /li else rs(BigClassName)=BigClassName set rs=Nothing call CloseConn() end if end if end if 添加下載二級分類 輸入：一級分類名稱，類別名稱 處理：檢驗類別名稱的有效必，并將類別信息寫入二級類別庫 輸出：若類別添加成功顯示添加成功信息 主要代碼如下 : % dim Action,BigClassName,SmallClassName,rs,FoundErr,ErrMsg Action=trim(Request(Action)) BigClassName=trim(request(BigClassName)) SmallClassName=trim(request(SmallClassName)) if Action=Add then if BigClassName= then FoundErr=True ErrMsg=ErrMsg amp。 brli下載大類名不能為空！ /li end if if SmallClassName= then FoundErr=True ErrMsg=ErrMsg amp。 brli下載小類名不能為空！ /li end if if FoundErrTrue then Set rs=() Select * From SmallClass_down Where BigClassName=39。 amp。 BigClassName amp。 39。 AND SmallClassName=39。 amp。 SmallClassName amp。 39。,conn,1,3 if not then FoundErr=True ErrMsg=ErrMsg amp。 brli“ amp。 BigClassName amp。 ”中已經(jīng)存在下載小類“ amp。 SmallClassName amp。 ”！ /li else rs(BigClassName)=BigClassName rs(SmallClassName)=SmallClassName set rs=Nothing call CloseConn() end if end if end if 修改分類名稱 輸入：新的類別名稱 處理：檢驗類別名稱的有效性，并對對應(yīng)類別信息進行更新 輸出：若類別修改成功顯示修改成功信息 主要代碼如下 : % dim BigClassID,Action,rs,NewBigClassName,OldBigClassName,FoundErr,ErrMsg BigClassID=trim(Request(BigClassID)) Action=trim(Request(Action)) NewBigClassName=trim(Request(NewBigClassName)) OldBigClassName=trim(Request(OldBigClassName)) if BigClassID= then () end if Set rs=() Select * from BigClass_down where BigClassID= amp。 CLng(BigClassID),conn,1,3 if and then FoundErr=True ErrMsg=ErrMsg amp。 brli此下載大類不存在！ /li else if Action=Modify then if NewBigClassName= then FoundErr=True ErrMsg=ErrMsg amp。 brli下載大類名不能為空！ /li end if if FoundErrTrue then rs(BigClassName)=NewBigClassName rs(Admin)=Admin set rs=Nothing if NewBigClassNameOldBigClassName then Update SmallClass_Down set BigClassName=39。 amp。 NewBigClassName amp。 39。 where BigClassName=39。 amp。 OldBigClassName amp。 39。 Update download set BigClassName=39。 amp。 NewBigClassName amp。 39。 where BigClassName=39。 amp。 OldBigClassName amp。 39。 end if call CloseConn() end if end if 新增下載軟件 輸入：軟件信息 (名稱，適用系統(tǒng)，軟件語言，軟件類型，下載地址，大小 ) 處理： 1．瀏覽要上傳的軟件，并上傳。上傳成功后，自動填充下載地址及大小。 2．錄入軟件其它信息 ，并存入數(shù)據(jù)庫 輸出：若新增成功，則顯示成功消息。 主要代碼如下 : % ID=(ID) Title=Trim((Title)) BigClassName=trim((BigClassName)) SmallClassName=trim((SmallClassName)) Content=trim((C