AS a Programer

同一廣告位多條廣告無刷新循環播放

2008-01-31T17:43:03+08:00

這是一個廣告管理系統，分成前台與後台管理兩個部份。

廣告的播放原理，是透過調用後台管理系統錄入的廣告內容，然後顯示，所以我通過webservice一個方法實現根據廣告id，得到廣告代碼。

而多條廣告的話就需要在顯示頁面得到該廣告位應顯示的所有廣告ID列表，循環調用顯示。

代碼如下：

wevservice:

[WebMethod]
public string GetADCode(int ADID)
{
string ADUploadFolder=".\\"+Assistant.GetConfigString("ADUploadFolder")+"\\";
Advertisement.BLL.ADManage.AdContent adcontent=new Advertisement.BLL.ADManage.AdContent();
Advertisement.Model.ADManage.AdContent model=adcontent.GetModel(ADID);
if(model.ContentType=="Img")//圖像類型廣告
{
string filename=ADUploadFolder+model.ImgURL;
string desc=model.ImgName;
string FileType=model.ImgType;
string LinkURL=model.LinkURL;

Advertisement.BLL.ADManage.AdPlace adplace=new Advertisement.BLL.ADManage.AdPlace();
Advertisement.Model.ADManage.AdPlace modelplace=adplace.GetModel(model.PlaceID);

return Assistant.CreateTag(ADID.ToString(),filename,desc,FileType,LinkURL,modelplace.Width,modelplace.High);

}
else//嵌入代碼類型廣告
{
return model.ADCode;
}
}

顯示頁面：

-----------

正在加載...Http://www.QQView.com

後台cs:

public string ADIDList="";//廣告ADID列表

private void Page_Load(object sender, System.EventArgs e)
{
if(!this.IsPostBack)
{
if((Request["PlaceID"]!=null)&&(Request["PlaceID"].ToString()!=""))
{
string PlaceID=Request.Params["PlaceID"];
GetADIDList(PlaceID); //根據廣告位編碼得到該廣告位的所有廣告id列表
}
}
}

從JSP,ASP等動態頁面生成靜態頁面的實現方式

2008-01-31T17:31:39+08:00

在網站應用中,為了提高頁面的訪問速度,經常需要將動態頁面靜態化以提高頁面的訪問速度,因為動態頁面一般要從數據庫檢索信息,頻繁訪問動態頁面會大大提高數據庫的負載,並且訪問速度也比靜態頁面慢.本文通過在程序裡建立一個http請求,將返回的輸出流存儲為html文件的方式來生成靜態頁面.在CMS類的應用中,信息發佈完可直接調用這段代碼,給定一個動態連接地址如http://www.QQView.com/cms/info.jsp?infoid=001,生成一個靜態頁面,代碼如下:

package org.apache.easframework.common;

import java.io.BufferedReader;
import java.io.FileOutputStream;
import java.io.IOException;
import java.io.InputStreamReader;
import java.net.HttpURLConnection;
import java.net.URL;
import java.net.URLConnection;

/**
* 將信息發佈為靜態頁面
* @author bzwang
*
*/

public class DynInfo2Html
{
/**
* 將信息轉化為靜態html
* @param sSourceUrl 動態信息訪問URL
* @param sDestDir 存儲為靜態文件的目錄
* @param sHtmlFile 生成的靜態文件名,可以按信息的唯一ID+.html命名
* @throws IOException
*/
public static void convert2Html(String sSourceUrl,String sDestDir,String sHtmlFile) throws IOException
{
       int HttpResult;
        URL url=new URL(sSourceUrl);
        URLConnection urlconn=url.openConnection();
        urlconn.connect();
        HttpURLConnection httpconn=(HttpURLConnection)urlconn;
        HttpResult=httpconn.getResponseCode();
        if(HttpResult!=HttpURLConnection.HTTP_OK)
        {


        }
        else
        {
         InputStreamReader isr =
          new InputStreamReader(httpconn.getInputStream());
          BufferedReader in = new BufferedReader(isr);

          String inputLine;
          if(!sDestDir.endsWith("/"))sDestDir+="/";
          FileOutputStream fout = new FileOutputStream(sDestDir+sHtmlFile);
          while ((inputLine = in.readLine()) != null)
          {
           fout.write(inputLine.getBytes());
          }
          in.close();
          fout.close();
        }
}

public static void main(String[] args) throws IOException
{

convert2Html("http://www.QQView.com/system/show.jsp?infoid=b3cd5cf4082a4bbebe70e332cb43fcb2","D:/projects/myproject/Src/b2c_front/Jsp/module/bzhzx/html","aaaa.html");

}

}

