神奇的鮑魚
鮑魚非魚，而是一種貝類，屬於軟體動物，是腹足綱中的單殼類海產貝類。鮑魚生長緩慢，野生的鮑魚要經過5、6年才能長到10釐米左右。3－5頭的野生幹鮑需要10－15年才能長成。一來難蒱，二來生長週期長，決定了鮑魚生份的昂貴。還有一層原因，燕翅鮑肚參中惟有鮑魚自身帶有鮮美滋味。且去殼幹制之後，其外形酷似女陰。中醫認為鮑魚可補益腎肝，益精明目，治帶濁蹦淋，愈骨蒸勞極。可治婦女月經不調，大便秘結疾患。近代藥物學家研究，鮑魚肉中有一種“鮑素”能夠破壞癌細胞必需的代謝物質，具有抗癌作用。同時對鏈珠菌、葡萄球菌、皰疹病毒及流感病毒均有抑制作用。幹鮑魚含蛋白質40％，鮮品達24％，脂肪0.04%,並含有多種微量元素及格4種氨基酸。

<% Dim TempArray Dvbbs.BoardID=0 Dvbbs.LoadTemplates("index") Dvbbs.Stats=template.Strings(0) Dvbbs.Nav() Dvbbs.ActiveOnline() TempArray = Split(template.html(3),"||") Show_Index_Top GetBbsList() Response.Write Replace(template.html(9),"{$Getlink}",Getlink()) If Dvbbs.Forum_setting(29)="1" Then Call birthuser() Show_Index_Footer Dvbbs.Footer() Sub Show_Index_Top Dim newsstr,TempStr,TopArray newsstr=news If newsstr(1)="" Or Not IsDate(newsstr(1)) Then newsstr(1)=Now() TempStr = template.html(0) TopArray = Split(template.html(2),"||") TempStr=Replace(TempStr,"{$news}",newsstr(0)) TempStr=Replace(TempStr,"{$newstime}",newsstr(1)) TempStr=Replace(TempStr,"{$width}",Dvbbs.mainsetting(0)) TempStr=Replace(TempStr,"{$UserNum}",Dvbbs.CacheData(10,0)) TempStr=Replace(TempStr,"{$lastUser}",Dvbbs.CacheData(14,0)) TempStr=Replace(TempStr,"{$TodayNum}",Dvbbs.CacheData(9,0)) TempStr=Replace(TempStr,"{$TopicNum}",Dvbbs.CacheData(7,0)) TempStr=Replace(TempStr,"{$YesTerdayNum}",Dvbbs.CacheData(11,0)) TempStr=Replace(TempStr,"{$PostNum}",Dvbbs.CacheData(8,0)) TempStr=Replace(TempStr,"{$MaxPostNum}",Dvbbs.CacheData(12,0)) TempStr=Replace(TempStr,"{$MaxPostDate}",Dvbbs.CacheData(13,0)) If Dvbbs.UserID=0 Then TempStr=Replace(TempStr,"{$myinfo}",Replace(TopArray(0),"{$forumname}",Dvbbs.Forum_Info(0))) If Dvbbs.Forum_ChanSetting(0)="1" Then TempStr=Replace(TempStr,"{$isray}",TopArray(1)) TempStr=Replace(TempStr,"{$isray}","") Else TopArray = Split(Dvbbs.mainhtml(12),"||") If Clng(Dvbbs.SendMsgNum)>0 Then Dim UserMsg UserMsg = TopArray(0) If Dvbbs.Forum_Setting(10)="1" Then UserMsg = UserMsg & TopArray(1) & TopArray(2) Else UserMsg = UserMsg & TopArray(2) End If UserMsg = Replace(UserMsg,"{$smsid}",Dvbbs.sendmsgid) UserMsg = Replace(UserMsg,"{$sender}",Dvbbs.sendmsguser) UserMsg = Replace(UserMsg,"{$newmsgnum}",Dvbbs.sendmsgnum) template.html(1) = Replace(template.html(1),"{$umsg}",UserMsg) Else template.html(1) = Replace(template.html(1),"{$umsg}",TopArray(3)) End If If Dvbbs.Forum_ChanSetting(0)="1" Then template.html(1)=Replace(template.html(1),"{$sysmsg}",Replace(TempArray(0),"{$raypic}",Dvbbs.mainpic(14))) template.html(1)=Replace(template.html(1),"{$sysmsg}","") TempStr=Replace(TempStr,"{$myinfo}",template.html(1)) TempStr=Replace(TempStr,"{$UserID}",Dvbbs.Userid) If IsNumeric(Dvbbs.MyUserInfo(12)) And IsNumeric(Dvbbs.MyUserInfo(13)) And Dvbbs.MyUserInfo(13)<>"" And Dvbbs.MyUserInfo(12)<>"" Then If Clng(Dvbbs.MyUserInfo(13))=Clng(Dvbbs.Forum_Setting(39)) And Clng(Dvbbs.MyUserInfo(12))=Clng(Dvbbs.Forum_Setting(38)) Then TempStr=Replace(TempStr,"{$userlogo}","

") Else TempStr=Replace(TempStr,"{$userlogo}","

") End If Else TempStr=Replace(TempStr,"{$userlogo}","

") End If End If TempStr=Replace(TempStr,"{$bgcolor}",Dvbbs.mainsetting(12)) TempStr=Replace(TempStr,"{$alertcolor}",Dvbbs.mainsetting(1)) Response.Write TempStr End Sub Function news() Dvbbs.Name="news"&Dvbbs.boardid If Dvbbs.ObjIsEmpty() Then Dim tmpstr,bgs Dim Rs,SQL SQL="select top 1 title,addtime,bgs from Dv_bbsnews where boardid="&Dvbbs.boardid&" order by id desc" Set Rs=DVbbs.Execute(sql) If Rs.BOF And Rs. EOF Then tmpstr=template.Strings(8)&"|||" Else bgs=Rs(2) If bgs="" or isnull(bgs) then tmpstr=Rs(0)&"|||"&Rs(1) Else tmpstr="

"&Rs(0)&"|||"&Rs(1) End if End If Set Rs=Nothing Dvbbs.Value=tmpstr End If news=split(Dvbbs.Value,"|||") End Function Sub GetBbsList() Dim Chachedata Dvbbs.name="BbsListTop"&Dvbbs.skinid'长时间的缓存数据 If Dvbbs.ObjIsEmpty() Then Dim TempListArray,havenew,loadboard TempListArray = Split(template.html(8),"||") Chachedata= Chachedata& Replace(Replace(template.html(7),"{$follow}",Dvbbs.mainpic(11)),"{$nofollow}",Dvbbs.mainpic(10)) Chachedata= Chachedata& "" Forum_Boards = Null End Sub Function Getlink() Dvbbs.Name="link" If Dvbbs.ObjIsEmpty() Then Dim Rs,SQl SQL="select boardname,readme,url,logo,islogo from [Dv_bbslink] Order by islogo,id" Set Rs=Dvbbs.Execute(SQL) If Not rs.eof Then Dvbbs.Value=RS.GetString (,,"!@#%|","$?&!@","") Else Dvbbs.Value="" End If End If Getlink=Dvbbs.Value End Function Sub Show_Index_Footer() Dim BrowserType,TempStr Set BrowserType=New Cls_Browser TempStr = template.html(11) TempStr = Replace(TempStr,"{$userip}",Dvbbs.UserTrueIP) TempStr = Replace(TempStr,"{$system}",BrowserType.platform) TempStr = Replace(TempStr,"{$brw}",BrowserType.Browser & BrowserType.version) TempStr = Replace(TempStr,"{$showstr}",template.Strings(6)) TempStr = Replace(TempStr,"{$onlinenum}",MyBoardOnline.Forum_Online) TempStr = Replace(TempStr,"{$ousernum}",MyBoardOnline.Forum_UserOnline) TempStr = Replace(TempStr,"{$gusernum}",MyBoardOnline.Forum_GuestOnline) TempStr = Replace(TempStr,"{$maxuser}",Dvbbs.Maxonline) TempStr = Replace(TempStr,"{$maxusertime}",Dvbbs.CacheData(6,0)) TempStr = Replace(TempStr,"{$piclist}",GetGroupTitle()) Set BrowserType=Nothing TempStr = Replace(TempStr,"{$BuildDate}",FormatDateTime(Dvbbs.Forum_Setting(74),1)) TempStr = Replace(TempStr,"{$nonewpic}",template.pic(0)) TempStr = Replace(TempStr,"{$isnewpic}",template.pic(1)) TempStr = Replace(TempStr,"{$islockpic}",template.pic(2)) Response.Write TempStr If Dvbbs.forum_setting(14)="1" Or Dvbbs.forum_setting(15)="1" Then Response.Write "" Else Response.Write "" End If TempStr = "" End Sub Function GetGroupTitle() Dvbbs.Name="GroupTitle" If Dvbbs.ObjIsEmpty() Then Dim Rs,SQl SQL="select TitlePic,title from [Dv_UserGroups] where IsDisp=1 Order by Orders " Set Rs=Dvbbs.Execute(SQL) SQL=" "," ‖ "&Dvbbs.lanStr(6) End If Dvbbs.Value = SQL Set rs=Nothing End If GetGroupTitle=Replace(Dvbbs.Value,"{$path}",Dvbbs.mainpic(17)) End Function Sub birthuser() Dim Strings Strings=Dvbbs.CacheData(16,0) Strings=split(Strings,"$$") If Not IsDate(Strings(0)) Then Strings(0)=Now()-1 If CDate(Strings(0)) <> Date() Then Dim Rs,SQL,NowMonth,NowDate,TMPDATA,birthNum,tmpstr,i NowMonth=Month(Date()) NowDate=Day(Date()) birthNum=0 SQL="select username,Userbirthday from [Dv_user] where Userbirthday <> '' and Userbirthday like '%"&NowDate&"' Order by UserID" Set Rs=Dvbbs.Execute(SQL) i=0 If Not Rs.EOF Then Do while Not Rs.EOF If IsDate(Rs(1)) And Month(Rs(1))=NowMonth And Day(Rs(1)) Then i=i+1 tmpstr=template.Strings(10) birthNum=birthNum+1 tmpstr=Replace(tmpstr,"{$username}",rs(0)) tmpstr=Replace(tmpstr,"{$age}",datediff("yyyy",rs(1),Now())) If i=1 Then TMPDATA=TMPDATA&"" End If TMPDATA=TMPDATA&""&tmpstr&"" If i=5 Then TMPDATA=TMPDATA&"" i=0 End If End If Rs.MoveNext Loop End If If birthNum mod 5 <> 0 Then TMPDATA=TMPDATA&"" TMPDATA=""&TMPDATA&"

" Set Rs=Nothing template.html(12)=Replace(template.html(12),"{$birthNum}",birthNum) If TMPDATA="" Then TMPDATA=template.Strings(9) End If template.html(12)=Replace(template.html(12),"{$birthday}",TMPDATA) TMPDATA=Date()&"$$"&template.html(12) Dvbbs.Execute("Update Dv_setup Set Forum_BirthUser='"&TMPDATA&"'") Dvbbs.ReloadSetupCache TMPDATA,16 End If Strings=Split(Dvbbs.CacheData(16,0),"$$") Strings(1)=Replace(Strings(1),"{$bpic}",template.pic(3)) Response.Write Strings(1) End Sub %>