回 帖 发 新 帖 刷新版面

主题:下标越界怎么回事啊???

我还没输入数据,怎么就说我下标越界呢
<form action="" method="post">
<input type="text" name="text" size="10">请输入
<input type="submit" name="submit" value="确定">

<%


Dim text,str1

text=Trim(Request.Form("text"))

str1=split(text, " ")

Dim n,m

n = Cint(str1(0))
m = Cint(str1(1))

response.write n
%>
</form>

回复列表 (共1个回复)

沙发

因为你没有输入就执行了下面的代码 

改成
<%
act=request("action")
If act="" Then
%>
<form action="?action=s" method="post">
<input type="text" name="text" size="10">请输入
<input type="submit" name="submit" value="确定">
</form>
<%
End If
If act="s" then
Dim text,str1
text=Trim(Request.Form("text"))
str1=split(text, " ")
Dim n,m
n = Cint(str1(0))
m = Cint(str1(1))
response.write n
End if
%>

我来回复

您尚未登录,请登录后再回复。点此登录或注册