应用开发与实践第16章综合案例——博客网站课案.pptVIP

Sub add() str1=Str_filter(Request.Form(相册类别)) str2=Str_filter(Request.Form(图片名称)) str3=Session(pic) filepath=Session(filepath) filename=GetFileName(now())GetExt(filepath) If str1 and str2 and str3 Then Set rs=Server.CreateObject(ADODB.Recordset) sqlstr=select * from tab_photo rs.open sqlstr,conn,1,3 rs.addnew rs(Pclass)=str1 rs(Pname)=str2 rs(Ppic)=filename rs(Pinfo).appendchunk str3 将二进制图片数据添加到数据库中 Session(pic)= Session(filepath)= rs.update 获取上传后记录的ID编号 temp=rs.bookmark rs.bookmark=temp fileID=rs(id) rs.close 将数据库中的文件保存到服务器 sqlstr=select *