为什么不能进行赋值计算 - ASP技术论坛

已结贴√ 问题点数：20 回复次数：6

为什么不能进行赋值计算

<table style='border-collapse: collapse;table-layout:fixed;width:200pt'>
<%
name=Request.Form("v")

o(1,1)=name
FOR i=1 to 500
IF n(i,1)=name Then

ly.rar (3.01 KB)

o(2,1)=n(i,2):o(3,1)=n(i,3)
end IF:Next
%>

其中，红色部分的name直接用11代替，可以输出正确数据，而用name，就出现错误！

搜索更多相关主题的帖子: 赋值　

第 2 楼

得分:10

程序代码：

<%
Dim Conn,Driver,DBPath,Rs,m(500,13),n(500,4),o(500,4)
Set Conn=Server.CreateObject("ADODB.Connection")
Driver="Driver={Microsoft Excel Driver (*.xls)};"
DBPath="DBQ=" & Server.MapPath( "资料.xls" )
Conn.Open Driver & DBPath
Sql="Select * From [Sheet1$] where 个体>0"
Set Rs=Conn.Execute(Sql)
Do While Not Rs.EOF
     i=i+1
     n(i,1)=Rs("个体")
     n(i,2)=Rs("父本")
     n(i,3)=Rs("母本")
     Rs.MoveNext
Loop
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
<form method=post>
<table><tr><td>个体编号：<td><input type=text name ="v" size =12>
<input type=submit value ="确定">
</td><tr></table></form>
<table style='border-collapse: collapse;table-layout:fixed;width:200pt'>
<%
name=Request.Form("v")
IF Name<>"" Then
     o(1,1)=name
     FOR i=1 to 500
         IF n(i,1)=name Then
          o(2,1)=n(i,2)
          o(3,1)=n(i,3)
         end IF
     Next
End IF
%>
<tr><td colspan=2></td>
<td class=5>耳号 <%Response.Write o(2,1)%></td></tr>
<td class=5>耳号 <%Response.Write o(1,1)%></td></tr>
<tr><td colspan=2></td>
<td class=7>耳号 <%Response.Write o(3,1)%></td></tr>
</table>

第 3 楼

得分:0

yms123，你好
按照你的程序，我验证了
FOR i=1 to 500
         IF n(i,1)=name Then
          o(2,1)=n(i,2)
          o(3,1)=n(i,3)
         end IF
Next
还是不能在If...next循环体中调用name的数值，对 o(2,1）和o(3,1)赋值！
如果在ASP程序中对话框输入11，即给name赋值11，但是不能在If...next循环体体现。
若
IF n(i,1)=11 Then
          o(2,1)=n(i,2)
          o(3,1)=n(i,3)
end IF
就能输出正确结果！

[ 本帖最后由 dwsc103 于 2010-9-21 07:45 编辑 ]