ASP中数据库插入出现问题，附代码

Question

<%
sub SaveAdd
xm=trim(request("xm"))
sfzh=trim(request("sfzh"))
lxdh=trim(request("lxdh"))
dnlx=trim(request("dnlx"))
ppxh=trim(request("ppxh"))
ys=trim(request("ys"))
swfs=trim(request("swfs"))
ffdh=trim(request("ffdh"))
swzh=trim(request("swzh"))
mac1=trim(request("mac1"))
mac2=trim(request("mac2"))
mac3=trim(request("mac3"))
jsjm=trim(request("jsjm"))
ypxlh=trim(request("ypxlh"))
cpuxlh=trim(request("cpuxlh"))
cpxlh=trim(request("cpxlh"))
sydz=trim(request("sydz"))
szdw=trim(request("szdw"))
tbr=trim(request("tbr"))
tbdw=trim(request("tbdw"))
scsj=trim(request("scsj"))
sfbd=trim(request("sfbd"))



set rs=server.createObject("Adodb.recordset")
rs.open sql,conn
' MaxID=rs(0)
rs.close
set rs=nothing
Sql="insert into mac(xm,sfzh,lxdh,dnlx,ppxh,ys,swfs,ffdh,swzh,mac1,mac2,mac3,jsjm,ypxlh,cpuxlh,cpxlh,sydz,szdw,tbr,tbdw,scsj,sfbd) values(" & xm& ",'" & sfzh & "','" & lxdh & "','" & dnlx & "','" & ppxh & "'," & ys & "," & swfs & ",'" &ffdh & "','" & swzh & "','" & mac1 & "','" & mac2 & "','" & mac3 & "','" & ypxlh & "','" & cpuxlh & "','" & sydz & "','" & szdw & "','" & tbr & "','" & tbdw & "','" & scsj & "','" & sfbd & "')"
conn.execute Sql

end sub
%>
上面是网页中插入的代码，但是就是实现不了
还请各位指教啊

Answer 1

请问 conn 连接到哪里的数据库了，连接字符串在哪呢

Answer 2

rs.open sql,conn
打开了一个未知的语句

Answer 3

set rs=server.createObject("Adodb.recordset")
rs.open sql,conn
' MaxID=rs(0)
rs.close
set rs=nothing
把这段去掉
再不行的话你response.write(Sql)把输入的语句复制到查询分析器里执行一下，看看有没有错了

Answer 4

SaveAdd 根本没有执行到里面，还有input.asp　就是这个页面吗

Answer 5

sub SaveAdd 改为:if Request.ServerVariables["Request_Method"]="GET" then end sub 改为end if试试看

Answer 6

if Request.ServerVariables["Request_Method"]="GET" then 
提示这句有错误，少then

Answer 7

这样改了不行，我还是用的sub saveadd  end sub
我运行没什么错误，
还希望哪位能指导一下

Answer 8

操作数据库 链接提交数据的 Mothed 记得是使用 Post 

Answer 9

我之前已经改成post了，但还是不能实现数据库的插入，不知为何

Answer 10

你将SQL语句显示一下，将其复制到你的数据库查询设计器中，查看一下是不是你的SQL语句是不是有问题，如果没有问题的话，那就是连接数据库的问题