aspで簡単に画像をデータベースにアップロードするコードを実現します。

簡単に画像をアップロードしてデータベースにアップロードします。長い間自分でプログラムを書きたいです。でも、頼は私を書きたくないので、今日は暇があります。だから、この小さいプログラムを書いたら簡単に見て分かります。データライブラリのフィールドはid自動番号になります。 big フィールドのタイプは OLED へへへ簡単なあのフィールドはよくなりました。upic.aspアップロードプログラム名<%dim rs  dim formsize，formdata，bncrlf，divider，datastart，dataend，mdata formsize=request.totalbytes 'クライアントから送信されたサイズformdata=request.binaryread（formsize）'を取得し、顧客から送られてきたデータを二進作成bncrlf=chrB（13）に変換する。 & chrB(10)divider=leftB(formdata，clng(instrob)-1)datastart=instrob(formdata，bncrlf) & bncrlf)+4 dataend=instro(datastart+1,formdata，divider)-data start mdata=midb(formdata，datart，dataend)'上は全部ピクチャのバイナリデータ%を取得しました。include file=「conn.asp」<%sql=「select」 * from pic order by id。 desc「セット」 rs = Server.reate Object（「ADODB.Recordset」）rs.Open sql，conn，3,2 rs.addnewrs(「big」).apendchunk mydata 'データベースに追加するRS.udate set rs=nothing set conn=nothing%>  次は画像display.aspを表示します。include file=「conn.asp」--> 'これはみんな知っているでしょう。彼はデータベースとつながっているプログラムです。  id=request(id)set rs=server.creat object(「ADODB.recordset」)  sql=「select」 * from pic where id=" & ids.open sql，conn，1,1  Reponse.C.tentType = "text/html '画像を表示するフォーマットは、「Reponse.ContintentType」も使えます。 = "イメージ/gif" gifで'Resonse.ContintentTypeを表示します。 = "イメージ/jpg" jpgでResonse.BinaryWriteを表示します。 rs（「big」） 'ピクチャRS.closeを表示します。  セット rs=nothing  セット connGraph=nothing  %