<%
dim strSaveFileName
dim strNow
strnow =cstr(hour(now()))&cstr(Minute(now()))&cstr(Second(now()))
if request.servervariables("REQUEST_METHOD")="POST" then 
	FormSize=Request.TotalBytes 
	FormData=Request.BinaryRead(FormSize)
	strSaveFileName =strNow &".jpg"
	set dr=server.CreateObject("Adodb.Stream")
	dr.Mode=3
	dr.Type=1
	dr.Open
	dr.Write(FormData)
	dr.SaveToFile(Server.MapPath("photo") & "\" & strSaveFileName),2
	dr.Close
	set dr=nothing
end if
response.Write "picID="+strSaveFileName
%>