Question

从textarea里面获取多个用空格分割的条件 查询数据库

需要同时查询一组学生的成绩,在一个textarea中输入 张三 李四

然后从数据库中查询相应学生的分数

不知道问题够不够明确,最好有现成的代码拉 呵呵

Answer 1

你要的代码,没有读数据库的:
<form id="form1" name="form1" method="post" action="?menu=post" onsubmit="return checkText()">
<textarea name="text" id="text"></textarea>
<input type="submit" name="Submit" value="提交" />
</form>
<%
If Request("menu")="post" Then
Dim a,i
a=Replace(Trim(Request("text")),chr(13)," ")
a=Split(a," ")
For i=Lbound(a) To Ubound(a)
If a(i)<>"" Then
Response.Write "学生:"&a(i)&"<br>"
End If
Next
End If
%>

读数据库的(你在for循环中加入数据库读取语句就行了):

<form id="form1" name="form1" method="post" action="?menu=post" onsubmit="return checkText()">
<textarea name="text" id="text"></textarea>
<input type="submit" name="Submit" value="提交" />
</form>
<%
If Request("menu")="post" Then
Dim a,i
a=Replace(Trim(Request("text")),chr(13)," ")
a=Split(a," ")
For i=Lbound(a) To Ubound(a)
If a(i)<>"" Then
Response.Write "学生:"&a(i)&" 成绩："&conn.Execute("Select 成绩 From 成绩表 Where 学生='"&a(i)&"'")(0)&"<br>"
End If
Next
End If
%>

Answer 2

上面波迪把程序都写出来了，还有一个小问题就是
a=Replace(Trim(Request("text")),chr(13)," ")
a=Replace(Trim(Request("text"))," "," ")
要把中文的空格也转换成英文空格