急!!!ASP数据库取数据存入数组
<formaction="link.asp"method="post"><inputtype="text"name="textname"/><inputtype="sub...
<form action="link.asp" method="post">
<input type="text" name="textname" />
<input type="submit" name="sumitname" />
</form>
从这个表单中得到的数据存入数组A中 a=split(request.Form("textname"),",")
我数据库的表中有2列 如下:
K F
王二 好
现在要 把 F 列的数据存入数组 B 中,其中 B 中的数据要和 A 中的人名一一对应,A 中得到的人名就是 K 列下有的,若没有 则 输出 无此信息。
整个的 我 是想 得到 数组 A 和 B A和B 中的数据是一一对应的
之后 我就要用这两个数组了
ASP中数据库中 的这块 不懂 望各位大哥大姐 帮帮忙
具体点该如何
这么 说吧
我有个表
姓名 成绩
王二 150
李四 130
我现在呢 要求 在表单中输入学生的姓名 得到学生的成绩
姓名组成一个数组 成绩成另外一个数组
姓名这个数组要与成绩这个数组 对应上 王二 对应 150 李四对应 130
姓名数组 (王二,李四) 成绩数组 (150,130)
主要的就是要得到 这两个数组 展开
<input type="text" name="textname" />
<input type="submit" name="sumitname" />
</form>
从这个表单中得到的数据存入数组A中 a=split(request.Form("textname"),",")
我数据库的表中有2列 如下:
K F
王二 好
现在要 把 F 列的数据存入数组 B 中,其中 B 中的数据要和 A 中的人名一一对应,A 中得到的人名就是 K 列下有的,若没有 则 输出 无此信息。
整个的 我 是想 得到 数组 A 和 B A和B 中的数据是一一对应的
之后 我就要用这两个数组了
ASP中数据库中 的这块 不懂 望各位大哥大姐 帮帮忙
具体点该如何
这么 说吧
我有个表
姓名 成绩
王二 150
李四 130
我现在呢 要求 在表单中输入学生的姓名 得到学生的成绩
姓名组成一个数组 成绩成另外一个数组
姓名这个数组要与成绩这个数组 对应上 王二 对应 150 李四对应 130
姓名数组 (王二,李四) 成绩数组 (150,130)
主要的就是要得到 这两个数组 展开
2个回答
展开全部
'假设你的CONNECTION对象变量为conn
dim a,b()
dim l,lu
strData=Trim(request.Form("textname"))
a=split(request.Form("textname"),",")
lu=ubound(a)
redim b(lu)
for l=0 to lu
a(l)=trim(a(l))
b(l)="无此信息"
Next
strData=replace(strData,", ",",")
strData=replace(strData," ,",",")
strData="'" & replace(strData,",","','") & "'"
strSql="SELECT * FROM 数据表 WHERE K in (" & strData & ")"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,1,1
while not rs.eof
strData=rs("K")
for l=0 to lu
if strData=a(l) then
if Not (rs("F")="" or isnull(rs("F"))) then b(l)=rs("F")
exit for
end if
next
rs.movenext
wend
rs.close
set rs=nothing
'数组a,b分别存放满足你要求的数据
dim a,b()
dim l,lu
strData=Trim(request.Form("textname"))
a=split(request.Form("textname"),",")
lu=ubound(a)
redim b(lu)
for l=0 to lu
a(l)=trim(a(l))
b(l)="无此信息"
Next
strData=replace(strData,", ",",")
strData=replace(strData," ,",",")
strData="'" & replace(strData,",","','") & "'"
strSql="SELECT * FROM 数据表 WHERE K in (" & strData & ")"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,1,1
while not rs.eof
strData=rs("K")
for l=0 to lu
if strData=a(l) then
if Not (rs("F")="" or isnull(rs("F"))) then b(l)=rs("F")
exit for
end if
next
rs.movenext
wend
rs.close
set rs=nothing
'数组a,b分别存放满足你要求的数据
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询