本 期 焦 點
  • 越來越多的加值服務等著你喔!
  • 討論群進階搜尋上線囉
  • 使用ASP上傳圖片(不需要元件)
  • Jacky的線上測驗及題庫製作系統Ver.4.3
    下 載 排 行 榜
  • 諾亞校園網站整合系統 3.3
  • 阿德行政公佈系統V2.4
  • 水藍的留言版
  • cola線上購物
  • 宏楊國際ATNETBbs Version 5.3
    新 進 程 式
  • Pika's_Kit_Flash留言板
  • 追夢音樂播放器插件(for DVBBS519動網論壇)
  • 冰弧繁化喬客多功能文本計數器V1.0
  • 論壇下載中心插件v1.3for6.0
  • 琉璃琉璃留言板v1.5
    討 論 區 精 華
  • 將字串加入下拉式的輸入欄
  • IpV4與IPv6的差別
  • 使用WINZIP 在SERVER端線上壓縮檔案
  • 讀取使用者輸入在網址列上的網址
  • 以程式來變更ACCESS資料庫的密碼
    優 值 廣 告




    ■ 訂 閱 電 子 報
  • 如何取消訂閱電子報
  • 如果您不願意再收到小舖電子報,請至小舖先登入會員後,再選擇會員專區中的修改個人資料,將(是否願意接受本站電子報?)這一項修改為(不願意)即可,本報如造成您的困擾,小舖在此對您致上十二萬分的歉意。
    ------頭版新聞------
    藍色小舖電子報( 第010期雙週刊號 2003-3-27) 39000份
    ◎越來越多的加值服務等著你喔!


    親愛的 XXX會員們:
      藍色小舖的加值會員服務已於2003/3/1正式上線了,你知道嗎?
    想享受與別人不同的加值服務嗎 ?來試試吧!!扣點啟用加值服務

     『藍色小舖-軟體元件交流網』目前已提供下列的加值服務︰

     1. 個人討論群
                收藏您所發表與回應過的討論區文章,可方便你日後查閱

     
    2. 討論區進階搜尋功能
                針對所有討論區回應內容以多組關鍵字查詢,讓你能夠更快找到想找的資料與解決問題的方式...範例
     
    3. 軟體精華區
                精心挑選出最值得下載研究與使用的程式 ,絕對能讓你功力大增
     4. 討論群雙倍回饋點數
                回饋的點數是一般會員的雙倍喔 ,讓你能夠快速的累積點數
     5. 下載教學教材檔
                加值會員獨享教材免費下載 ,就是與眾不同
     
    6. 軟體預覽畫面
                看喜歡再下載,以免浪費你寶貴的時間
     
    7. 討論區主題醒目標示
                在茫茫主題中讓您所發表的主題備感尊爵風範,增進立即得到回應的機會


                族繁不及備載...等你來發覺....還有更多的加值服務喔!

      想享受更好的加值服務新功能嗎?
      想要在茫茫的資訊大海中迅速找到您想要的答案嗎?
      心動不如馬上行動!!


    心動不如馬上行動,[ 我要轉為加值會員 ]

    ◎討論群進階搜尋上線囉!
    討論群已累積成千上萬的文章
    該如何鎖定範圍,快速找到您要的文章呢?
    進階查詢機制,讓您免煩惱...

    進階查詢機制:
    1.可限定查詢之時間區間,縮小搜尋文章的篇數
    2.可設定2-3組關鍵字進行查詢,更精準的找到相關主題
    3.可同時查詢不同類型的討論群

    哇~這麼貼心的進階查詢,只要成為加值會員就可擁有喔!

    心動不如馬上行動,[ 扣點啟用加值服務 ]

    ------精選討論區精華------
     
    ◎使用ASP上傳圖片(不需要元件) (2003/3/11)
          

    這是大陸的網站COPY下來的 , 只是修改了一下
    不過基本上,只要是檔案它都可以存
    主要不一樣的地方是在這一行
    Response.ContentType = "image/*"
    只要加上這一行就無法顯示圖片


    upload.asp

    <html>
    <head>
    <title>Untitled Document</title>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">

    </head>
    <body bgcolor="#FFFFFF" text="#000000">
    <form name="form1" method="post" action="process.asp" enctype="multipart/form-data">
    <table width="71%" border="1" cellspacing="0" cellpadding="5" align="center" bordercolordark="#CCCCCC" bordercolorlight="#000000">
    <tr bgcolor="#CCCCCC">
    <td height="22" align="left" valign="middle" bgcolor="#CCCCCC">
    Sobina
    </td>
    </tr>
    <tr align="left" valign="middle" bgcolor="#eeeeee">
    <td bgcolor="#eeeeee">
    <br>
    </td>
    </tr>
    <tr align="center" valign="middle">
    <td align="left" id="upid" height="122">
    <p>檔案來源: <input type="file" name="img" style="width:400" class="tx1" value="">
    </p>
    <p>notes: <input type="text" name="imginfo">
    </p>
    </td>
    </tr>
    <tr align="center" valign="middle" bgcolor="#eeeeee">
    <td bgcolor="#eeeeee" height="2">
    <input type="submit" name="Submit" value="· 送出 ·" class="bt"> <input type="reset" name="Submit2" value="· 清除重填 ·" class="bt">
    </td>
    </tr>
    </table>
    </form>
    </body>
    </html>

    process.asp


    <%
    response.expires=0
    '目的:將二進位轉成成十進位
    Function bin2str(binstr)
    Dim varlen,clow,ccc,skipflag
    skipflag=0
    ccc = ""
    varlen=LenB(binstr)
    For i=1 To varlen
    If skipflag=0 Then
    clow = MidB(binstr,i,1)
    If AscB(clow) > 127 Then
    ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
    skipflag=1
    Else
    ccc = ccc & Chr(AscB(clow))
    End If
    Else
    skipflag=0
    End If
    Next
    bin2str = ccc
    End Function

    '目的:把表單中的影象數據分離出
    '其中formsize表式檔案的大小,formdata表示的數據

    Function ImageUp(formsize,formdata)
    bncrlf=chrb(13) & chrb(10)
    divider=leftb(formdata,instrb(formdata,bncrlf)-1) 'formdata第一bncrlf左邊的數據
    datastart=instrb(formdata,bncrlf & bncrlf)+4 'bncrlf右邊的數據的起始位
    dataend=instrb(datastart+1,formdata,divider)-datastart
    Imageup=midb(formdata,datastart,dataend)
    End Function

    '目的:把表單中的數量值取出
    '其中varName要找的字段數量,strTXT已影像中分離出來的所有文本

    Function findVar(varName,strTxt)
    startPos=1
    strLen=len(varName)+2
    '表單中可能有多個同名數量(用在有主表與表中的數據更新中)
    for i=1 to len(strTXT)
    varStart=instr(startPos,strTXT,varName)+strLen+3
    varEnd=instr(varStart,strTXT,"--")-2
    varValLen=varEnd-varStart

    inVar=mid(strTXT,varStart,varValLen)
    findVar=findVar & inVar

    startPos=instr(varStart,strTXT,varName)
    if startPos=0 then exit for '如果找不到則退出循環
    findVar=findVar & "," ' 以","作多同名量值的分隔符,上本例倒不需要
    next

    End function

    FormSize = Request.TotalBytes
    FormData = Request.BinaryRead( FormSize )
    Image = ImageUp(FormSize,Formdata)
    '以下步驟不能省略,否則取不出文字
    strTXT=mid(formdata,instr(formdata,image)+len(image)+1) '取出文字
    strTXT=bin2str(strTXT) '二進位轉成普通文字

    imginfo=findVar("imginfo",strTXT) '相當於request.form("imginfo")
    'MyArray = Split(imginfo, ",", -1, 1) '分離imginfo返回的多數值,在本例子中不用


    response.BinaryWrite Image

    '如果要存資料庫,只要把欄位開成IMG
    '如果要存成二進位檔,可以用下面的方法

    'pp=server.mappath("1.gif")

    'Set obj = Server.CreateObject("ADODB.Stream")
    'obj.Open
    'obj.Type = 1 ' 1 表示 binary 資料,2 是文字資料
    'obj.Write image ' 將 binary 資料寫進 Stream 物件
    'obj.SaveToFile pp,2

    %>

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

    提供者: 常運動的胖子 ( eddiecclin@pchome.com.tw )

    [校稿:藍色小舖 ]

    ------新進程式介紹------
     
    ◎Jacky的線上測驗及題庫製作系統Ver.4.3(2003/2/25)

    感謝會員Jacky Chen提供Jacky的線上測驗及題庫製作系統Ver.4.3

    功能介紹:
    *新增管理者[學生資料、成績及試卷編輯]系統結合統一介面。

    *新增管理者刪除考題功能。

    *新增簡化學生註冊表單,不需填寫全部欄位。

    *新增管理者成績回饋[公佈正確答案]功能。

    *其他功能同Ver4.1

    ***說明:關於本線上測驗及題庫製作系統Ver.4.0(2002/3/22)***

    *要參加考試學生必須註冊資料。(正試用版不開放訪客註冊)
    *管理者製作題庫題型可以包括是非、單選以及複選題。
    *管理者可以管理學生資料及成績,以及整批將班級升級,例如將一年級升級為二年級。
    *考試科目以及考試時間由ASP程式從資料庫取出。當你要測驗班級某科目時,進入管理
    者[試卷編輯及修改]系統修改考試科目的考試時間為目前日期即可讓學生參加考試。
    *管理者可以監控學生是否上線考試。
    *新增管理者(教師)製作題庫時,題目及選項可以附加圖片上傳功能。

    請尊重版權所有者
    歡迎作學術研究
    請保留網頁版權所有者聲明字樣
    網址:http://163.23.85.65 或 http://aspnet.ptjhs.chc.edu.tw/jacky/
    北斗國中資訊組長JACKY CHEN

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

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