查看: 64|回复: 3

[求助]新手紧急求助,大哥们帮忙帮忙!

[复制链接]

勇敢的心

电梯直达

1^#

发表于 2010-1-18 04:06:39 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

我需要将一个表单内数据提交到数据库.数据库服务器为neserver,用户名.SA.密码SA.数据库名.BCDATA.表为GOT.请看以下(SAVE.ASP)存盘代码.错在哪里!为什么提示505内部错误.

  '定义变量
  Dim sql, vscriqi, vbang, vgongd, vseep1, vseep2, vseep3, vseep5, vseep7, vseep8, vseep9, vseep10, vseep11, vseep12, vseep13, vseep14, vseep15, vseep16, vseep17, vseep18
  '从表单中接收数据到变量中
  vscriqi = Request("scriqi")
  vbang = Request("bang")
  vgongd = Request("gongd")
  vseep1 = Request("seep1")
  vseep2 = Request("seep2")
  vseep3 = Request("seep3")
  vseep5 = Request("seep5")
  vseep7 = Request("seep7")
  vseep8 = Request("seep8")
  vseep9 = Request("seep9")
  vseep10 = Request("seep10")
  vseep11 = Request("seep11")
  vseep12 = Request("seep12")
  vseep13 = Request("seep13")
  vseep14 = Request("seep14")
  vseep15 = Request("seep15")
  vseep16 = Request("seep16")
  vseep17 = Request("seep17")
  vseep18 = Request("seep18")
  'Server对象的CreateObject方法建立Connection对象
  Set Conn=Server.CreateObject("ADODB.Connection")
  Conn.ConnectionString="driver={SQL Server};server=ntserver;UID=sa;PWD=sa;Database=bcdata"
  Conn.Open
'在数据库表Users中插入新商品信息
   sql="INSERT INTO got ( scriqi, bang, gongd, seep1, seep2, seep3, seep5, vseep7, vseep8, vseep9, vseep10, vseep11, vseep12, vseep13, vseep14, vseep15, vseep16, vseep17, vseep18 ) VALUES('"& scriqi &"','" & vbang & "','"& gongd &"','"& seep1 & "','" & vseep2 & "','" & vseep3 & "','" & vseep5 & "','" & vseep7 & "','" & vseep8 & "','" & vseep9 & "','" & vseep10 & "','" & vseep11 & "','" & vseep12 & "','" & vseep13 & "','" & vseep14 & "','" & vseep15 & "','" & vseep16 & "','" & vseep17 & "','" & vseep18 & "')"
  Conn.Execute(sql)
Response.Write "<h2>上传数据已成功保存！</h2>"

收藏0