| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1482 人关注过本帖
标题:asp代码运行有时正常有时出错类型不匹配
只看楼主 加入收藏
google
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:3419
专家分:23
注 册:2005-11-1
收藏
得分:0 
注意一下运行结果是不是正确,如果你确保每个输入都不为空,并且每个输入都是数字类型的话,那sz这个函数起到的作用就是cint,如果你输入的错误了,比如你输入了字母,sz这个函数强制把字母转换成了0,虽然程序没有报错,但是计算结果可能就不是你想的那个计算结果了

祝天下所有母亲幸福安康!~
2008-05-22 10:33
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
如果是这种整数加法的ASP运算代码楼主可以使用循环来做
<%
   Dim NumAry(26),i,Total,IsError,temp,rs
   IsError=False
   For i=1 To 26
       temp=Request.Form("a"&CStr(i))
       NumAry(i)=CInt(temp)
       Total=Total+CInt(Temp)
   Next
   session("zong")=Total
   set rs=server.CreateObject("adodb.recordset")
   rs.open "select * from [check] where xing='"&session("xing")&"'",conn,1,3
   Response.Write "<script language=javascript >"
   IF rs.EOF Then
      rs.addNew
      For i=1 To 26
          Dim FieldName
          FieldName="a"&CStr(i)
          rs(FieldName)=NumAry(i)
      Next
     rs("zong")=session("zong")
     rs("user")=session("user")
     rs("xing")=session("xing")
     rs("arress")=session("arress")
     rs.update
     rs.close
     set rs=nothing
     conn.close
     set conn=nothing
     Response.Write "alert('记录完成');"
     Response.Write "window.location.href='reg.asp';"
else
     Response.write "alert('你填写过一次了');"
     Response.Write "window.location.href='reg.asp';"
end if
Response.Write "</script>"
%>
这种情况下应该使用循环或数组来完成操作。
2008-05-22 14:59
guaishi
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2007-6-15
收藏
得分:0 
有负数存在,第一次我也是用数组来做的,负数存在搞的老是报错

网络改变了我,编程改变了我的生活
2008-05-24 08:48
快速回复:asp代码运行有时正常有时出错类型不匹配
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019239 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved