<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<form Action="ados.asp" method="post" enctype="multipart/form-data" name="form1">
<input name="ADos" type="file" size="25">
<input name="SuBados" type="submit" value="ύ">
</form>
</body>
</html>
<%
if Request.TotalBytes<>0 then
' call adoxwrite()
 call adoxUpfile()
 end if

''ADODB.Stream ϴͼƬļ

sub adoxwrite()
dim Ados
'set Ados=CreateObject("Adodb.Stream")
'adTypeText = 2
dim Curpath
CurPath=server.MapPath("./")
Response.Write(CurPath)
dim adModeRead,adTypeBinary
adModeRead=1
adTypeBinary=1  
set Ados=server.CreateObject("Adodb.Stream")
'SaveToFile  
'    ʹ÷Object.SaveToFile(FileName,[Options])
'    ˵дFileNameָļ
'    ˵FileNameָļ
'        Options ȡѡɲָѡ£
'            adSaveCreateNotExist=1
'            adSaveCreateOverWrite=2

Ados.type=1
Ados.open
Response.Write (ados.EOS)
'ados.LoadFromFile(server.MapPath("./lfgboxlogo_h.gif"))
'ados.Readtext()
'ados.Read()
'Ados.write Request.BinaryRead(Request.TotalBytes)
'ados.CopyTo(destStream)
dim img
'img=ados.Readtext
''img=ados.Read
''Response.Write img
ADos.write Request.BinaryRead(Request.TotalBytes) 'ļʽռд
'Response.BinaryWrite img
Response.Write (CurPath&"\_test.txt")
Ados.SaveToFile CurPath&"\_test.jpg",1  '1 ,2,
Ados.close
'''''Response.BinaryWrite Request.BinaryRead(Request.TotalBytes)
end sub

sub adoxUpfile()
dim Ados
dim Curpath
CurPath=server.MapPath("./")
set Ados=server.CreateObject("Adodb.Stream")
'set Ados=CreateObject("Adodb.Stream")
Ados.type=1 'adTypeBinary Ʒʽ 
'Ados.mode=3 'дģʽ
Ados.open
ADos.write Request.BinaryRead(Request.TotalBytes) 'ļʽռд
Ados.SaveToFile CurPath&"\_test.jpg",2  '1 ,2,
Ados.close
end sub


%>