2011年5月18日 星期三

上傳元件的參考說明

資料來源:http://www.blueshop.com.tw/board/show.asp?subcde=BRD20070213101830DF8

1.iNotesUpload 

大陸人寫的、支援中文檔上傳

免費

效能不佳(會停留在上傳表單畫面,好像當了一般)

程式出問題後從資料庫取出的資料中文會變成亂碼,必須關閉IE後重來,此元件測到會怕


2.LyfUpload

大陸人寫的、支援中文檔上傳

免費

效能不佳(會停留在上傳表單畫面,好像當了一般)

程式出問題後從資料庫取出的資料中文會變成亂碼


3.basp21

日本人寫的、支援中文檔上傳(?)

免費

效能不佳(會停留在上傳表單畫面,好像當了一般)


4.aspsmartupload

外國人寫的(不知哪一國)、「不」支援中文檔上傳

免費

效能很不錯,可惜無法上傳中文檔,看其說明文件是說有支援,但測不出來


5.aspupload

外國人寫的(不知哪一國)、支援中文檔上傳、下載

99元美金,試用版30天

效能很好

有progress bar顯示上傳狀態、速度;不會死死的停在上傳畫面

官網:http://www.aspupload.com/index.html

6.dundasUpload

免費

‧一次上傳多個檔案、支援建立中文資料夾、中文檔案 

‧可設定上傳資料上限, 檔案數上限, 檔案容量上限 

‧透過 ProgressBar 及 StateServer 元件實作 progress bar 

‧上傳的檔案可選擇儲存至磁碟或記憶體 

‧可操作檔案及目錄 

‧模擬使用者帳號, 並設定權限 

‧COM registration 

‧支援 MacBinary(Macintosh client 端) 

‧上傳的檔案可操作其 ACL, 擁有者及屬性 

缺點:StateServer必須先run起來,才能使用ProgressBar,而StateServer無法縮到狀態列

下載網站:http://www.dundas.com/
-------------------------------------------------------------------------------------
其中第五項aspupload是公認最好低元件,但要錢^^

2011年5月12日 星期四

ASP的分頁範例

資料來源:http://www.blueshop.com.tw/board/show.asp?subcde=BRD20050926133403S2E&fumcde=&odr=cdt&odrtyp=0


' 檔案pageft.asp
'----------------------------------------------------------------------------------
<%
'   作者:阿言
'   功能:ASP利用Mysql分頁,利用偶然PHP分頁所改
'   取得目前頁碼及筆數起始點函數
Function getPageNum(perpage)
    if(request("page")="" or request("page")<=1) then
        page = 1
        startline = 0
    else
        page = request("page")
        startline = (request("page")-1)*perpage
    end if
    Mypagenum = page
    mystartline = startline
    getPageNum=array (Mypagenum, mystartline)
end Function

'   參數:num ----------- 總數
'        perpage ------- 每頁條數
'        curr_page ----- 目前頁數,可以通過get 得到
'        mpurl --------- 目前網頁url,如:index.asp?op=Opp_add.asp
'
'/

function multi(num, perpage, curr_page, mpurl,mytype)
    if(num > perpage) then
        page   = 5 ' 設定顯示的數目     1 2 3 4 5 .......  or    ...... 3 4 5 6 7 .....
        offset = 2
' Response.Write (curr_page-page+1)
        pages  = num \ perpage '得到頁數
        from   = curr_page - offset  '偏移兩頁
        to_p  = curr_page + page - offset - 1
        if(page > pages) then
            from = 1
            to_p   = pages
        else
            if(from < 1) then
                to_p   = curr_page + 1 - from
                from = 1
                if((to_p - from) < page or (to_p - from) < pages) then
                    to_p = page
  end if
            elseif(to_p > pages) then
                from = curr_page - pages + to_p
                to_p   = pages
                if((to_p - from) < page or (to_p - from) < pages) then
                    from = pages - page + 1
  end if
     end if
        end if 
 Select Case (mytype) 
  case "0":
          fwd_back =""
          fwd_back=fwd_back & "<form name=breakpage>共有 "&num&" 筆  |  "&perpage&" 筆/頁|  目前第 "&curr_page&" 頁|  "

   If(curr_page-page+1>=0) Then
    fwd_back=fwd_back & "<a href="""&mpurl&"&page=1"">|<<</a>  "   
   End if
  case "1":
   fwd_back = fwd_back & "<a href="""&mpurl&"&page=1"">|<<</a>  "
 End Select
        for i = from to to_p+1
            if(i <> int(curr_page)) then
                fwd_back = fwd_back & "<a href="""&mpurl&"&page="& i &""">["& i &"]</a> "
            else
                fwd_back = fwd_back & "<u><b>["&i&"]</b></u> "
     end if
 next

 if(pages > page and (pages+2-curr_page) >= page) then
  fwd_back = fwd_back & " <a href="""&mpurl&"&page="&pages+1&""">>>|</a> "
 end if
 multi = fwd_back
    end if
end function

%>
'-----------------------------------------------------------------------


' index.asp
<!-- #INCLUDE virtual="pageft.asp" --> 
<%
'-------------------------------------分頁設定開始-------------------------------------
'query 跟 get_results 是我自己寫的開啟資料庫函式,小弟不提供方法,請大大們自行修正為自己開啟的方法
 SET RSVAR =  query("select count(*) from  table") '取的資料庫中相對應的資料筆數
 Myallpages = RSVAR(0) '設定所得筆數變數
 Mypagesize = 8  '設定每頁筆數
 myurl = "index.asp" '設定檔案連結,如自己已有所帶的參數亦可使用  index.asp?xxx=xxx
 GetPagestar = getPageNum(Mypagesize) '  GetPagestar(0) 為目前頁碼  GetPagestar(1) 為頁數起始點
 mypagelist = multi(Myallpages,Mypagesize,GetPagestar(0),myurl,"0")  'mypagelist即為分頁變數、可直接印出測試  Response.write (mypagelist)
 SET RS =  get_results ("select * from  table limit "& GetPagestar(1) &","& Mypagesize &"")
'-------------------------------------分頁設定結束-------------------------------------
  While Not RS.EOF
        '這邊自己寫,輸出的訊息
   Wend
%>

2011年5月5日 星期四

XMLHTTP抓取同主機的檔案卻出現無法顯示網頁的情形

問題描述:
使用XMLHTTP抓取同主機不同應用程式的檔案卻出現無法顯示網頁的情形

解決方式:
檢查了許多才發現,IIS沒有繫結主機的Domain Name只有繫結IP位址.
將Domain Name也繫結至IIS上就ok了.