【導讀】本文主要闡述了隨著加入WTO，Internet也在以迅猛的勢頭在國內(nèi)爆發(fā)式地增長，網(wǎng)絡憑借其卓越的互動性與便捷的交流手段正成為最有發(fā)展?jié)摿εc前途的新興媒體，成為眾商家倍為關(guān)注的宣傳熱點。尤其是小型企業(yè)更應該充分利用互聯(lián)網(wǎng)技術(shù)，為客戶、合作伙伴在網(wǎng)上提供信息服務，并且借助互聯(lián)網(wǎng)，敏銳的捕捉商機。作為專業(yè)從事涉密及安防產(chǎn)品銷售的重慶賽智網(wǎng)絡信息技術(shù)服務中心，更需要建設好網(wǎng)站，將其作為對外宣傳、服務和交流的載體，來配合公司的迅速發(fā)展，使網(wǎng)站具有鮮明的行業(yè)特色，使更多的企業(yè)通過網(wǎng)絡來結(jié)盟，使更多的客戶通過網(wǎng)絡來了解賽智網(wǎng)絡。ASP+ACCESS是一種比較成熟的技術(shù),因此本項目采用Asp語言作為根本,選用經(jīng)典的B/S開發(fā)架構(gòu),在數(shù)據(jù)庫方面則使用了Access。關(guān)鍵詞：互聯(lián)網(wǎng)；企業(yè)網(wǎng)站；數(shù)據(jù)庫；WEB；B/S架構(gòu)；ASP；HTML；CSS；Access2003。在現(xiàn)階段，傳統(tǒng)的售后服務手段已經(jīng)遠遠不能滿足客戶的需要，為消費者提供便捷、有效、即時的24小時

　　

