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

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

多个表单和多个图片一起上传完美解决方案 时间：2004/11/7 3:01:00来源：本站整理作者：蓝点我要评论(0): upload.inc

在提交的叶面使用

保存的叶面

将upload.inc包含

处理 SSI 文件时出错

<%

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

%>

文章评论

查看所有0条评论>>

发表评论

我来说两句...

热门文章 没有查询到任何记录。