请教大家，我的毕业设计要把填空题的答案和正确答案进行对比，一个填空题还有多个空，而我的答案在数据库里只有一个字段，该如何实现？

用Split函数
例如
:
Dim TempStr
Dim TempAry
Dim i
TempStr="abc|def|ghi|jkl|mno|pqu|vwx|yz"
TempAry=Split(TempStr,"|")
For i=0 To UBound(TempAry)-1
Response.Write "TempAry("&CStr(i)&")="&TempAry(i)
Next

[此贴子已经被作者于2006-6-1 12:56:47编辑过]

高手！！！！
还想问一下，这样的话是不是要把数据库里的答案字段改成abc|def|ghi|jkl|mno|pqu|vwx|yz这样的形势？
TempAry("&CStr(i)&")="&TempAry(i)是什莫意思呢？

TempAry("&CStr(i)&")="&TempAry(i)是什莫意思呢？
这句就是显示用Split函数分出来的数组的内容。
把答案字段改成abc|def|ghi|jkl|mno|pqu|vwx|yz这样的形势。
就可以资格字段存储多个答案，不过答案中最好不要有|这种字符。
或者可以用一些少有的特殊字符来分隔
TempAry=Split(TempStr,"@")
答案就写成
abc@def@ghi@jkl@mno@pqu@vwx@yz
这种形式来分隔。

楼上的朋友，我还是不明白，我给你发一段我的代码，你能帮我看一下怎莫改吗？

set wyrs3=server.CreateObject("adodb.recordset")
wysql3="select * from "&session("mdb")&" where kemu='"&kemu&"' and type='3'"（类型为填空）
wyrs3.open wysql3,conn,1,1
do while not wyrs3.eof
tkwy=tkwy+1
tkanws=request.Form("tk"&tkwy)--这是从递交表单取出的用户填空题答案
tkanw=replace(replace(tkanws,"",""),"","")
tkan=trim(wyrs3("answer"))
if tkanw=tkan then --tkan是正确答案
tkzf=tkzf+tkfs --tkzf是总分，如果相等就总分增加
end if
wyrs3.movenext
loop
我想问，如何把上面简单的tkanw=tkan 条件语句，变成用分割符表示出来的多个空的对比？用一个for语句循环就行吗？
还有，显示用户答案和正确答案的时候，怎莫把那些分隔符去掉呢？
谢谢了！！！！！！！！！！！！！！！！！！11

Split分隔成数组后就已经把分隔符去掉，或者
可以用Replace函数去掉分隔符
如TStr=Replace("abc@def@ghi@jkl@mno@pqu@vwx@yz","@","")
这样就把@给去掉了。