| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1482 人关注过本帖
标题:asp代码运行有时正常有时出错类型不匹配
只看楼主 加入收藏
guaishi
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2007-6-15
结帖率:100%
收藏
 问题点数:0 回复次数:12 
asp代码运行有时正常有时出错类型不匹配
<!--#include file="conn.asp"-->
<%  

a1=request.Form("a1")
a2=request.Form("a2")
a3=request.form("a3")
a4=request.Form("a4")
a5=request.form("a5")
a6=request.form("a6")
a7=request.form("a7")
a8=request.form("a8")
a9=request.Form("a9")
a10=request.Form("a10")
a11=request.Form("a11")
a12=request.Form("a12")
a13=request.form("a13")
a14=request.Form("a14")
a15=request.form("a15")
a16=request.form("a16")
a17=request.form("a17")
a18=request.form("a18")
a19=request.Form("a19")
a20=request.Form("a20")
a21=request.Form("a21")
a22=request.Form("a22")
a23=request.form("a23")
a24=request.Form("a24")
a25=request.form("a25")
a26=request.form("a26")
session("zong")=0+a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from [check] where xing='"&session("xing")&"'",conn,1,3
if rs.eof then
rs.addnew
rs("a1")=a1
rs("a2")=a2
rs("a3")=a3
rs("a4")=a4
rs("a5")=a5
rs("a6")=a6
rs("a7")=a7
rs("a8")=a8
rs("a9")=a9
rs("a10")=a10
rs("a11")=a11
rs("a12")=a12
rs("a13")=a13
rs("a14")=a14
rs("a15")=a15
rs("a16")=a16
rs("a17")=a17
rs("a18")=a18
rs("a19")=a19
rs("a20")=a20
rs("a21")=a21
rs("a22")=a22
rs("a23")=a23
rs("a24")=a24
rs("a25")=a25
rs("a26")=a26
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
language='javascript'>alert('记录完成');window.location.href='reg.asp';</script>"
else
response.write"<script language='javascript'>alert('你填写过一次了');window.location.href='reg.asp';</script>"
end if
%>


session("zong")=0+a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26
这句话报错
搜索更多相关主题的帖子: asp 类型 代码 运行 
2008-05-21 20:24
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
是不是有的an,n=1,2,3,...,26是空字符串?
vbscript里的加法,如果能转换为数值就按数值计算的,这里你已经写了个0它就一定要转换为数值计算的对吧?但是空字符串没法转换为数值计算.你可以在an,n=1,2,3,...,26前面并上一个"0",这样就可以计算了,但是对于负数无法处理.

更建议你不要利用vbscript对于语法的宽松,这样写是给自己找麻烦.
2008-05-21 20:29
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5810
专家分:118
注 册:2005-4-7
收藏
得分:0 
取过来的值应该是被认为是字符串类型的,而你第一个相加的是0 是数字类型的
如果你保证你的a1,a2,a3,a4所输入的全是数字但还是有问题,那就强制把a1,a2,a3等转换成数字类型

2008-05-21 20:54
guaishi
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2007-6-15
收藏
得分:0 
有负数呀。强转化成整形也报错呀

网络改变了我,编程改变了我的生活
2008-05-21 21:23
guaishi
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2007-6-15
收藏
得分:0 
为空是不可能的前一个页面做了JS检测

网络改变了我,编程改变了我的生活
2008-05-21 21:24
guaishi
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2007-6-15
收藏
得分:0 
是不是正常的时候没有负数呀,有负的情况下如何做

网络改变了我,编程改变了我的生活
2008-05-21 21:25
live14
Rank: 1
等 级:新手上路
帖 子:74
专家分:0
注 册:2005-8-19
收藏
得分:0 
fuunction sz(str)
if IsNumeric(str) then
sz=cint(str)
else
sz=0
end if
end function


session("zong")=0+sz(a1)+sz(a2)。。。。。

这样测试一下

冰冷嘅一場雨,冰冷嘅記憶,轉載係風中嘅思念,成爲咗尋晚,心痛嘅痕跡..
2008-05-21 21:27
guaishi
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2007-6-15
收藏
得分:0 
负数会不会变成0

网络改变了我,编程改变了我的生活
2008-05-21 21:33
live14
Rank: 1
等 级:新手上路
帖 子:74
专家分:0
注 册:2005-8-19
收藏
得分:0 
不会
负数也是NUM类型的

冰冷嘅一場雨,冰冷嘅記憶,轉載係風中嘅思念,成爲咗尋晚,心痛嘅痕跡..
2008-05-21 21:57
guaishi
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2007-6-15
收藏
得分:0 
谢谢通过了,谢谢你们了

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



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

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