一个获取表单数据的问题，各位DX来看一下

[disha8888]

比如这样一个表单

<form method="POST" action="addzt_save.asp" enctype="multipart/form-data" >
标题 <input maxlength=300 name=title size=55 class=smallInput>
内容<textarea cols=55 name=Content rows=15 class=smallInput></textarea>
</form>

抛开组件不说，如果用纯ASP怎么怎么获取到title 与content的值？在asp中不能直接读取二进制表单对象的值，我看了上传组件没看明白。

[甘泉123]

dim sinfo_Stream
Set Sinfo_Stream = Server.CreateObject("adodb.stream")
Sinfo_Stream.Type = 1 ''2进制流
Sinfo_Stream.Mode = 3 ''读写模式
Sinfo_Stream.Open
Sinfo_Stream.Write formdata ''保存二进制内容到流对象
''分离数据变量
dim VbEnter
dim spStr,lenOfspStr,bpos
dim loopcnt,exitflag,ppoint,npoint
''保存数据变量
dim FldData,fldHeadStr,infldpos
dim databpos,datalen
dim FldInfo(15,1)
''fldInfo(0)表单头内容
''fldInfo(1)表单数据

VbEnter = chrb(13)&chrb(10)''读取第一个VbEnter位置
bpos = Instrb(formdata,VbEnter)
SpStr = midb(formdata,1,bpos+1) ''包含了一个0d0a
LenOfspStr = lenb(Spstr)
ppoint = LenOfspStr+1 ''位置指针,指向每一个表单域内容的开始位置
formdata = midb(formdata,ppoint)
loopcnt = 0 ''表单元素
do
bpos = instrb(formdata,spStr) ''分割位置
npoint = (ppoint+bpos+lenofspstr-1) ''指向下一表单开始位置
if bpos < 1 then
fldData = midb(formdata,1,instrb(formdata,leftb(spStr,lenOfspstr-2))-1)
bpos = lenb(fldData)+1
exitflag = true
else
FldData = leftb(formdata,bpos-1)
formdata = midb(formdata,bpos+LenOfspstr)
end if
infldpos = instrb(fldData,vbEnter&vbEnter)
fldHeadStr = bytes2bstr(midb(fldData,1,infldpos-1))
fldInfo(loopcnt,0) = fldHeadStr ''表单头
''Response.Write fldHeadStr&"<br>"
databpos = (ppoint+infldpos-1+4)
Sinfo_Stream.Position = databpos-1
datalen = (bpos-infldpos-6)
if datalen = 0 then
fldInfo(loopcnt,1) = ""
else
fldInfo(loopcnt,1) = Sinfo_Stream.Read(datalen)
end if
ppoint = npoint
loopcnt = loopcnt + 1
loop until exitflag = true
Sinfo_Stream.close
Set Sinfo_Stream = Nothing


''以上程序数据处理过程

摘自“丁书记的上传程序”，版权归原作者所有

[cuipi2003]

用request对象取不到吗？

[sxsgssgs]

把这个去掉enctype="multipart/form-data"

用request("title")和request("content")一定能取到。

[甘泉123]

Sinfo_Stream.Type = 1

[troopers]

request.form("title")
request.form("content")
纯asp就这样啊

[hnfz123]

request() 来取值，一定能取到的呀，！！

[disha8888]

还有一个文件框，我没有贴出来，所以不能去掉enctype="multipart/form-data"

<form method="POST" action="addzt_save.asp" enctype="multipart/form-data" >
标题 <input maxlength=300 name=title size=55 class=smallInput>
内容<textarea cols=55 name=Content rows=15 class=smallInput></textarea>
上传文件 <input type="file" name="file">
</form>

如果去掉就少了一个框了：）

[flying310]

如果是上传的那个就要用:文件名.form("对象")
要是普通的就request.item("对象名")