If Pjobs="sav" Then Sql_Str="SELECT "&Did&","&Dmc&","&Dlx&","&Dmem&","&Ddata&" FROM "&ImagTbname fu_Rs.open Sql_Str,fu_Conn,3,3 fu_Rs.addnew If IDLX < 2 Then fu_Rs(Did) =MakeTheID() End If fu_Rs(Dmc) =Request("mc") fu_Rs(Dlx) =Request("lx") fu_Rs(Dmem) =Request("mem") fu_Rs(Ddata).AppendChunk GetImageData(JCID(MaxSize)) fu_Rs.update fu_Rs.Close fu_Rs.open Sql_Str,fu_Conn,3,3 fu_Rs.MoveLast Response.write "<SCRIPT LANGUAGE=JAVASCRIPT>"&vbCrlf Response.write "parent.POMem.ImageID.value='"&fu_Rs(Did)&"';"&vbCrlf Response.write "parent.bc.innerHTML='已成功保存数据!';" Response.write "</SCRIPT>"&vbCrlf End If Else If IDLX > 0 Then Sql_Str="SELECT "&Did&","&Dmc&","&Dlx&","&Dmem&","&Ddata&" FROM "&ImagTbname&" WHERE ("&Did&" ="&PPLX&")" Else Sql_Str="SELECT "&Did&","&Dmc&","&Dlx&","&Dmem&","&Ddata&" FROM "&ImagTbname&" WHERE ("&Did&" ='"&PPLX&"')" End If fu_Rs.open Sql_Str,fu_Conn,1,1 If fu_Rs.RecordCount >0 Then tempaa=Trim(fu_Rs(Dlx)) Response.Clear Response.Expires = -9999 Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-ctrol", "no-cache" Response.Buffer = TRUE Response.AddHeader "Content-Disposition:","attachment;filename="&fu_Rs(Dmc)&"."&tempaa Response.ContentType="application/"&Trim(fu_Rs(Dlx)) Response.Flush Response.BinaryWrite fu_Rs(Ddata) Response.End End If End If fu_Rs.Close fu_Conn.close Set fu_Rs = Nothing Set fu_Conn = Nothing End Function '**************************************************'''' '函数ID：0028[取得图像的类型|宽|高] '函数名：GetImageDx '作 用：取得图像的类型|宽|高 '参 数：filepath ---- 文件路径及文件命名 '返回值："类型|宽|高" '**************************************************'''' Public Function GetImageDx(ByVal filepath) DIM Tempsm,NBxx,WJXX(3) SET Tempsm = Server.CreateObject("ADODB.Stream") Tempsm.Mode=3 Tempsm.Type=1 Tempsm.Open Tempsm.LoadFromFile filepath NBxx=Hex(BinVal(Tempsm.Read(3))) WJXX(0)=NBxx WJXX(1)="0" WJXX(2)="0" If NBxx="464947" Then WJXX(0)="GIF" Tempsm.Read(3) WJXX(1)=BinVal(Tempsm.Read(2)) WJXX(2)=BinVal(Tempsm.Read(2)) End If If NBxx="FFD8FF" Then WJXX(0)="JPG" do do: p1=binVal(Tempsm.Read(1)): loop while p1=255 and not Tempsm.EOS if p1>191 and p1<196 then exit do else Tempsm.Read(binval2(Tempsm.Read(2))-2) do:p1=binVal(Tempsm.Read(1)):loop while p1<255 and not Tempsm.EOS loop while true Tempsm.Read(3) WJXX(2)=binval2(Tempsm.Read(2)) WJXX(1)=binval2(Tempsm.Read(2)) End If If Mid(NBxx,3)="4D42" Then Tempsm.Read(15) WJXX(0)="BMP" WJXX(1)=binval(Tempsm.Read(4)) WJXX(2)=binval(Tempsm.Read(4))
设为主页
收藏本站
相关文章: