【導(dǎo)讀】Inter技術(shù)持續(xù)迅猛的發(fā)展，也給傳統(tǒng)的企業(yè)管理提出了新的模式。以現(xiàn)代計(jì)算技術(shù)、網(wǎng)絡(luò)技術(shù)為基礎(chǔ)的企業(yè)化管理主要是朝著信息化、網(wǎng)絡(luò)化、現(xiàn)代化的目標(biāo)邁進(jìn)。作為新型的企業(yè)管理模式，它們具有提高工作效率、減少中。間環(huán)節(jié)的特性，可以為新型企業(yè)管理模式的建構(gòu)提供理想的環(huán)境。庫即時(shí)查詢系統(tǒng)，旨在探索一種以互聯(lián)網(wǎng)為基礎(chǔ)的企業(yè)管理模式。地點(diǎn)通過網(wǎng)絡(luò)掌握公司最新價(jià)格和庫存情況。基于這些優(yōu)點(diǎn)，我設(shè)計(jì)開發(fā)了這套。建設(shè)成為一流企業(yè)建設(shè)的重要組成部分。用“企業(yè)信息化”的整體概念來統(tǒng)一規(guī)。在這個概念下，統(tǒng)一設(shè)計(jì)和建設(shè)網(wǎng)絡(luò)拓。戶密碼、安全退出系統(tǒng)幾個部分。公自動化結(jié)構(gòu)的網(wǎng)絡(luò)化，進(jìn)一步提高企業(yè)的辦公效率、工作水平，

　　

【正文】 0入庫日期 /font/td td width=136font color=FF0000最后更新時(shí)間 /font/td /tr %dim rs,sql set rs=()39。創(chuàng)建記錄集對象 sql=select * from ck order by update_time desc39。選取倉庫表中的所有記錄，按降序排序 sql,conn,1,1 39。分頁代碼部分 dim total_record,currentpage const MaxPerpage=10 39。每頁顯示最大記錄條數(shù) total_record= 39。將總記錄條數(shù)賦給變量 total_record currentpage=request(page) 39。獲取當(dāng)前頁面的頁碼 if currentpage1 then currentpage=1 end if if currentpage=1 then 39。如果當(dāng)前是第一頁 則顯示前面的記錄 show_content 39。調(diào)用過程，以顯示表單 show_page total_record,Maxperpage 39。調(diào)用過程，以顯示翻頁菜單 else (currentpage1)*Maxperpage 39。把記錄集移動到每頁的開始 dim bookmark bookmark= 39。獲取當(dāng)前記錄讀取位置 show_content show_page total_record,Maxperpage 39。調(diào)用過程，以顯示翻頁菜單 end if % %sub show_content 39。定義顯示產(chǎn)品信息的表格框過程 dim I 39。定義記數(shù)器變量 i i=0 39。初始化記數(shù)器 do while not 39。如果不是最后一條記錄 則繼續(xù) % tr bgcolor=FFFFFF td height=29 %=rs(prod_name)%/td td align=center%=rs(prod_num)%/td td align=center￥ %=FormatNumber(rs(prod_price),2)%/td td %=rs(prod_)%/td td align=center%=rs(add_date)% /td td align=centerfont color=006600%=rs(update_time)%/font/td /tr % i=i+1 39。記數(shù)器和顯示記錄條數(shù)同步 if i=Maxperpage then exit do 39。如果超出每頁最大顯示條數(shù) 則退出 SUB 39。移動到下一條記錄 loop 39。循環(huán) % %end sub% /table br %sub show_page(total_record,Maxperpage) 39。翻頁菜單過程定義 dim file_url 39。本頁文件名 file_url= 39。方便后面使用 dim total_page 39。定義總頁數(shù)變量 if total_record mod Maxperpage=0 then 39。計(jì)算總共的頁數(shù) total_page=total_record \ Maxperpage else total_page=total_record \ Maxperpage+1 end if % p/p table width=439 height=36 border=0 align=center class=12 tr td width=141table width=141 border=0 cellspacing=1 class=12 tr td class=12 %if currentpage2 then% 第一頁 %else% a href=39。%=file_url%?id=%=id%amp。page=139。 class=linkfont color=FF0000第一頁 /font/a %end if% /td td %if currentpage2 then% span class=12上一頁 %else% a href=39。%=file_url%?id=%=id%amp。page=%=currentpage1%39。font color=FF0000上一頁 /font/a/span/td %end if% /tr /table/td td width=125div align=justifyfont color=FF0000 span class=12共/span/fontspan class=12%=total_record%font color=FF0000條 /font font color=FF0000 共分 /font%=total_page%font color=FF0000 頁/font /span/div/td td width=159table width=159 border=0 cellpadding=0 cellspacing=1 class=12 tr td width=73 %if total_pagecurrentpage1 then% span class=12下一頁 %else% a href=39。%=file_url%?id=%=id%amp。page=%=currentpage+1%39。 class=12font color=FF0000下一頁 /font/a %end if% /span/td td width=59 %if total_pagecurrentpage1 then% span class=12 最后一頁 %else% a href=39。%=file_url%?id=%=id%amp。page=%=total_page%39。 class=12font color=FF0000最后一頁 /font/a %end if% /span/td /tr /table/td /tr /table %end sub% /body /html script function MM_openBrWindow(theURL,winName,features) { //用于彈出頁面函數(shù) (theURL,winName,features)。 } /script 源碼： !include file= % if (admin)= then 39。判斷是否正常登錄，如果沒有正常登錄則退回登錄頁面 () 39。如果非法登錄 退回到登錄頁面 end if dim rs1,sql1 39。定義記錄集和 SQL 字符串 set rs1=() 39。創(chuàng)建記錄集 sql1=select * from user_info where username=39。amp。(admin)amp。39。 39。賦予 SQL 字符串 sql1,conn,1,1 39。執(zhí)行 SQL 語句 % html head title賽格網(wǎng)絡(luò)－管理用戶 /title meta equiv=ContentType content=text/html。 charset=gb2312 link href= rel=stylesheet type=text/css /head body br table width=760 height=55 border=0 align=center cellpadding=0 cellspacing=1 bgcolor=006600 tr td height=25 bgcolor=FFFFFF class=12 －－ 歡 迎 font color=006600%=rs1(username)%/font 登陸，部門： font color=006600%=rs1(department)%/font 職務(wù)： font color=006600%=rs1(job)%/font [a href= onclick=javascript:(39。39。,39。39。,39。width=450,height=150,top=300,left=300,scrollbars=yes39。)修改登陸密碼 /a] [a href=退出系統(tǒng) /a]/td /tr tr td bgcolor=FFFFFF class=12 您可以： [a href=?action=add添加庫存信息 /a]/td /tr /table form action= method=post name=search1 id=search1 table width=461 height=30 border=0 align=center cellpadding=0 cellspacing=1 bgcolor=333333 class=12 tr td bgcolor=FFFFFF img src=image/ width=15 height=15 align=bottom 請輸入產(chǎn)品關(guān)鍵字： input name=txtkey type=text class=txt id=txtkey size=25 input name=Submit type=submit class=button value=搜索 /td /tr /table /formbr % if request(action)=edit then 39。判斷是否請求編輯 call edit_data 39。如果是 則調(diào)用編輯過程 elseif request(action)=add then 39。判斷是否請求添加 call add_data 39。如果是 則調(diào)用添加過程 elseif request(action)=addsave then 39。判斷是否請求向數(shù)據(jù)庫新增 (insert into ck(prod_name,prod_num,prod_price,prod_) values (39。amp。trim((prod_name))amp。39。,39。amp。(prod_num)amp。39。,39。amp。(prod_price)amp。39。,39。amp。(prod_)amp。39。)) 39。如果是 則向數(shù)據(jù)庫新增 elseif request(action)=editsave then 39。判斷是否請求向數(shù)據(jù)庫更新 (update ck set prod_name=39。amp。trim((prod_name))amp。39。,prod_num=39。amp。(prod_num)amp。39。,prod_price=39。amp。(prod_price)amp。39。,prod_=39。amp。(prod_)amp。39。,update_time=39。amp。now()amp。39。 where id=amp。request(id)) 39。如果是 則向數(shù)據(jù)庫更新 elseif request(action)=del then 39。判斷是否請求刪除記錄 (del