0then
response.write""
else
response.write""
endif
else
%>
""andsearch"all"then
finStr=","
pos=1
total=0
whileinstr(pos,search,finstr)>0
total=total+1
pos=instr(pos,search,finstr)+1
wend
'Response.Write""&total&""
'Response.Write""&str&""
sPart=Split(search,",")
dimling,yi,er,san,si,wu,liu,qi
iftotal=0then
ling=sPart(0)
endif
iftotal=1then
ling=sPart(0)
yi=sPart(1)
endif
iftotal=2then
ling=sPart(0)
yi=sPart(1)
er=sPart(2)
endif
iftotal=3then
ling=sPart(0)
yi=sPart(1)
er=sPart(2)
san=sPart(3)
endif
iftotal=4then
ling=sPart(0)
yi=sPart(1)
er=sPart(2)
san=sPart(3)
si=sPart(4)
endif
iftotal=5then
ling=sPart(0)
yi=sPart(1)
er=sPart(2)
san=sPart(3)
si=sPart(4)
wu=sPart(5)
endif
iftotal=6then
ling=sPart(0)
yi=sPart(1)
er=sPart(2)
san=sPart(3)
si=sPart(4)
wu=sPart(5)
liu=sPart(6)
endif
'qi=sPart(7)
endif
Rs_List.openstr,conn,1,1
Response.Write"显示字段"&search&"："
dowhilenotRs_List.Eof
ifsearch"all"andsearch""then
iftotal=0then
Response.WriteRs_List(ling)&""
endif
iftotal=1then
Response.WriteRs_List(ling)&""&Rs_List(yi)&""
endif
iftotal=2then
Response.WriteRs_List(ling)&""&Rs_List(yi)&""&Rs_List(er)&""
endif
iftotal=3then
Response.WriteRs_List(ling)&""&Rs_List(yi)&""&Rs_List(er)&""&Rs_List(san)&""
endif
iftotal=4then
Response.WriteRs_List(ling)&""&Rs_List(yi)&""&Rs_List(er)&""&Rs_List(san)&""&Rs_List(si)&""
endif
iftotal=5then
Response.WriteRs_List(ling)&""&Rs_List(yi)&""&Rs_List(er)&""&Rs_List(san)&""&Rs_List(si)&""&Rs_List(wu)&""
endif
iftotal=6then
Response.WriteRs_List(ling)&""&Rs_List(yi)&""&Rs_List(er)&""&Rs_List(san)&""&Rs_List(si)&""&Rs_List(wu)&""&Rs_List(liu)&""
endif
'Response.WriteRs_List(ling)&""&Rs_List(yi)&""&Rs_List(er)&""&Rs_List(san)&""&Rs_List(si)&""&Rs_List(wu)&""&Rs_List(liu)&""&Rs_List(qi)&""
else
Response.WriteRs_List("Hy_xh")&""&Rs_List("Hy_bh")&""&Rs_List("Hy_xm")&""&Rs_List("Hy_jp")&""&Rs_List("Hy_xb")&""&Rs_List("Hy_sr")&""&Rs_List("Hy_hydj")&""
endif
Rs_List.movenext
Loop
Rs_List.close
setRs_List=nothing
%>
如上，当search=all时，那段帮忙改成返回整行，谢谢！
|
