【正文】 javasc。)。分公司管理模塊、分司管理員模塊所涉及到的程序代碼如下： % select case (options) case tname if request(tname)= then (script language=javascriptalert(39。,this,0) % set rs=( ) sql=select * from fgongsi sql,conn,1,1 if then% option selected－請?zhí)砑臃止荆?option% else ( option value=－顯示全部分公司－ /option) %% for i=1 to and not if int(request(fenlei))=rs(id) then %option value= ? fenlei=%=rs(id)% selected %=rs(fengongsi)%/option % Else % option value=? fenlei=%=rs(id)%%=rs(fengongsi)%/option% end if if then exit for next end if % 分公司管理模塊主要包括分公司管理模塊、分公司管理員模塊 2個(gè)大部分。 menu1 select 分類查看 onChange=MM_jumpMenu(39。 gongsi select 分公司名稱 %set rs=() sql=select * from fgongsi sql,conn,1,1 if then%option－暫無公司－ /option% else for i=1 to and not %option value=%=rs(id)%%=rs(fengongsi)%/option % if then exit for next end if % Submit32 image 添加用戶 value= 添加 src=../images/ onClick==39。 Submit3 image 添加分公司 value= 添加 src=../images/ onClick==39。 Submit2 image 修改分公司 value= 修改 src=../images/ onClick==39。 表 9 分公司管理頁面中所涉及到的 HTML重要表單元素 名稱 類型 含義 重要屬性 form1 form 表單 action= method=post id=form1 select select 分公司名稱 % if then%option－請?zhí)砑臃止荆?/option % else for i=1 to and not % option value=%=rs(id)%%=rs(fengongsi)% /option % if then exit for next end if% Submit image 刪除分公司 value= 刪除 src=../images/ onClick==39。 分公司管理頁面設(shè)計(jì)效果如圖 31所示。通過標(biāo)題模糊查詢新聞信息 sql,conn,1,1 else set rs=() sql=select * from new sql,conn,1,1 End If % 新聞查詢模塊主要通過新聞標(biāo)題進(jìn)行模糊查詢，新聞查詢頁面運(yùn)行結(jié)果如圖 30 所示。%39。%amp。request(del) 39。 圖 29 新聞管理頁面的設(shè)計(jì)效果 新聞查詢主要采用模糊查詢，新聞查詢 頁面中所涉及到的程序代碼如下： % if request(del) then 39。)刪除 /a 運(yùn)單管理模塊的運(yùn)行結(jié)果如圖 28所示。p=%=requestpage% onClick=return confirm(39。運(yùn)單刪除時(shí)，將給予提示框，提示是否確定刪除此運(yùn)單，單擊【確定】按鈕，將刪除已選定的運(yùn)單。根據(jù)記錄集 rs中的 lei字段的內(nèi)容，顯示下拉列表框的默認(rèn)選項(xiàng) option value=公司新聞 %if rs(lei)=公司新聞 then%selected% End If %公司新聞 /option option value=行業(yè)新聞 %if rs(lei)=行業(yè)新聞 then%selected% End If %行業(yè)新聞 /option /select /td 運(yùn)單修改頁面的運(yùn)行結(jié)果如圖 27所示。javascript:(1)39。)。接收 id值，并進(jìn)行查詢相關(guān)記錄信息 sql,conn,1,3 rs(start)=request(start) rs(mudidi)=request(mudidi) rs(ctime)=request(ctime) rs(fg)=request(fg) rs(beizhu)=request(beizhu) () else (script language=javascriptalert(39。request(id) sql1,conn,1,1 if request(post) then call writ end if function writ if request(start) and request(mudidi) and request(ctime)and request(beizhu) then set rs=() sql=select * from yundan where id=amp。39。 圖 26 運(yùn)單修改頁面設(shè)計(jì)效果 運(yùn)單修改頁面中所涉及的 HTML表單元素如表 8所示。運(yùn)單信息修改頁面也是由兩部分組成，即用于收集運(yùn)單信息的前臺(tái) 表單部分和用于對(duì)數(shù)據(jù)庫進(jìn)行操作的后臺(tái)處理部分。javascript:(1)39。)。/script) else (script language=javascriptalert(39。location=39。提交成功39。接收備注信息 rs(time)=date() 39。判斷表單中不允許為空的信息 set rs=() sql=select * from yundan sql,conn,1,3 39。39。amp。 post hidden 隱藏域 id=post value=true 添加運(yùn)單 信息時(shí)所涉及到的相關(guān)程序代碼如下： % set rs2=() 39。 表 7 運(yùn)單添加頁面中所涉及到的 HTML表單元素 名稱 類型 含義 重要屬性 form1 form 表單 method=post start text 寄件地 class=kuang id=start mudidi text 目的地 class=kuang id=mudidi ctime text 寄件時(shí)間 class=kuang id=ctime fg select 指派分公司 % set rs=() sql=select * from fgongsi sql,conn,1,1 if then%option－暫無公司－ /option % else for i=1 to and not %option value=%=rs(fengongsi)% %=rs(fengongsi)%/option% if then exit for next end if % beizhu textarea 備注 cols=30 rows=5 class=kuang id=beizhu Submit submit 【提交】按鈕 value=提交 Submit2 reset 【重置】按鈕 value=重置 Submit3 reset 【返回】按鈕 value=返回 onClick=location=39。運(yùn)單添加頁面的設(shè)計(jì)效果如圖 25所示。 圖 24 運(yùn)單查詢頁面運(yùn)行結(jié)果 2．運(yùn)單添加 運(yùn)單添加主要用于管理員追加新運(yùn)單信息。)刪除 /a /div /td /tr % if then exit for 39。p=%=requestpage% onClick=return confirm(39。所涉及到的相關(guān)程序代碼如下： % 39。 sql,conn,1,1 else set rs=() sql=select * from yundan order by time desc 39。request(bianhao)amp。判斷是否接收到表單的值 set rs=() sql=select * from yundan where nid=39。刪除指定的運(yùn)單 (sql1) 39。 表 6 運(yùn)單查詢頁面中所涉及到的 HTML表單元素 名稱 類型 含義 重要屬性 form1 form 表單 method=post bianhao text 輸入要查找的運(yùn)單編號(hào) id=bianhao Submit Submit 【查找】按鈕 value=查找 pp hidden 隱藏域 id=pp value=tt 運(yùn)單查詢頁面所涉及到的相關(guān)程序代碼如下： % if request(del) then sql1=delete from yundan where id=amp。運(yùn)單查詢頁面設(shè)計(jì)結(jié)果如圖 23 所示。 運(yùn)單管理頁面的設(shè)計(jì)效果如圖 22所示。request(id) sql1,conn,1,3 rs1(content)=request(content) 39。判斷是否接收到表單值 call ed 39。獲取 id值 set rs=() sql=select * from news where id=amp。公司簡介管理模塊的頁面設(shè)計(jì)效果如圖21所示。接收要修改系統(tǒng)名稱的標(biāo)題 () end function % 初始化信息管理模塊運(yùn)行結(jié)果如圖 20所示。/script) end if end function function tit set rs1=() sql1=select * from admin where id=1 39。location=39。修改成功39。接收要修改的用戶名 rs(admin_pwd)=request(admin_pwd) 39。javascript:(1)39。)。判斷輸入密碼與確認(rèn)密碼是否一致 (script language=javascriptalert(39。 初始化信息管理模塊所涉及到的程序代碼如下： % if request(action)=chang1 then 39。跳轉(zhuǎn)到指定頁面 end if set rs=nothing set conn=nothing end if end if % 后臺(tái)登錄 模塊的運(yùn)行結(jié)果如圖 19所示。判斷用戶是否存在 brbrbrbrfont size=2center對(duì)不起，您輸入的用戶名、密碼或驗(yàn)證碼有誤，請重新輸入，謝謝！ brbr本軟件建議您使用 上版本，分辨率： 1024*768brbra href=返回 /a /font else session(admin_name)=request(admin_name) 39。39。amp。39。amp。 () amp。)。 alert(39。 or pass=% or pass= or pass= or upass=amp。 /script end if next for i=1 to len(password) 39。 amp。您的用戶名含有非法字符 ,請重新輸入！ 39。 or user=| then script language=JavaScript amp。判斷輸入的用戶名中是否含有非法字符 if user=39。,)) for i=1 to len(username) 39。,)) 39。判斷是否接收到值 admin_name=request(admin_name) 39。/SCRIPT founderr=true else session(verifycode)= 39。 =39。 39。輸入的驗(yàn)證碼與隨機(jī)產(chǎn)生的驗(yàn)證碼是否一