比较简单的问题,如果写一个函数返回所提交表单的Fields,马上给分!!!谢谢

[ervinlj]

我看了一段程序,程序是这样的:
Set Fields = GetUpload()

For Each Field In Fields.Items
if Field.name = "title" then title = BinaryToString(Field.value)
if Field.name = "content" then content = BinaryToString(Field.value)
if Field.name = "from" then from = BinaryToString(Field.value)

if Field.name = "file1" then
filename = field.FileName
fileContentType = field.ContentType
filevalue = field.value
end if
next

但是函数GetUpload的源代码没有提供,那位高人能告诉我这个GetUpload方法怎样写吗?
谢谢,马上给分!!!

[竹林听雨2005]

不明白，我都不知道这个函数是干什么的，哪敢说写就写？

[笨笨兔兔兔兔兔]

是组件上传,还是无组上传

[ervinlj]

我也不是很明白呀 完整的代码如下:
<!--#include file="conn_pic.asp"-->
<!--#include file="fupload.inc"-->

<%
Set Fields = GetUpload()

For Each Field In Fields.Items
if Field.name = "title" then title = BinaryToString(Field.value)
if Field.name = "content" then content = BinaryToString(Field.value)
if Field.name = "from" then from = BinaryToString(Field.value)

if Field.name = "file1" then
filename = field.FileName
fileContentType = field.ContentType
filevalue = field.value
end if
next

sql = "select * from fileTest"
rs.Open sql,conn,1,3
rs.addnew

if filename <> "" then
rs("filename") = filename
rs("fileType") = fileContentType
rs("fileContent").appendchunk filevalue
end if
rs.Update
rs.close
set rs = nothing
%>
以二进制写入sql

我猜测Field返回的可能是前面表单的各个输入域把
但如何写这个返回Fields的GetUpload方法我不会呀

[ervinlj]

无组件上传