無法以檢視/原始碼的方式觀看網頁

2008-01-31T17:24:01+08:00

放大縮小圖片的JavaScript

2008-01-31T17:12:44+08:00

< img src="images/< %=rs("tp_smallimg") %> " alt=點擊放大 border="0" align="middle" onload="javascript:if(this.width>this.height)this.style.width=140;if(this.width< =this.height) this.style.height=140;">

下拉選擇頭像的Java程式

2008-01-31T17:08:45+08:00

一個 Java 所寫成的日曆

2008-01-31T17:03:15+08:00

B3D1FF<%else%>DDDDDD<%end if%>" class="column_title_black" onMouseOver="this.style.backgroundColor='B3D1FF'" onMouseOut="this.style.backgroundColor=''">

日程安排

B3D1FF<%else%>DDDDDD<%end if%>" class="column_title_black" onMouseOver="this.style.backgroundColor='B3D1FF'" onMouseOut="this.style.backgroundColor=''">

日程安排查询


	日程安排

该文章转载自网络大本营：http://www.xrss.cn/Dev/Other/200610105587.Html

將ASP代碼移植為VB COM組件

2007-11-12T11:00:01+08:00

本文是編譯稿件，原文出處：http://www.asptoday.com/articles/20000121.htm

你剛剛把最新的龐大的ASP應用程序釋放到網上。文件正確地上載到服務器上，與應用程序的鏈接也
工作良好。在慶祝勝利之前，你想在應用程序的性能上運行一些stats 以便發現它到底有多好。結果
卻發現，本來在開發環境下工作得很好的應用程序實際上運行速度很慢。

對於那些使用Microsoft 軟件包時間不長的人，DNA代表分佈式InterNet 結構，是另一種非常熱門的
n層應用程序結構的首字母縮寫形式。Microsoft 致力於在Internet上展開的分佈式應用程序的開發。
基於這種思路，未來將流行小型的、無狀態的、組件化的應用程序就不足為奇了。

上面是ASP用於n層環境的典型圖示。web類（IIS應用程序）不是必需的，因為ASP可以直接與表述層
或商業規則層組件對話。因為大多數應用程序都是用ASP單獨寫成的，所以一個情理中的問題就是：

為什麼要將代碼轉入COM組件？

以我之見，ASP只是用於表述層代碼的，所以我選擇將商業規則邏輯或任何形式的數據存取
都裝入COM組件中。一般情況下，我從一開始就將應用程序的代碼分成各個組件，但是通常你並不能選
擇所要處理的結構，所以代碼移植就是個實際問題。在一個n層應用程序中，你必須盡力把非表述代碼
從ASP中盡快移走。

也許目前你並沒有在進行n層編程，那麼移植代碼的適當時機就是運行性能開始削弱時。通常，這是指
你的老闆說「程序今天運行有點慢」到「你被解雇了」之間這段時間。一旦用戶開始抱怨就晚了。

第二個使用移植代碼的方針是當你有足夠的相似代碼（例如所有的數據存取）可以放在一個包含文件
(.inc) 中以保證一個COM組件時。多少個程序就足夠？這個問題提得好！編寫小型的MTS 組件時，我
發現有一個程序就足夠創建一個COM組件了。但是只有一個程序的COM組件是很罕見的，所以對於這個
問題就需要進行判斷。如果你寫的代碼足夠長，就開始進行模式開發了。當你遭遇到ASP的「陰暗面」
之後（aka COM組件）你就會感覺到其力量。

當你編寫可以節省時間的ASP代碼時，如果要移植代碼的話，有許多事情需要做。跟隨以下步驟，你會
發現移植代碼沒有什麼麻煩的。

聲明變量類型

Visual Basic 和VBScript 的最大缺點是它允許開發人員未經聲明就使用變量。如果你覺得這是個好處，
那麼當你要整個晚上來尋找由一個小小的打字錯誤而造成的邏輯錯誤時，就不再這樣想了。如果你使用
了"Option Explicit"（明確選項）而強制明確聲明了的話，IDE 就會對此進行警告。

< %@ Language=VBScript % >
< % Option Explicit % >

當你使用Option Explicit時，要記住它剛好在@ declarations下面。不注意這一點會導致一個小小的
錯誤信息。

Microsoft VBScript compilation error '800a0400'

