【正文】 ShowType 顯示方式。 SiteNum 最多顯示多少個站點39。作 用：顯示友情鏈接站點39。==================================================39。rsAnnounce(title) amp。FF000039。 39。 amp。height=450, width=400, toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=no, status=no39。newwindow39。39。?ID= amp。39。nbsp。nbsp。nbsp。 AnnounceNum else sqlAnnounce=select top 10 end if sqlAnnounce=sqlAnnounce amp。 AnnounceNum 最多顯示多少條公告39。過程名：ShowAnnounce39。 vbcrlf end sub39。 vbcrlf end if end if k=k+1 loop set rsClass=nothing stm_ep()。])。,39。,39。,39。,39。,3,3,0,0,39。,39。,0,39。,1,39。,0,0,0,0,1,39。,39。,0,0,0,39。,39。,39。 rsClass(6) amp。,39。 rsClass(4) amp。,39。,39。 rsClass(4) amp。,1,1,0,39。,39。,39。 rsClass(1) amp。,[0,39。pNum2amp。,39。kamp。pNumamp。 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。])。,39。,39。,39。,39。,3,3,0,0,39。,39。,0,39。,0,39。,7,7,0,0,1,39。,39。,6,0,0,39。,39。,39。 rsClass(6) amp。,39。 rsClass(4) amp。,39。,39。 rsClass(4) amp。,1,1,0,39。,39。,39。 rsClass(1) amp。,[0,39。pNum2amp。,39。kamp。pNumamp。 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。 where ParentID= amp。 amp。 39。p amp。 39。p amp。 amp。 39。p amp。 39。p amp。 amp。aca89939。39。EBEBEB39。99999939。39。progid:(overlap=.5,enabled=0,Duration=)39。 39。p amp。 vbcrlf end subsub GetClassMenu(ID,ShowType,Language) dim sqlClass,rsClass,k 39。 vbcrlf amp。 amp。 amp。39。39。FFFFFF39。FFFFFF39。00000039。fffff739。39。39。cccccc39。f1f2ee39。39。39。39。39。39。39。_self39。39。39。39。39。,[0,39。,39。 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。])。,39。,39。,39。,39。,39。,3,3,0,0,39。,39。,1,39。,1,39。,0,0,0,0,1,39。,39。,0,0,0,39。,39。,39。 rsRoot(6) amp。,39。 rsRoot(4) amp。,39。,39。 rsRoot(4) amp。,1,1,0,39。,39。,39。 rsRoot(1) amp。,[1,39。,39。jamp。 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。 amp。39。39。FFFFFF39。FFFFFF39。00000039。fffff739。39。39。cccccc39。f1f2ee39。39。39。39。39。39。39。_self39。39。39。39。39。,[0,39。,39。 vbcrlf end if stm_aix(39。])。,39。,39。,39。,39。,39。,3,3,0,0,39。,39。,1,39。,1,39。,0,0,0,0,1,39。,39。,0,0,0,39。,39。,39。,39。,39。,39。,1,1,0,39。,39。,39。,[1,39。,39。 vbcrlf else stm_aix(39。])。,39。,39。,39。,39。,39。,3,3,0,0,39。,39。,1,39。,1,39。,0,0,0,0,1,39。,39。,0,0,0,39。,39。,39。,39。,39。,39。,1,1,0,39。,39。,39。,[1,39。,39。 vbcrlf if Language=1 then stm_aix(39。,0,0])。,39。,39。,39。,39。,39。,3,3,0,0,39。,39。,1,39。,1,39。,0,0,0,0,1,39。,39。,0,0,0,39。,39。,39。,39。,39。,39。,1,1,0,39。,39。,39。,[0,39。 vbcrlf stm_ai(39。])。,3,0,0,39。,39。,39。,2,90,0,0,39。,2,39。,[0,4,0,0,2,2,0,0,100,39。 vbcrlf stm_bp(39。,0,0,0,0,0,1,0,0])。,39。,0,39。,39。,400,39。 vbcrlf stm_bm([39。 vbcrlf amp。39。text/javascript39。參 數(shù)：Language 語言 1中文 2英文 39。過程名：ShowRootClass_Menu39。/scriptend subdim pNum,pNum2pNum=1pNum2=039。 src=39。 language=39。==================================================sub MenuJS() script type=39。作 用：生成下拉菜單相關(guān)的JS代碼39。==================================================39。 /body/html amp。 /table amp?！痉祷亍?a/td/tr amp。a href=39。td class=39。 tr align=39。/td/tr amp。br amp。 valign=39。 class=39。 trtd height=39。strong恭喜你！/strong/td/tr amp。 class=39。td height=39。 tr align=39。 align=center amp。 table cellpadding=2 cellspacing=2 border=0 width=400 class=39。/headbody amp。 type=39。 rel=39。 link href=39。 amp。text/html。ContentType39。****************************************************sub WriteSuccessMsg(SuccessMsg) dim strSuccess strSuccess=strSuccess amp。作 用：顯示成功提示信息39。****************************************************39。 /body/html amp。 /table amp?！痉祷亍?a/td/tr amp。a href=39。td class=39。 tr align=39。/td/tr amp。b產(chǎn)生錯誤的可能原因：/bbr amp。 valign=39。 class=39。 trtd height=39。strong錯誤信息/strong/td/tr amp。 class=39。td height=39。 tr align=39。 align=center amp。 table cellpadding=2 cellspacing=2 border=0 width=400 class=39。/headbody amp。 type=39。 rel=39。 link href=39。 amp。text/html。ContentType39。****************************************************sub WriteErrMsg() dim strErr strErr=strErr amp。作 用：顯示錯誤提示信息39。****************************************************39。 Sender 發(fā)信人地址39。 Subject 主題39。參 數(shù)：ServerAddress 服務(wù)器地址39。函數(shù)名：SendMail39。**************************************************function strLength(str) ON ERROR RESUME NEXT dim WINNT_CHINESE WINNT_CHINESE = (len(中國)=2) if WINNT_CHINESE then dim l,t,c dim i l=len(str) t=l for i=1 to l c=asc(mid(str,i,1)) if c0 then c=c+65536 if c255 then t=t+1 end if next strLength=t else strLength=len(str) end if if 0 then end function39。參 數(shù)：str 要求長度的字符串39。漢字算兩個字符，英文算一個字符。函數(shù)名：strLength39。***************************************************Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = (strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0End Function39。返回值：True 已經(jīng)安裝39。作 用：檢查組件是否已經(jīng)安裝39。***************************************************39。 False Email地址不合法39。參 數(shù)： 要檢查的Email地址39。函數(shù)名：IsValidEmail39。 /td/tr/form/table strTempend sub39。 page/option next strTemp=strTemp amp。 No. amp。 if cint(CurrentPage)=cint(i) then strTemp=strTemp amp。 i amp。 option value=39。javascript:submit()39。139。page39。nbsp。 /page if ShowAllPages=True then strTemp=strTemp amp。 /b amp。b amp。 amp。 n amp。 CurrentPage amp。nbsp。Last/a end if strTemp=strTemp amp。 n amp。 strUrl amp。 a href=39。nbsp。 39。 page= amp。 amp。 Next Last else strTemp=strTemp amp。nbsp。 39。 pa