Microsoft VBScript 运行时错误 '800a0006'
溢出: 'cint'
\admin\savenclass.asp, line 54
rs("money")=cint(request("nclassmoneya"))
添加 34799 数报错 如何解决
ASP电脑配置单网站 源码 不是ASPNET
<%
dim action,url,i,abc,anclassid,anclass,ya,yb,nclassname
anclassid=request("anclassid")
anclass=request.QueryString("anclass")
if trim(anclass)="" or trim(anclassid)="" then
response.write ""
end if
url="http://" & Request.ServerVariables("http_host") & finddir(Request.ServerVariables("url"))
action=request.QueryString("action")
select case action
'//添加新数据
case "add"
ya=request("nclass2")
if len(trim(ya))=0 then
response.write ""
else
nclassname=trim(request("nclass2"))
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from diy_nclass where nclass='"&nclassname&"' and anclassid="&request("anclassid"),conn,1,3
if rs.eof and rs.bof then
rs.AddNew
rs("anclassid")=cint(request("anclassid"))
rs("nclass")=trim(request("nclass2"))
rs("nclassidorder")=cint(request("nclassidorder2"))
rs("money")=cint(request("nclassmoney"))
rs("danwei")=request("danwei")
rs.Update
rs.Close
set rs=nothing
else
response.write""
response.end
end if
response.redirect url&"nclass.asp?id="&anclassid&"&anclass="&anclass
end if
'//修改数据
case "edit"
yb=request("nclass")
if len(trim(yb))=0 then
response.write ""
else
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from diy_nclass where nclassid="&request.QueryString("id"),conn,1,3
rs("nclass")=trim(request("nclass"))
rs("nclassidorder")=cint(request("nclassidorder"))
rs("money")=cint(request("nclassmoneya"))
rs("danwei")=trim(request("danweia"))
rs.update
rs.close
set rs=nothing
response.redirect url&"nclass.asp?id="&anclassid&"&anclass="&anclass
end if
'//删除数据
case "del"
anclassid=request.QueryString("anclassid")
conn.execute ("delete from diy_nclass where nclassid="&request.QueryString("id"))
response.redirect url&"nclass.asp?id="&anclassid&"&anclass="&anclass
end select
%>
<%
Function finddir(filepath)
finddir=""
for i=1 to len(filepath)
if left(right(filepath,i),1)="/" or left(right(filepath,i),1)="" then
abc=i
exit for
end if
next
if abc <> 1 then
finddir=left(filepath,len(filepath)-abc+1)
end if
end Function
%>