Expected statement

/test.asp, line 4

Option Explicit

^

現在挑戰來了。VBScript 允許將變量是任何數據類型，只要它是variant。這就是說你只能把變量
聲明為variants。在許多方面這是十分浪費的，但是在ASP可以接受。但是在Visual Basic中，當
可能創建更有效的代碼時，變量就要被定義類型。這個程序很簡單，只需在聲明之後加上"as
[data_type]" ，這時它就不再是一個簡單的variant了。

比如說，現在有一個變量是一個字符串。打開一個ASP頁然後鍵入"Dim strSession as String"。然後
預覽這個頁面，就會得到一個小小的驚喜。

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/icu/temp.asp, line 3

Dim strSession as String

---------------^

所以，如何作到不對ASP代碼造成威脅而準備Visual Basic 的變量？我不能確定對此如何評價。有
一種方式是在變量聲明之後使用註釋標記。要注意這不僅在將代碼移植到VB時有幫助，當有別
的公司提供高薪挖你走的時候，這還有助於別人理解你的代碼。以下是在ASP版本2中用註釋標記
聲明變量的三種途徑：

Private strString 'as String
Dim intInteger 'as Integer
Public bolBoolean 'as Boolean

這種數據類型的定義技巧還適用於你在ASP應用程序中使用的任何函數。（請看下面部分子程序和函數）。

Private Function(strString, intInteger) 'as Boolean

當我敲入我的ASP代碼時，也在其中貫穿了這些註釋。這也許不適合你，也許你在處理一些舊代碼，
在移植代碼之後，你可以使用Visual Basic 的搜索和替換功能來增加數據類型。這樣更有意義，因為
在函數和子程序中不能註釋變量。代碼越是程序話，變量數據類型註釋就越少。

關於Visual Basic數據類型的更多信息，可以參看MSDN 有關數據類型的在線文章。

使用子程序和函數
作者 : 青蘋果電腦工作室

一個快速回答的問題：為什麼關於ASP的書中，討論使用子程序和函數的代碼的那麼少？

雖然一行一行地寫ASP代碼要更加簡單，但是以程序的形式來編碼卻有許多益處。

首先，非程序化的代碼不容易移植到Visual Basic。也許目前你沒有這個計劃，但是總有一天你會為了
其性能或可擴展性而將一些代碼移植到組件中。

其次是程序是運行得更快。對ASP性能的最大消耗是上下文轉換，每次從ASP代碼區< % % > 移到無格式的
HTML時都會發生。因為你不會在程序內部編碼一個上下文轉換，就不諱感覺到這種消耗。另外，ASP的
緩衝器也顯示當子程序用程序化代碼點擊頁面時會有很大的不同。這裡是使用程序化代碼的ASP應用程序
"Hello World" 的必須部分：

Private Sub Main()
Response.Write "Hello World!"
End Sub

Call Main

為了完整起見，我在程序中包含了一個上下文轉換的小例子。如果你試驗這個代碼，它會運行，但是請
不要在你自己的應用程序內部這樣做。

< %@ Language=VBScript % >
< %
Private Sub DoStuff()
% >
This is < b > HTML Text! < /b >
< %
End Sub
% >
< HTML >
< HEAD >
< META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0" >
< /HEAD >
< BODY >
< P >< % Call DoStuff % >< /P >
< /BODY >
< /HTML >

程序化的代碼還有一些其它益處。首先你會發現再利用包含在程序中的代碼部分更加容易。其次，要
實現同樣的目的所需要的代碼行更少。第三，你將要開始開發一個大的可再利用代碼庫。開始時它的
形式是.inc 文件，最後你自己的普通COM組件看起來就像Jeff Gordon（著名賽車選手）一樣棒。

移植你的代碼

有幾件事與從VBScript向Visual Basic移植代碼一樣簡單。一般來說，你需要移走代碼並增加數據類型。
有時，也可以在Visual Basic中應用一些更有效的算法，但是必須先保證代碼可以正常工作。

在我們這個應用程序舉例中，將要移植一些簡單的代碼到兩個Visual Basic COM 組件中。將一些HTML
表格格式拖到表述類中，將ADO 對像代碼拖到包裹了ADO 的數據存取類中。通過將這兩個類都放入
ActiveX DLL 工程文件中可以使工程文件稍稍簡單化。在實際工作中，可以為每一層創建單獨的工程
文件，但是這個工程文件要在一個DLL中表明思路。如果你想糾正這種情況，就將數據存取類移到另一個
工程文件中並作為一個DLL編譯。必須在表述要應用它的DLL工程文件中增加對這個新DLL的引用。

