本 期 焦 點
  • 貼心的"個人討論群"上線囉!
  • 2003網上國際書展
  • 月曆表格式的日期輸入法
  • 藍色記憶塗鴉板V1.0多用戶/單用戶版
    下 載 排 行 榜
  • fong學生作業管理系統
  • 諾亞校園網站整合系統 3.3
  • 友緣&無言會員管理
  • [ 喂~ ]留言版
  • Tsubasa作業上傳系統v1.0版
    新 進 程 式
  • 藍色記憶塗鴉板V1.0多用戶/單用戶版
  • 愛迪留言版V1.0
  • 英雄之戰-冒險彩票挖寶外掛
  • 阿德行政公佈系統V2.4
  • 動網sp1插件(酒吧)繁體中文化
    討 論 區 精 華
  • sql 2000 設定資料庫同步的步驟
  • [NET]判斷輸入的日期是星期幾
  • 目錄中取得圖片檔並秀出
  • 利用ASP修改機碼
  • 多個資料表與跨database 的查詢
    優 值 廣 告



    ■ 訂 閱 電 子 報
  • 如何取消訂閱電子報
  • 如果您不願意再收到小舖電子報,請至小舖先登入會員後,再選擇會員專區中的修改個人資料,將(是否願意接受本站電子報?)這一項修改為(不願意)即可,本報如造成您的困擾,小舖在此對您致上十二萬分的歉意。
     
    ------頭版新聞------
    藍色小舖電子報( 第009期雙週刊號 2003-2-26) 38000份
    ◎貼心的"個人討論群"上線囉!

    親愛的 XXX會員您好:

    討論區有成千上萬的主題與回應..
    該如何快速找到自己發表的主題與曾經參與回應的話題呢?
    貼心的"個人討論群"為您解決這樣的煩惱!!!

    只要您於登入狀態參與討論,系統皆會自動將您的討論紀錄彙整在您的個人討論群中,讓您快速找到自己曾參與的討論主題與內容...
    除此之外,還有您曾提出的主題數與參與回應數的統計數值喔!!!

    只要成為加值會員,就能使用這樣貼心的服務囉!!!

    加值會員試用期開放至2003/2/28...心動不如馬上行動,[ 我要轉為加值會員 ]

    ◎2003網上國際書展

          小舖為共襄盛舉「第十一屆台北國際書展」,特別參與協辦第四屆的【2003網上國際書展】(展期:2/10~2/28)

    活動期間【全館單書75折】
    只要購書$1元以上,就可參加【書香拉霸】 ,萬種好禮大放送活動,即拉即送且通通有獎;
    另有【驚爆48小時】 【集體議價】 等史上超低特價暢銷好書...
    全省7-11均可取貨;並可享有「完全免運費」 的書香快遞服務!
    讓您輕鬆e指,知識近在咫尺!
    讓一年的讀書計畫從此開始吧!

     
    ------精選討論區精華------
     
    ◎月曆表格式的日期輸入法 (2003/2/20)

    Step 1.
    在</Head>前加入
    <!--
    TD{
    font-family: 新細明體;
    font-size: 9pt;
    line-height: 18px;
    }
    td.TopLighNav2
    {
    background-color:#FFFFFF
    }
    -->
    </style>

    Step 2.
    加入一個Form
    <Form Name="UseRate" Method="Post" Action="" >
    日期:從<input type="text" name="SDate" size="10"> <img align='top' onmousedown="Cal('SDate')" src='images/cal.gif' width="16" height="16" align='top' style='cursor:hand'>
    到<input type="text" name="EDate" size="10"> <img align='top' onmousedown="Cal('EDate')" src='images/cal.gif' width="16" height="16" align='top' style='cursor:hand'>
    </Form>

    (以上Form為範例,Form及欄位的名稱可自訂,重點在 <img> 內onmousedown="Cal('SDate')" SDate需換成目標欄位的名稱.

    Step 3.
    在</Body>前加入
    <!--
    ※程式說明:
    ※作者:LMC
    ※  寫了很多程式都需要使用輸入日期的部分,用下拉式選單麻煩,由使用者自行輸入,又不夠人性化!在『網站建置百寶箱』看到 陽志明前輩寫的【月曆表輸出】及Active Server Corner的ASP Calendar後,結合兩者之優點,以VBScript產生了這個程式,希望對後續的作者能有所助益!
    -->


    <!--月曆產生的位置-->
    <Span ID=ShowCal style="position:absolute;z-index:1"></Span>

    <Script Language=VBScript>

    Sub Cal(TObject)

    '產生月曆,以今天的日期為基準
    Call GetCal(Year(Now()),Month(Now()),TObject)

    '調整<Span>的位置
    ShowCal.style.left=window.event.clientX
    ShowCal.style.top=window.event.clientY
    End Sub

    Sub GetCal(SYear,SMonth,TObject)

    '月曆抬頭部分
    Str=Str &"<table ALIGN='CENTER' BORDER='1' CELLSPACING='0' CELLPADDING='2' BGCOLOR='White' BORDERCOLOR='Gray'>"
    Str=Str &"<tr><td>"
    Str=Str &" <table WIDTH='140' BORDER='0' CELLPADDING='1' CELLSPACING='0' BGCOLOR='#FFFFFF'>"
    Str=Str &" <tr HEIGHT='18' BGCOLOR='Silver'>"
    Str=Str &" <td WIDTH='20' HEIGHT='18' ALIGN='LEFT' VALIGN='MIDDLE'><img SRC='images/prev.gif' WIDTH='10' HEIGHT='18' BORDER='0' ALT='上一月' style='cursor:hand' OnClick='PreMon(""" & TObject & """)'></td>"
    Str=Str &" <td WIDTH='120' COLSPAN='5' ALIGN='CENTER' VALIGN='MIDDLE' CLASS='SOME'><Span ID=SelYear>" & SYear & "</span>年<Span ID=SelMon>" & SMonth & "</Span>月</td>"
    Str=Str &" <td WIDTH='20' HEIGHT='18' ALIGN='RIGHT' VALIGN='MIDDLE'><img SRC='images/Next.gif' WIDTH='10' HEIGHT='18' BORDER='0' ALT='下一月' style='cursor:hand' OnClick='NextMon(""" & TObject & """)'></td>"
    Str=Str &" </tr>"
    Str=Str &" <tr>"
    Str=Str &" <td Colspan=7>"
    Str=Str &" <Table Border=0>"
    Str=Str &" <tr>"
    Str=Str &" <td ALIGN='RIGHT' CLASS='SOME' WIDTH='20' HEIGHT='15' VALIGN='BOTTOM'>日</td>"
    Str=Str &" <td ALIGN='RIGHT' CLASS='SOME' WIDTH='20' HEIGHT='15' VALIGN='BOTTOM'>一</td>"
    Str=Str &" <td ALIGN='RIGHT' CLASS='SOME' WIDTH='20' HEIGHT='15' VALIGN='BOTTOM'>二</td>"
    Str=Str &" <td ALIGN='RIGHT' CLASS='SOME' WIDTH='20' HEIGHT='15' VALIGN='BOTTOM'>三</td>"
    Str=Str &" <td ALIGN='RIGHT' CLASS='SOME' WIDTH='20' HEIGHT='15' VALIGN='BOTTOM'>四</td>"
    Str=Str &" <td ALIGN='RIGHT' CLASS='SOME' WIDTH='20' HEIGHT='15' VALIGN='BOTTOM'>五</td>"
    Str=Str &" <td ALIGN='RIGHT' CLASS='SOME' WIDTH='20' HEIGHT='15' VALIGN='BOTTOM'>六</td>"
    Str=Str &" </tr>"
    Str=Str &" </Table>"
    Str=Str &" </tr>"
    Str=Str &" <tr>"
    Str=Str &" <td HEIGHT='1' ALIGN='MIDDLE' COLSPAN='7'><img SRC='images/line.gif' HEIGHT='1' WIDTH='140' BORDER='0'></td>"
    Str=Str &" </tr>"
    Str=Str &" <tr>"

    '該月第一天之星期
    SDate=DateValue(SYear & "/" & SMonth & "/1")
    SWeek=WeekDay(SDate)

    '該月最後一天的日期
    EDay=Day(DateSerial(SYear,SMonth+1,0))
    EDate=DateValue(SYear & "/" & SMonth & "/" & EDay)

    '該月最後一天之星期
    EWeek=WeekDay(EDate)

    '上月最後一天的日期
    PreEDay=Day(DateSerial(SYear,SMonth,0))

    '產生上個月的部分
    Dim i
    For i=1 to SWeek-1
    Str=Str & "<td width=20 align=right><font color=gray>" & PreEDay-SWeek+i+1 & "</font></td>"
    Next

    If SWeek=1 then
    Str=Str & "</tr>"
    End if

    '產生本月部分
    SW=SWeek
    i=1
    For i=1 to EDay


    '調整六日字型的顏色
    Select Case SW
    Case 1
    FColor="Red"
    Case 7
    FColor="Green"
    Case Else
    FColor="Black"
    End Select

    GDate=SYear & "/" & SMonth & "/" & i
    Str=Str & "<td width=20 align=right style='cursor:hand' onMouseOver=""this.style.backgroundColor='#FF99FF'"" onMouseOut=""this.style.backgroundColor='White'"" Onclick=""SendDate('" & GDate & "','" & TObject & "')""><Font Color=" & FColor & ">" & i & "</Font></td>"


    '產生下個月部分
    SW=SW+1
    IF SW>7 then
    Str=Str & "</tr><tr>"
    SW=1
    End if
    Next

    J=1
    For i=SW to 7
    Str=Str & "<td width=20 align=right><Font Color=Gray>" & j & "</Font></td>"
    J=j+1
    Next


    Str=Str & " </tr>"
    Str=Str & "</Table>"


    '將資料引入<Span>
    ShowCal.InnerHTML=Str

    End Sub

    '前移一個月
    Sub PreMon(TObject)
    SYear=Int(SelYear.OuterTEXT)
    SMon=int(SelMon.outerTEXT)-1

    '判斷是否往前調一年
    IF SMon<1 then
    SMon=12
    SYear=SYear-1
    End if
    Call GetCal(SYear,SMon,TObject)
    End Sub

    '後移一個月
    Sub NextMon(TObject)
    SYear=Int(SelYear.OuterTEXT)
    SMon=int(SelMon.outerTEXT)+1

    '判斷是否往前往一年
    IF SMon>12 then
    SMon=1
    SYear=SYear+1
    End if
    Call GetCal(SYear,SMon,TObject)
    End Sub

    '將資料送入欄位內
    Sub SendDate(GDate,TObject)
    document.all.namedItem(TObject).Value=GDate
    ShowCal.InnerHTML=""
    End Sub
    </Script>

    Step 4.
    若為asp檔,可將步驟3之程式碼存為Cal.inc,在適當的地方<!--#include file="Cal.inc"-->即可

    Step 5.
    只在目標欄位的名字正確,不限Form的名稱或欄位多少!

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

    提供者: 007 ( pensiler@sinamail.com )

    [校稿:藍色小舖 ]

     
    ------新進程式介紹------
     
    ◎藍色記憶塗鴉板V1.0多用戶/單用戶版(2003/1/9)

    感謝會員Bgecko提供藍色記憶塗鴉板V1.0多用戶/單用戶版

    功能介紹:
    ====>結合日本的CGI塗鴉程序,可塗鴉留言。
    ====>可設置精彩塗鴉,選出優秀塗鴉作品。
    ====>同一條留言所有人可隨意回復,像BBS一樣
    ====>悄悄話功能。
    ====>樣式修改功能,申請後仍可反復修改樣式。內置10種背景,兩種頭像,15種背景音樂。
    ====>可自定義背景圖像與音樂。 (支持*.gif *.jpg *.bmp *.mid)
    ====>單/多用戶版,不加參數調用 index.asp 時自動 。調用單用戶版界面。 
    ====>公告功能,方便斑竹發布信息。
    ====>超級用戶管理界面,管理申請用戶方便直觀。
    ====>加強用戶管理功能,方便找出長時間未登陸的用戶。
    ====>增加了COOKIES ,更具人性化。方便留言。
    ====>加強刪除能力,刪除用戶時用戶留言一起被刪除。縮小了數據庫的體積。
    ====>面板與程序分開,方便二次開發skin。

    藍色小舖電子報內容 由 藍色小舖 提供
    [藍色小舖發行]--版權所有, 歡迎完整轉寄
     
    |
    |
    |
    |
    |
    若需任何服務
    請洽客服信箱:
    webmaster@blueshop.com.tw