您的位置：首页 → 网页设计 → ASP实例 → 多个表单和多个图片一起上传完美解决方案

多个表单和多个图片一起上传完美解决方案

时间：2004/11/7 3:01:00来源：本站整理作者：蓝点我要评论(0)

upload.inc









在提交的叶面使用

保存的叶面

将upload.inc包含



<%



function lngConvert2(strTemp)       

str1=leftb(strTemp,1)       

str2=rightb(strTemp,1)       

lngConvert2 = clng(ascb(str2) + ((ascb(str1) * 256)))       

end function       

       

function lngConvert(strTemp)       

str1=leftb(strTemp,1)       

str2=rightb(strTemp,1)       

len1=ascb(str1)       

len2=ascb(str2)       

lngConvert = clng(ascb(str1) + ascb(str2) * 256)       

end function

      

Dim FormData,FormSize       

FormSize=Request.TotalBytes       

FormData=Request.BinaryRead(FormSize)       

      

Set Fields = GetUpload(FormData)       

If Fields("newfile").FileName<>"" Then       

tempstr=Leftb(Fields("newfile").Value,10)       

tstr=chrb(255)&chrb(216)&chrb(255)&chrb(224)&chrb(0)&chrb(16)&chrb(74)&chrb(70)&chrb(73)&chrb(70)       

end if       

       

'提交页面的表单内容

txt1=Fields("txt1").Value

txt2=Fields("txt2").Value

txt3=Fields("txt3").Value

     

Set rs = Server.CreateObject("ADODB.Recordset")       

sql="select * from news"       

rs.open sql,conn,1,3     

'插入纪录  

rs.addnew       

rs("title")=title

rs("body")=content

rs("pub")=from

rs("up_date")=now()

set field=rs.fields("pic")       

field.appendchunk Fields("newfile").Value       

'多个图片一样处理

Rs.Update       

rs.close       

conn.close       

set rs=nothing       

set conn=nothing       

%>

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论