在這個樣本工程文件中使用的數據庫是一個Northwind 數據庫，它與Visual Basic包含在一起。在這個
樣本工程文件的ZIP 文件中，我為那些沒有安裝Visual Basic的人做了這個文件的一個表格的版本。樣本
工程文件中還包含一個與ASP代碼一起使用的編譯過的DLL。

ASP頁面
作者 : 青蘋果電腦工作室

這個例子中的第一站是ASP頁。這個ASP頁用ADO與Northwind 數據庫連接。為了保持良好的編碼習慣，我
使用了Option Explicit 並明確地聲明了所有變量。這個ASP頁的第一個草稿使用了內聯代碼。

< % @ LANGUAGE=VBScript % >
< %
'Example of Inline code
Option Explicit

'Declare variables
Dim oConn
Dim orS
Dim ConnectionString
Dim x

ConnectionString = "DSN=Northwind;"

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open ConnectionString

Set orS = Server.CreateObject("ADODB.Recordset")

'Set variables
oRS.ActiveConnection = oConn
oRS.Source = "Select * from Products"
oRS.Open
% >
< html >
< head >
< meta http-equiv="Content-Type" content="text/html; charset=windows-1252" >
< title >New Page 1< /title >
< /head >
< body >
< h1 >Products< /h1 >
< table cellspacing="2" cellpadding="5" >
< tr bgcolor="#FF6666" >
< th >Product Name< /th >
< th >Quantity Per Unitr< /th >
< th >Price< /th >
< /tr >
< %
Do until orS.EOF
If x = 1 then
x = 0
% >
< tr bgcolor="#ffcccc" >
< % else % >
< tr >
< %
x = 1
end if
% >
< td >< %=oRS("ProductName")% >< /td >
< td >< %=oRS("QuantityPerUnit")% >< /td >
< td >< %=oRS("UnitPrice")% >< /td >
< /tr >
< %
oRS.MoveNext
Loop
% >
< /table >
< /body >
< /html >
< %
'Destroy objects
Set orS = Nothing
Set oConn = Nothing
% >

ASP中實用的廣告交替組件

2007-11-12T10:57:22+08:00

ASP中實用的廣告交替組件
2000-06-14‧ wodeail‧CPCW

　　你是不是經常在網上看到一些公司的廣告，並且他們能不停的變換各種廣告內容，這就是運用ASP中的廣告交替組件，使用廣告交替組件交替廣告圖標可以更好的發佈你的廣告和服務的推廣，更容易使別人接受你的廣告，並能簡單地實現交替顯示圖像。

(一).廣告交替組件的使用方法和具體屬性：

1).GetAdvertisement方法

　　在這裡Server.CreateObject方法用於廣告交替的例子:Set ad=Server.CreateObject("MSWC.AdTotator"),這裡Set命令用於和Server.Create.CreateObject 標誌符,聯合來創建一個MSWC.AdRotator對象的引用.廣告交替組件有一個方法:GetAdvertisement方法.GetAdvertisement方法管理和從調度文件檢取信息,當GetAdvertisement方法從一個新的頁面請求或從一個頁面更新的請求被調用時,GetAdvertisement方法瀏覽調度文件,以顯示下一個廣告圖案,GetAdvertisement方法的語法為:GetAdvertisement("filepath"),filepath為調度文件的虛擬路徑.

2).廣告交替組件要求的文件

　　Rotation schedule文件用於管理顯示頻率或顯示標題的文件(也就是廣告交替調度文件);Redirection文件為其重定向網址.

3).廣告交替調度文件的具體方法屬性

　　這個文件用來管理廣告交替組件中廣告顯示的頻率和具體屬性,其具體方法見下表:

名字描述作用範圍

Redirect(URL)為提交瀏覽器缺省位置所有在交替調度中的圖像所有圖像

width(填入要顯示圖像的具體大小) 設定圖像的像素寬度所有圖像

height(像素值) 設定圖像的像素高度所有圖像

border(表格寬度) 設定圖像邊框寬度所有圖像

* 用以分隔具體顯示內容所有圖像

AdUL 設定圖片地址單一圖像

AdHomePageURL 設定廣告鏈接地址單一圖像

Text 設定廣告文字顯示單一圖像

Impresseions 設定廣告圖片顯示時間比單一圖像

具體使用例子請看下例

