您的位置:首页网页设计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是什么

文章评论
发表评论

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

最新文章 迅雷新手完全入门手册 asp下面javascript上传图片限制格式大小方法告诉大家网页弹出窗口应用总结ASP常见错误类型大全asp常见错误分析和解决办法

人气排行 总是弹出visual studio 实时调试器 三种解决SQLSERVER存储过程及调用详解Asp获取真实IP地址ASP中连接Mssql的几种方法一个简单好用的UBB编辑器(含代码)如何用Split将字符串转换为数组并获取数组下ASP防止表单重复提交的办法告诉你免费的简单聊天室源代码