本 期 焦 點
  • 耶誕節快樂
  • 預購點數優惠期限將於十二月底截止
  • UBB函數
  • 愛若琴弦聊天室
    下 載 排 行 榜
  • 檔案上下傳
  • 風雅頌留言板2.0繁體版
  • 宏楊國際ATNETBbs Version 5.3
  • NICE工程館4.0版
  • Sen即時聊天v1.0(Remote Scripting版)
    新 進 程 式
  • 蔚藍海岸留言版v1.1
  • 線上查詢自動產生FOR EXCEL資料庫
  • 泰州CS戰網論壇
  • 傷心娃娃的初學留言版
  • 亞太音樂程序虎仔繁體化
    線 上 教 學 區
  • ASP的特性與工作環境簡介
  • Web伺服器(PWS/IIS)的安裝與設定
  • 範例教學
  • Html與CSS教學
  • ASP使用說明
    優 值 廣 告


    ■ 訂 閱 電 子 報
  • 如何取消訂閱電子報
  • 如果您不願意再收到小舖電子報,請至小舖先登入會員後,再選擇會員專區中的修改個人資料,將(是否願意接受本站電子報?)這一項修改為(不願意)即可,本報如造成您的困擾,小舖在此對您致上十二萬分的歉意。
    ------頭版新聞------
    藍色小舖電子報( 第006期12月號 2002-12-24) 36000份
    ◎耶誕節快樂

    親愛的 XXX會員您好:
           在這個2002年終,藍色小舖獻上最深的祝福,祝大家聖誕節快樂。 不論此時的您正在電腦面前寫程式、準備年度報告、寫E-Mail或是漫遊網際網路間……,別忘了暫且放下手邊的事情撥個電話或是傳個訊息給久未連繫的老朋友問個好,聯繫一下感情哦~~~~

    ◎預購點數優惠期將於十二月底截止

           每天不到二元, 享受兩年的加值服務~~~~

    小舖將於2003/1/1陸續推出全新的加值服務,內容包括

           1. 可瀏覽及下載特約微軟講師的技術文章
           2. 軟體精華區
           3. 討論區、軟體下載區……進階搜尋功能
           4. 研討會及課程之優惠特價
           5. …………(將陸續推出新加值服務項目新功能)

    只要於12月31日前購買成功者將可多增值20%的點數,可彈性選擇適合的時機扣點成為加值會員,滿一千二百點, 每天不到二元,即可享兩年的加值服務,心動不如馬上行動!!

    [ 點數說明介紹 ] [ 優惠預購點數介紹 ] [ 贊助取得點數 ]

    ------精選討論區精華------
     
    ◎UBB函數 (2002/12/17)

    目前UBB函數越來越盛行,而到底UBB是什麼東西呢 ? 簡單的說就是可以方便讓一般使用者也可以輸入減一行的語法,讓討論區或是留言版的內容更佳的生動與活潑,而今摘錄網友 Zero 所撰寫的程式碼函數如下:


    '轉換UBB語法成HTML
    Function ubbchange(strInput)
    If Len(strInput) > 0 Then

    '[img]完整位置[/img]
    lcht="[img]" : rcht="[/img]"
    strInput=Replace(strInput,UCase(lcht),lcht)
    strInput=Replace(strInput,UCase(rcht),rcht)
    Do While instr(strInput,lcht) <> 0 AND instr(strInput,rcht) <> 0
            strInput=replace(strInput,lcht,"br>         strInput=replace(strInput,rcht,">")
    loop

    '[img:完整位置]

    lcht="[img:" : rcht="]"
    strInput=Replace(strInput,UCase(lcht),lcht)
    strInput=Replace(strInput,UCase(rcht),rcht)
    Do While instr(strInput,lcht) <> 0 AND instr(strInput,rcht) <> 0
            k1=instr(strInput,lcht)+ Len(lcht)
            k2=instr(k1,strInput,rcht)-k1
            k3=mid(strInput,k1,k2)
            k4=""
            k3=lcht & k3 & rcht
            strInput=replace(strInput,k3,k4)
    loop

    '[http://xxx.xxx.xxx]

    lcht="[http://" : rcht="]"
    strInput=Replace(strInput,UCase(lcht),lcht)
    strInput=Replace(strInput,UCase(rcht),rcht)
    Do While instr(strInput,lcht) <> 0 AND instr(strInput,rcht) <> 0
            k1=instr(strInput,lcht)+ Len(lcht)
            k2=instr(k1,strInput,rcht)-k1
            k3=mid(strInput,k1,k2)
            k4="http://" & k3 & ""
            k3=lcht & k3 & rcht
            strInput=replace(strInput,k3,k4)
    loop

    '[ftp://xxx.xxx.xxx]

    lcht="[ftp://" : rcht="]"
    strInput=Replace(strInput,UCase(lcht),lcht)
    strInput=Replace(strInput,UCase(rcht),rcht)
    Do While instr(strInput,lcht) <> 0 AND instr(strInput,rcht) <> 0
            k1=instr(strInput,lcht)+ Len(lcht)
            k2=instr(k1,strInput,rcht)-k1
            k3=mid(strInput,k1,k2)
            k4="ftp://" & k3 & ""
            k3=lcht & k3 & rcht
            strInput=replace(strInput,k3,k4)
    loop

    '[url]完整位置[/url]

    lcht="[url]" : rcht="[/url]"
    strInput=Replace(strInput,UCase(lcht),lcht)
    strInput=Replace(strInput,UCase(rcht),rcht)
    Do While instr(strInput,lcht) <> 0 AND instr(strInput,rcht) <> 0
            k1=instr(strInput,lcht)+ Len(lcht)
            k2=instr(k1,strInput,rcht)-k1
            k3=mid(strInput,k1,k2)
            k4="" & k3 & ""
            k3=lcht & k3 & rcht
            strInput=replace(strInput,k3,k4)
    loop

    '[url=完整位置]描述[/url]

    lcht="[url=" : rcht="[/url]"
    strInput=Replace(strInput,UCase(lcht),lcht)
    strInput=Replace(strInput,UCase(rcht),rcht)
    Do While instr(strInput,lcht) <> 0 AND instr(strInput,rcht) <> 0
            k1=instr(strInput,lcht)+ Len(lcht)
            k2=instr(k1,strInput,"]")
            k3=mid(strInput,k1,k2-k1)
            k0=instr(k2,strInput,rcht)
            k4=mid(strInput,k2+1,k0-k2-1)
            k0=mid(strInput,k1,k0-k1)
            k0=lcht & k0 & rcht
            k3="" & k4 & ""
            strInput=replace(strInput,k0,k3)
    loop

    '[mail]完整位置[/mail]

    lcht="[mail]" : rcht="[/mail]"
    strInput=Replace(strInput,UCase(lcht),lcht)
    strInput=Replace(strInput,UCase(rcht),rcht)
    Do While instr(strInput,lcht) <> 0 AND instr(strInput,rcht) <> 0
            k1=instr(strInput,lcht)+ Len(lcht)
            k2=instr(k1,strInput,rcht)-k1
            k3=mid(strInput,k1,k2)
            k4="" & k3 & ""
            k3=lcht & k3 & rcht
            strInput=replace(strInput,k3,k4)
    loop

    '[mail:完整位置]

    lcht="[mail:" : rcht="]"
    strInput=Replace(strInput,UCase(lcht),lcht)
    strInput=Replace(strInput,UCase(rcht),rcht)
    Do While instr(strInput,lcht) <> 0 AND instr(strInput,rcht) <> 0
            k1=instr(strInput,lcht)+ Len(lcht)
            k2=instr(k1,strInput,rcht)-k1
            k3=mid(strInput,k1,k2)
            k4="" & k3 & ""
            k3=lcht & k3 & rcht
            strInput=replace(strInput,k3,k4)
    loop

    End If
    ubbchange=strInput
    end Function

    --------------------------------------------------------------------------------

    提供者: Zero ( zero@compus.com.tw )

    [校稿:藍色小舖 ]

    ------新進程式介紹------
     
    ◎愛若琴弦聊天室

    感謝會員人間劣者提供愛若琴弦聊天室

    1.功能非常全面 , 可比紅蜻蜓和傳說水吧

    2.可開多房間

    3.所有數據連接即時關閉功能

    4.後台管理超級強大 , 可設定共分幾個等級以及每個等級所擁有的權限 , 而權限設定高度自由化

    5.大量的javascript使用 , 把所有的錯誤操作都攔截在瀏覽器上 . 另外 , 名單區的右鍵快捷能直接對某個用戶操作 . 選單選項是動態變化的 , 如果對某人的某一個功能不能使用 , 該選單項會顯示反白 , 就像windows裡一模一樣

    6.名單區動態更新

    藍色小舖電子報內容 由 藍色小舖 提供
    [藍色小舖發行]--版權所有, 歡迎完整轉寄
     
    |
    |
    |
    |
    |


    若需任何服務
    請洽客服信箱:
    webmaster@blueshop.com.tw