uploadpicsmall.asp

程序名称：酷虎网校友录 V1.0 （商业版）*(修改版） * 本软体为商业软件

<!--#include file="conn.asp"-->
<%IF Session("User")="" Then Response.Redirect "error.asp"%>
<%
FormSize=Request.TotalBytes
FormData=Request.BinaryRead(FormSize)
bnCRLF=chrB(13) & chrB(10)
Divider=LEFTB(FormData,INSTRB(FormData,bnCRLF)-1)
DataStart=INSTRB(FormData,bnCRLF & bnCRLF)+4
DataEnd=INSTRB(DataStart+1,FormData,divider)-DataStart
'Response.ContentType="image/gif"
PicData=MIDB(FormData,DataStart,DataEnd)
SQL="Select * From 注册信息 Where 姓名='" & Session("User") & "'"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Conn,3,2
IF Not RS.EOF Then
RS("小图片")=PicData
RS.Update
End IF
Response.Redirect "upload.asp?action=suc"
%>