关于数据计算器一问？ 希望各位GG帮助MM啊！！！！

[Any81]

首先建立一个数据库:test_db
然后建立一个表：counter （一个字段 num ,长整型）
然后建立数据源（系统DNS:test）
最后编写一个ASP文件，代码如下：

你是第
<%
dim conn,rs,count_num.sql
'开始数据库
set conn=server.createobject("ADODB.connection")
'创建连接对象
conn.open"dsn=test;uid=zhang;pwd=zhang"
'执行sql语句，生成记录
set rs=conn.execute("select * from counter")
response.write rs("num")
count_num=rs("num")
count_num=count_num+1
sql="update counter set num=" & count_num
conn.Execute(sql)
%>
位

为什么在运行时出错，如下：
HTTP 500 - 内部服务器错误
Internet Explorer

希望各位GG帮助MM！
说明：由于本人没有积分， 分数太低不要见怪！^^_
（到底哪里错了！）

[liwb]

count_num=count_num+1
这里加一句rs.close
sql="update counter set num=" & count_num

[szhuk]

第一你的数据库是不是有数据，如果没有数据
response.write rs("num")就会出错
第二你的num字段的属性是什么，
第三，如果前两个问题确定没问题，你将sql语句输出，在数据库中执行一下，看有什么问题

你是第
<%
dim conn,rs,count_num.sql
'开始数据库
set conn=server.createobject("ADODB.connection")
'创建连接对象
conn.open"dsn=test;uid=zhang;pwd=zhang"
'执行sql语句，生成记录
set rs=conn.execute("select * from counter")
if not rs.eof then
response.write rs("num")
count_num=rs("num")
count_num=count_num+1
sql="update counter set num=" & count_num
conn.Execute(sql)
else
conn.Execute("insert counter(num values(1))")
end if
rs.close
%>
位

[linday]

没有必要吧，，就直接是更新数据不就得了
<%
dim conn,rs,count_num.sql
set conn=server.createobject("ADODB.connection")
conn.open"dsn=test;uid=zhang;pwd=zhang"
set rs=conn.execute("select * from counter")
if not rs.eof then
response.write rs("num")
conn.execute("update counter set num=num+1")
else
conn.Execute("insert counter(num values(1))")
end if
rs.close
conn.close
%>

[genuis]

set rs=conn.execute("select * from counter")
换成
sql="Select * From Counter"
rs.Open sql,conn,1,1

看看。

[allforly]

count_num=rs("num")
count_num=Cint(count_num+1)

[popcode]

有数据没？