4).重定向文件

　　　重定向文件(redirection file)將使瀏覽器指向目的地址,這裡的地址是在調度文件裡面確定的.這個重定向文件不僅用於將請求客戶指向被請求廣告,而且儲存各種關於請求客戶的信息,比如瀏覽器的類型和IP地址.在這裡用response.redirect方法將瀏覽器導向調度文件中指定的地址,如response.redirect(request.querystring("myAdUrl")),另外你可以使用各種分析代碼或頁面記數器組件來確定重定向文件的點擊數目.

5).廣告交替屬性

名字語法描述

Border boarder(size),size用整數設定廣告邊框寬度

表示邊框厚度

Clickable Clickable(value),value是設定廣告交替標題是否是一個超級鏈接或圖像

true或false

TargetFrame TargetFrame(frame),frame 設定目標的名字以及顯示標題

是一個html框的名字(如

_top,_parent等)

　　這裡如果Clickable值設為真,則顯示一個超級聯接的標題.如果值為假,則只顯示標題並取消標
題的超級聯接.

(二).具體使用示例：

1).下面代碼可以放在你網頁需要加入廣告欄的地方

<

dim AD,adrot

AD="adr.txt"

set adr=server.createobject("MSWC.ADROTATOR")

adr.targetframe="target=""adframe"""

『讀取調度文件adr.txt

response.write adr.GetAdvertisement(AD)

>

2).下面是廣告調度文件adrot.txt，它表示了能所顯示圖像的屬性。

』redirect選項聲明了一個轉移地址的文件，這個文件用於指定用戶到目標的路徑。

redirect goto.asp

』定義廣告圖像的大小和邊框屬性

width 468

height 60

border 0

*

』指定圖片地址、鏈接地址和提示內容以及顯示的時間(這裡時間顯示比為50)。

http://www.yesky.com/logo.gif

http://www.yesky.com

天極網

50

redirect goto.asp

border 0

*

http://localhost/logo.gif

http://aasp.yeah.net

ASP動網先鋒

50

redirect goto.asp

border 0

』同樣的可以用*號分隔不同的圖片地址和鏈接地址以實現廣告交替效果。

3).轉移地址的ASP文件goto.asp，是一個用於指定用戶到適合的URL(用戶路由表)參數路線的ASP文件。

<

<@LANGUAGE="VBSCRIPT">

Response.AppendToLog Request.QueryString("url")

Response.Redirect Request.QueryString("url")

>

　　這個轉移地址文件被看作是一個記數裝置，用於跟蹤標記的效用，還提供了標記被點擊的次數。它使用request.redirect方法來重定向瀏覽器到指定的URL路線。

　　好了，現在一個簡單的具有廣告自動輪換功能的廣告發佈系統就完成了，利用它可以在自己的主頁上自動輪顯原來定義好的廣告內容和圖片鏈接，如果需要還可以和別人交換網站的廣告內容，這樣一個簡單實用的程序你難道不想試試嗎？

如何在Web頁面中集成文件上傳功能

2007-11-12T10:41:59+08:00

　　當前，個人主頁製作非常流行。當用戶開發好自己的頁面時，需要將文件傳輸到服務器上，解決這個問題的方法之一
是運行FTP服務器並將每個用戶的FTP默認目錄設為用戶的Web主目錄，這樣用戶就能運行FTP客戶程序並上傳文件到指定的
Web目錄。由於Windows NT 和 Windows98均不提供直接的基於窗口形式的FTP客戶程序，用戶必須懂得如何使用基於命令行
的FTP客戶，或掌握一種新的基於窗口形式的FTP客戶程序。因此，這種解決方案僅對熟悉FTP且富有經驗的用戶來說是可行
的。如果我們能把文件上傳功能與Web集成，使用戶僅用Web瀏覽器就能完成上傳任務，這對於他們來說將是非常方便的。
下面就結合筆者的實踐經驗對這一方案作一簡要介紹。
　　本方案的軟件配置如下：客戶機操作系統為 Windows98 ；服務器操作系統為Windows NT Server；Web服務器為
IIS4.0。為使IIS能夠接收上傳的文件，還必須安裝Posting Acceptor組件，該組件位於NT 4.0 Option Pack 的 Site
Server Express中。Posting Acceptor組件的ISAPI擴展函數CPSHOST.DLL直接處理文件上傳，目的URL被映射、解析為服務
器上的物理磁盤位置。
具體應用見如下網頁代碼：

