【正文】 圖 21 反饋信息添加頁面的設計效果 反饋信息添加頁面涉及的 HTML 表單元素如表 3 所示。數(shù)據(jù)處理的程序代碼如下： % call feedback if request(post) then set rs=() sql=select * from tb_Feedback sql,conn,1,3 39。amp。amp。當服務完成選項，選中“已完成”時，那么任何信息都不可以修改，也就是說只有在服務“未完成”的情況下才能修改“處理結果”。 圖 22 反饋信息頁面設計效果 – 18 – 反饋信息修改頁面涉及的 HTML 表單元素如表 4 所示。 onmouseover=()。request(id) sql,conn,1,3 rs(FeedbackFulfill)=request(FeedbackFulfill) rs(FeedbackResult)=request(FeedbackResult) (script language=javascriptalert(39。)。?id=amp。/script) end if % – 19 – 7 報表管理 報表管理的主要功能是打印各種類型的報表，包括客戶報表打印、聯(lián)系人報表打印、反饋報表打印和庫存報表打印 4 個部分。 圖 23 報表管理頁面設計效果 客戶報表模塊 客戶報表模塊的主要功能包括客戶報表查詢、導入 Excel和用 web 打印 3 個部分。 表 5 客戶報表查詢頁面涉及的 HTML表單元素 名稱 類型 含義 重要屬性 form1 Form 表單 method=post action= eeeet Hidden 判斷表單如何處理 ClientCountry Select 國家 /地區(qū) option value=%=rsg(ClientCountry)% %=rsg(ClientCountry)%/option ClientCity Select 城市 option value=%=rsc(ClientCity)% %=rsc(ClientCity)%/option SetName Select 創(chuàng)建者 option value=%=rss(SetName)% %=rss(SetName)%/option – 20 – searchtype 類別 option value=ClientName公司名稱/option ?? option value=ClientAddress公司地址 /option Submit submit 導入 Execul class=input value= 導入 Excul onClick==39。 Submit submit 直接打印 class=input value= 打印報表 onClick==39。 用戶可以在報表管理頁面中的客戶報表查詢部分，輸入查詢條件，進行客戶信息的查詢。 數(shù)據(jù)處理頁對查詢條件經過處理，產生相 應的 SQL 查詢語句，其代碼如下： % sql=id is not null if request(ClientCountry)全部 then 39。 and ClientCountry=39。request(ClientCountry)amp。 end if if request(ClientCity)全部 then 39。 and ClientCity=39。request(ClientCity)amp。 end if if request(SetName)全部 then 39。 and SetName=39。request(SetName)amp。 end if if trim(request(search)) then 39。 and amp。 like 39。request(search)amp。 end if sql=select ClientName,ClientCountry,ClientCity,ClientTel,ClientFax,ClientEmail from tb_Client where amp。sqlamp。tt=excul)39。處理 Excel的頁面代碼如下： % if request(tt)=excul then 39。當為聯(lián)系人報表查詢時產生相應字段 a=array(姓名 ,客戶名稱 ,部門 ,職務 ,電話 ,手機 ,Email) elseif request(tt)=excul_k then 39。當為庫存報表查詢時產生相應字段 a=array(客戶編號 ,客戶名稱 ,產品數(shù)量 ,單位 ,庫存類型 ) end if % %=application/% % set rs=(request(sql)) % table width=100 border=1 cellspacing=0 tr % for i=0 to % td align=center%=a(i)%/td %next% /tr %do while not % tr %for i=0 to % td align=center class=table%=rs(i)%/td %next% /tr % loop % 報表下載頁面的運行結果如圖 24 所示。 數(shù)據(jù)處理頁對查詢條件經過處理，產生相應的 SQL 查詢語句。國家 /地區(qū)不為全部時 sql=sqlamp。amp。39。城市不為全部時 sql=sqlamp。amp。39?？蛻裘Q不為全部時 sql=sqlamp。amp。39。當關鍵字不為空時 sql=sqlamp。request(searchtype)amp。%amp。%39。sql (?sql=amp。把參數(shù)傳給打印頁面 % 當數(shù)據(jù)處理頁處理完畢之后，會自動轉向打印頁，打印頁是一個框架集，包含三個頁面。show=%=show%amp。show=%=show%amp。獲取 sql語句 if sql= then sql=session(sql) end if session(sql)=sql show=request(show) set rs=() sql=sql sql,conn,1,1 if not then tol= =show maxpage= requestpage=clng(request(p)) else maxpage=0 tol=0 show=0 end if % table width=649 border=0 align=center tr valign=middle form name=form1 td width=14% valign=middle select name=menu1 onChange=MM_jumpMenu(39。,this,0) %for i=1 to 200% option value=?show=%=i% %if i=int(show) then%selected%end if%每頁顯示 %=i%條記錄 /option %next% /select /td/form form name=form2 td width=7% valign=middle select name=menu3 onChange=MM_jumpMenu(39。,this,0) %for i=1 to maxpage% option value=?p=%=i%amp。sql=%=request(sql)% 第%=i%頁 /option – 24 – %next% /select /td td width=64% height=23 valign=middle 總頁數(shù)： %=maxpage% 總條數(shù)：%=tol%/td td width=15% align=righta href=javascript:。打印 /a/td /form /tr /table 打印預覽頁面代碼如下： % sql=request(sql) if request(sql)= then sql=session(sql) end if session(sql)=sql show=request(show) set rs=() sql=session(sql) sql,conn,1,1 % % if not then tol= =show maxpage= requestpage=clng(request(p)) if requestpage= or requestpage=0 then requestpage=1 end if if requestpagemaxpage then requestpage=maxpage end if if requestpage1 then (requestpage1)* end if for i=1 to and not % tr align=center td height=30%=rs(ClientName)%/td td%=rs(ClientCountry)%/td td%=rs(ClientCity)%/td – 25 – td%=rs(ClientTel)%/td td%=rs(ClientFax)%/td td%=rs(ClientEmail)%/td /tr % if then exit for next else (span class=39。沒有找到相關信息 /span) end if % 客戶報表打印頁面運行結果如圖 25 所示。 表 6 聯(lián)系人報表查詢頁面涉及的 HTML表單元素 名稱 類型 含義 重要屬性 form1 Form 表單 method=post action= eeeet hidden 判斷表單如何處理 LinkmanDept select 國家 /地區(qū) option value=%=rsg(ClientCountry)% %=rsg(ClientCountry)%/option LinkmanDuty select 城市 option value=%=rsc(ClientCity)% %=rsc(ClientCity)%/option select2 select 創(chuàng)建者 option value=%=rss(SetName)% – 26 – %=rss(SetName)%/option Submit submit 導入 Execul class=input value= 導入 Excul onClick==39。 Submit submit 直接打印 class=input value= 打印報表 onClick==39。 用戶可以在報表管理頁面 中的聯(lián)系人報表查詢部分，輸入一定的查詢條件，進行聯(lián)系人信息的查詢。 and =39。request(LinkmanDept)amp。 end if if request(LinkmanDuty)全部 then sql=sqlamp。amp。39。 and =39。request(SetName)amp。 end if sql=SELECT , , , FROM INNER JOIN ON = where amp。sql) % 由于查詢和導入的實現(xiàn)方法和客戶報表的實現(xiàn)方法相似，在此不再詳細介紹，請讀者參考 節(jié)中介紹的導入 Excel的程序