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

%>