<% Response.Buffer = TRUE %>
<% if (Len(Request.ServerVariables("LOGON_USER")) = 0 ) then %>
<% Response.Status = "401 Unauthorized" %>
錯誤: 拒絕訪問.

<% else %>

上傳文件

上傳文件

<% end if %>

　　上述代碼以ASP文件的形式存放在Web網站宿主目錄下myweb目錄中，用戶只需用瀏覽器請求該文件即可。
　　需要注意的幾點是：
　　□Request.ServerVariables("LOGON_USER")返回登錄到Windows NT域的用戶名，在本例中，如果用戶名為空，則顯示
拒絕訪問頁面；不為空，才顯示正常上傳頁面。
　　□在安裝Posting Acceptor組件後，CPSHOST.DLL文件位於Web服務器宿主目錄下scripts目錄中，可以把該文件拷貝到
自己的目錄中使用。
　　□在表單中，enctype="multipart/form-data" 這一項不能少，否則不能正常上傳。
　　□表單控件TargetURL的名稱(name屬性)不能變。type="hidden"使該控件在頁面中不顯示。value屬性確定上傳文件在
服務器中存放的路徑，可以根據實際情況調整。在本例中，文件上傳路徑是myweb目錄(也就是本ASP文件和CPSHOST.DLL文
件存放目錄)下與登錄用戶名同名的子目錄，並且該目錄權限設為可寫。
　　□my_file控件類型為"file"，在瀏覽器中顯示的是一個文本框後帶一個"瀏覽"按鈕。當用戶單擊"瀏覽"按鈕時，將彈
出一個標準的選擇文件對話框，供用戶選擇要上傳的文件。可以根據實際需要增減my_file控件的個數。

純ASP上傳圖像文件到數據庫的最佳例子

2007-11-12T10:38:24+08:00

IAmTrue 發表於2000-11-2 7:56:49 ASP地帶

getfile.htm
-------------------------

保存圖片到數據庫

你可以找個圖片試試，保存完畢後會有提示

savetodb.asp
----------------------------------
<%

Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

email = UploadRequest.Item("email").Item("Value")

contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
picture = UploadRequest.Item("blob").Item("Value")

'Response.ContentType = contentType
'Response.binaryWrite picture

set objCn = server.createobject("adodb.connection")
set objRst = server.createobject("adodb.recordset")
objCn.Open "upload"
objrst.Open "pic", objcn, 1,3,2
objrst.addnew
objrst.fields("filename")=filename
objrst.fields("type")="gif"

objrst.fields("what").appendchunk picture
objrst.update
response.write "第" & objrst("id") & "個圖片。"
objrst.close

objCn.close
set objrst=nothing
set objcn = nothing
%>

showpic.asp
----------------------------------------
<%
set objCn = server.createobject("adodb.connection")
set objRst = server.createobject("adodb.recordset")
objCn.Open "upload"
objrst.Open "select what from pic where id=" & request("id"), objcn

if not objrst.eof then
response.binarywrite objrst("what")
end if

objrst.close
objCn.close
set objrst=nothing
set objcn = nothing
%>

upload.asp
-------------------------------------------
<%
Sub BuildUploadRequest(RequestBin)
'Get the boundary
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
'Get all data inside the boundaries
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
'Members variable of objects are put in a dictionary object
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
'Get an object name
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
PosBound = InstrB(PosEnd,RequestBin,boundary)
'Test if object is of file type
If PosFile<>0 AND (PosFile'Get Filename, content-type and content of file
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
'Add filename to dictionary object
UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
'Add content-type to dictionary object
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType
'Get content of object
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else
'Get content of object
Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If
'Add content to dictionary object
UploadControl.Add "Value" , Value
'Add dictionary object to main dictionary
UploadRequest.Add name, UploadControl
'Loop to next object
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
Loop

End Sub

'String to byte string conversion
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function

'Byte string to string conversion
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function
%>

test.mdb(dsn 名稱：upload)
----------------------------------------
表pic:
id:自動加
filename:文本
type:文本
what:ole

-----------------------------------------
存成單個文件，放在一個目錄下，打開（必須用http://...）getfile.htm
上傳一個.gif或.jpg就可以顯示了。
對於大文件在顯示程序(showpic.asp)中可能會用到循環和getchunk方法。自己去做。記住，由於ASP目前暫時不支持二進行制讀寫，只能存二進制到數據庫中。
有什麼問題，請致電veryblue@chinese.com (IAmTrue)
-----------------------------------------------------------------