【正文】 ============sub ShowRootClass_Menu(Language) script type=39。text/javascript39。 language=39。39。 amp。 vbcrlf amp。 ! amp。 vbcrlf stm_bm([39。uueoehr39。,400,39。39。,39。images/39。,0,39。39。,39。39。,0,0,0,0,0,1,0,0])。 amp。 vbcrlf stm_bp(39。p039。,[0,4,0,0,2,2,0,0,100,39。39。,2,39。39。,2,90,0,0,39。00000039。,39。transparent39。,39。39。,3,0,0,39。00000039。])。 amp。 vbcrlf stm_ai(39。p0i039。,[0,39。39。,39。39。,39。39。,1,1,0,39。39。,39。_self39。,39。39。,39。39。,39。39。,39。39。,0,0,0,39。39。,39。39。,0,0,0,0,1,39。f1f2ee39。,1,39。cccccc39。,1,39。39。,39。39。,3,3,0,0,39。fffff739。,39。00000039。,39。00000039。,39。FFFFFF39。,39。39。,39。39。,0,0])。 amp。 vbcrlf if Language=1 then stm_aix(39。p0i139。,39。p0i039。,[1,39。網(wǎng)站首頁39。,39。39。,39。39。,1,1,0,39。 39。,39。_self39。,39。39。,39。39。,39。39。,39。39。,0,0,0,39。39。,39。39。,0,0,0,0,1,39。f1f2ee39。,1,39。cccccc39。,1,39。39。,39。39。,3,3,0,0,39。fffff739。,39。ff000039。,39。FFFFFF39。,39。FFFFFF39。,39。39。,39。39。])。 amp。 vbcrlf else stm_aix(39。p0i139。,39。p0i039。,[1,39。Home39。,39。39。,39。39。,1,1,0,39。 39。,39。_self39。,39。39。,39。39。,39。39。,39。39。,0,0,0,39。39。,39。39。,0,0,0,0,1,39。f1f2ee39。,1,39。cccccc39。,1,39。39。,39。39。,3,3,0,0,39。fffff739。,39。ff000039。,39。FFFFFF39。,39。FFFFFF39。,39。39。,39。39。])。 amp。 vbcrlf end if stm_aix(39。p0i239。,39。p0i039。,[0,39。39。,39。39。,39。39。,1,1,0,39。39。,39。_self39。,39。39。,39。39。,39。39。,39。39。,0,0,0,39。39。,39。39。,0,0,0,0,1,39。f1f2ee39。,1,39。cccccc39。,1,39。39。,39。39。,3,3,0,0,39。fffff739。,39。00000039。,39。FFFFFF39。,39。FFFFFF39。,39。39。,39。39。,0,0])。 amp。 vbcrlf dim sqlRoot,rsRoot,j if Language=1 then sqlRoot=select ClassID,ClassName,Depth,NextID,LinkUrl,Child,Readme From MenuClass else sqlRoot=select ClassID,ClassName,Depth,NextID,LinkUrl,Child,Readme From EnMenuClass end if sqlRoot= sqlRoot amp。 where Depth=0 and ShowOnTop=True order by RootID Set rsRoot= () sqlRoot,conn,1,1 if not( and ) then j=3 do while not if rsRoot(4) then stm_aix(39。p0iamp。jamp。39。,39。p0i039。,[1,39。 amp。 rsRoot(1) amp。 39。,39。39。,39。39。,1,1,0,39。 amp。 rsRoot(4) amp。 39。,39。_self39。,39。 amp。 rsRoot(4) amp。 39。,39。 amp。 rsRoot(6) amp。 39。,39。39。,39。39。,0,0,0,39。39。,39。39。,0,0,0,0,1,39。f1f2ee39。,1,39。cccccc39。,1,39。39。,39。39。,3,3,0,0,39。fffff739。,39。ff000039。,39。FFFFFF39。,39。cc000039。,39。39。,39。39。])。 amp。 vbcrlf end if if rsRoot(5)0 then if Language=1 then call GetClassMenu(rsRoot(0),0,1) else call GetClassMenu(rsRoot(0),0,2) end if end if j=j+1 stm_aix(39。p0i239。,39。p0i039。,[0,39。39。,39。39。,39。39。,1,1,0,39。39。,39。_self39。,39。39。,39。39。,39。39。,39。39。,0,0,0,39。39。,39。39。,0,0,0,0,1,39。f1f2ee39。,1,39。cccccc39。,1,39。39。,39。39。,3,3,0,0,39。fffff739。,39。00000039。,39。FFFFFF39。,39。FFFFFF39。,39。39。,39。39。,0,0])。 amp。 vbcrlf j=j+1 loop end if set rsRoot=nothing stm_em()。 amp。 vbcrlf // amp。 vbcrlf amp。 /script amp。 vbcrlf end subsub GetClassMenu(ID,ShowType,Language) dim sqlClass,rsClass,k 39。1,4,0,4,2,3,6,7,100前4個數(shù)字控制菜單位置和大小 if pNum=1 then stm_bp(39。p amp。 pNum amp。 39。,[0,4,0,4,2,3,6,7,100,39。progid:(overlap=.5,enabled=0,Duration=)39。,2,39。39。,2,67,2,3,39。99999939。,39。EBEBEB39。,39。39。,3,1,1,39。aca89939。])。 amp。 vbcrlf else if ShowType=0 then stm_bpx(39。p amp。 pNum amp。 39。,39。p amp。 pNum2 amp。 39。,[1,4,0,0,2,3,6])。 amp。 vbcrlf else stm_bpx(39。p amp。 pNum amp。 39。,39。p amp。 pNum2 amp。 39。,[1,2,2,3,2,3,0])。 amp。 vbcrlf end if end if k=0 if Language=1 then sqlClass=select ClassID,ClassName,Depth,NextID,LinkUrl,Child,Readme From MenuClass else sqlClass=select ClassID,ClassName,Depth,NextID,LinkUrl,Child,Readme From EnMenuClass end if sqlClass= sqlClass amp。 where ParentID= amp。 ID amp。 order by OrderID asc Set rsClass= () sqlClass,conn,1,1 do while not if rsClass(4) then if rsClass(5)0 then stm_aix(39。pamp。pNumamp。iamp。kamp。39。,39。pamp。pNum2amp。i039。,[0,39。span class=menu_txt amp。 rsClass(1) amp。 /span39。,39。39。,39。39。,1,1,0,39。 amp。 rsClass(4) amp。 39。,39。_self39。,39。 amp。 rsClass(4) amp。 39。,39。 amp。 rsClass(6) amp。 39。,39。39。,39。39。,6,0,0,39。images/39。,39。images/39。,7,7,0,0,1,39。FFFFFF39。,0,39。cccccc39。,0,39。39。,39。39。,3,3,0,0,39。fffff739。,39。f5208739。,39。f5208739。,39。cc000039。,39。39。])。 amp。 vbcrlf pNum=pNum+1 pNum2=pNum2+1 if Language=1 then call GetClassMenu(rsClass(0),1,1) else call GetClassMenu(rsClass(0),1,2) end if else stm_aix(39。pamp。pNumamp。iamp。kamp。39。,39。pamp。pNum2amp。i039。,[0,39。 amp。 rsClass(1) amp。 39。,39。39。,39。39。,1,1,0,39。 amp。 rsClass(4) amp。 39。,39。_self39。,39。 amp。 rsClass(4) amp。 39。,39。 amp。 rsClass(6) amp。 39。,39。39。,39。39。,0,0,0,39。39。,39。39。,0,0,0,0,1,39。f1f2ee39。,1,39。FFFFFF39。,0,39。39。,39。39。,3,3,0,0,39。fffff739。,39。ff000039。,39。3e3e3e39。,39。62000039。,39。39。])。 amp。 vbcrlf end if end if k=k+1 loop set rsClass=nothing stm_ep()。 amp。 vbcrlf end sub39。==================================================39。過程名：ShowAnnounce39。作 用：顯示本站公告信息39。 AnnounceNum 最多顯示多少條公告39。==================================================sub ShowAnnounce(AnnounceNum) dim sqlAnnounce,rsAnnounce,i if AnnounceNum0 and AnnounceNum=10 then sqlAnnounce=select top amp。 AnnounceNum else sqlAnnounce=select top 10 end if sqlAnnounce=sqlAnnounce amp。 * from affiche order by ID Desc Set rsAnnounce= () sqlAnnounce,conn,1,1 if and then AnnounceCount=0 pamp。nbsp。amp。nbsp。沒有公告/p else AnnounceCount= 本站公告： do while not amp。nbsp。a href=39。39。 onclick=javascript:(39。?ID= amp。 rsAnnounce(id) amp。39。, 39。newwindow39。, 39。height=450, width=400, toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=no, status=no39。) title=39。 amp。 rsAnnounce(Content) amp。 39。font color=39。FF000039。 amp。rsAnnounce(title) amp。 /font/a i=i+1 loop end if set rsAnnounce=nothingend sub39。==================================================39。過程名：ShowFriendLinks39。作 用：顯示友情鏈接站點39。參 數(shù)：LinkType 鏈接方式，1為LOGO鏈接，2為文字鏈接39。 SiteNum 最多顯示多少個站點39。 Cols 分幾列顯示39。 ShowType 顯示方式。1為向上滾動，2為橫向列表