私はずっと自分でプログラムを書きたいと思っていましたが、Lai が私のことを書きたがらなかったので、今日はたまたま暇だったので、一目で理解できるこの小さなプログラムを早速書きました。 、始めましょう:
のアップロードを作成しましょう。データベース内のフィールドには自動的に大きな番号が付けられ、フィールドの種類は OLE です。単純なフィールド uppic.asp アップロード プログラム名 <% を使用してください。
薄暗い
dim formsize、formdata、bncrlf、divider、datastart、dataend、mydata
formsize=request.totalbytes 'クライアントから送信されたサイズを取得します formdata=request.binaryread(formsize)'クライアントから送信されたデータをバイナリプロダクションに変換します bncrlf=chrB(13) & chrB(10)
ディバイダ=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)'上記は画像のバイナリデータです。
「www.knowsky.com」
%>
<!--#include file="conn.asp"-->
<%
sql="ID 説明による写真の順序から * を選択"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.SQL、conn、3、2を開く
rs.addnew
rs("big").appendchunk mydata 'データベースに追加 rs.update
rs=何も設定しない
conn=何も設定しない
%>
次のステップでは、画像の display.asp を表示します。
<!--#include file="conn.asp"--> 'これは誰もが知っています、データベースに接続されたプログラムです<%
id=リクエスト("id")
set rs=server.createobject("ADODB.recordset")
sql="select * from pic where id=" & id
rs.open SQL,conn,1,1
Response.ContentType = "text/html" '画像を表示する形式も使用できます'Response.ContentType = "image/gif" で gif で表示'Response.ContentType = "image/jpg" で jpg で表示 Response.BinaryWrite rs("big ") '画像を表示 rs.close
rs=何も設定しない
connGraph=何も設定しない
%>