标题:关于ASP中SQL的UPDATE问题请教
取消只看楼主
paulyb
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-11-22
 问题点数:0 回复次数:6 
关于ASP中SQL的UPDATE问题请教
又要麻烦大家了,我有个ASP文件,是向SQL存数据的,添加新的数据没有问题,就是再UPDATE时候总是有错误,看了半天也没看出什么错误,现把代码全部粘帖出来,想请大家帮忙看看!!

<!--#include File="../ConnDB.asp"-->
<!--#include file="isAdmin.asp"-->
<html>
<head>
<title>编辑客户信息</title>
</head>
<body>
<%
  Function changechr(str)
    changechr = Replace(str," "," ")
    changechr = Replace(changechr,Chr(13),"<br>")
  End Function
  Dim GName
  Dim StrAction
  '得到动作参数,如果为add则表示添加新商品,如果为update则表示更改商品
  StrAction = Request.QueryString("action")
  '取得商品题目和内容和提交人用户名
  CName = Trim(Request("co_name"))
  CName = Replace(CName ,"'","‘")
  GName = Trim(Request("name"))
  GName = Replace(GName ,"'","‘")
  rqtContent = changechr(Request("Content"))   '替换函数
  rqtContent = Replace(rqtContent,"'","‘")  '替换内容中的单引号
  Set rs = Server.CreateObject("ADODB.RECORDSET")
  If StrAction="add" Then
    '在数据库表Goods中插入新商品信息
    sql="Select * from LedCompany"
    rs.Open sql,Conn,1,3
 rs.AddNew
 rs("FirstTypeId") = CInt(Request.Form("firsttypeid"))
 rs("SecondTypeId") = CInt(Request.Form("secondtypeid"))
 rs("ThirdTypeId") = CInt(Request.Form("thirdtypeid"))
 rs("Co_Name")= CName
 rs("Sn_Number")= Request("number")
 rs("Co_Info") = CInt(Request.Form("Co_Info"))
 rs("Posttime")=now()
 rs("Web_Address") = Request("webadress")
 rs("Address") = Request("adress")
 rs("ImageFile") = request("upimage")
 rs("Name")= GName
 rs("Mobile")= Request("mobile")
 rs("Email")=Request("email")
 rs("Telephone")=Request("telephone")
 rs("Fax")=Request("fax")
 rs("Content")=rqtContent
 rs.Update
  Else
    '更改此商品信息
    id = Request.QueryString("id")
    sql = "Update LedCompany Set FirstTypeId="&CInt(Request.Form("FirstTypeId"))&",SecSecondTypeId"))&",ThirdTypeId="&CInt(Request.Form("ThirdTypeId"))&",Co_Name='"&CName&"',Sn_Number='"&Request("number")&"',Co_Info="&CInt(Request.Form("Co_Info"))&",Posttime='"&now()&"'" &_
     ",Web_Adress="&Request("webadress")&",Adress="&Request("adress")&",Name='"&GName&"',Mobile='"&Request("mobile")&"',Email='"&Request("email")&"',Telephone='"&Request("telephone")&"',Fax='"&Request("fax")&"'" &_
     ",Content='"&rqtContent&"' Where id="&CInt(id)
   
    Conn.Execute(sql)
  End If
  Set rs = Nothing
  response.write "<h3>客户成功保存</h3>"
%>
</body>
<script language="javascript">
  // 刷新父级窗口,延迟此关闭
  opener.location.reload();
  setTimeout("window.close()",600);
</script>
</html>
搜索更多相关主题的帖子: SQL UPDATE ASP 
2007-11-26 14:36
paulyb
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-11-22
得分:0 
原帖由 [bold][underline]MikeFT[/underline][/bold] 于 2007-11-26 15:03 发表 [url=http://bbs.][/url]
你能说一下是什么错误吗???


UPDATE语句第一行“,”附近有错误,估计还是语句不对
2007-11-26 15:59
paulyb
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-11-22
得分:0 
原帖由 [bold][underline]hmhz[/underline][/bold] 于 2007-11-26 15:19 发表 [url=http://bbs.][/url]
FirstTypeId="&CInt(Request.Form("FirstTypeId"))&",SecSecondTypeId"))&"
不明白你这句是什么意思!

sql = "Update LedCompany Set FirstTypeId="&CInt(Request.Form("FirstTypeId"))&",SecSecondTypeId"))&",ThirdTypeId="&CInt(Request.Form("ThirdTypeId"))&",Co_Name='"&CName&"',Sn_Number='"&Request("number")&"',Co_Info="&CInt(Request.Form("Co_Info"))&",Posttime='"&now()&"'" &_
     ",Web_Adress="&Request("webadress")&",Adress="&Request("adress")&",Name='"&GName&"',Mobile='"&Request("mobile")&"',Email='"&Request("email")&"',Telephone='"&Request("telephone")&"',Fax='"&Request("fax")&"'" &_
     ",Content='"&rqtContent&"' Where id="&CInt(id)

我重新帖了这段代码,前面没有粘帖完整
2007-11-26 16:00
paulyb
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-11-22
得分:0 
版主能在帮我看看吗
2007-11-27 09:10
paulyb
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-11-22
得分:0 
我现在又改了改
但是还有错误,错误信息为:
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft VBScript 编译器错误 错误 '800a0409'

未结束的字符串常量

/caiguang/admin/GoodsSave.asp,行55

",Content='"&rqtContent&"' Where id="&CInt(id)&"
------------------------------------------------^


代码如下:
id = Request.QueryString("id")
    sql = "Update LedCompany Set FirstTypeId="&CInt(Request.Form("FirstTypeId"))&",SecondTypeId="&CInt(Request.Form("SecondTypeId"))&",ThirdTypeId="&CInt(Request.Form("ThirdTypeId"))&",Co_Name='"&CName&"',Sn_Number='"&Request("number")&"',Co_Info="&CInt(Request.Form("Co_Info"))&",Posttime='"&now()&"'" &_
        ",Web_Adress="&Request("webadress")&",Adress="&Request("adress")&",Name='"&GName&"',Mobile='"&Request("mobile")&"',Email='"&Request("email")&"',Telephone='"&Request("telephone")&"',Fax='"&Request("fax")&"'" &_
           ",Content='"&rqtContent&"' Where id="&CInt(id)&"
    Conn.Execute(sql)
  End If
  Set rs = Nothing
  response.write "<h3>客户成功保存</h3>"
2007-11-27 14:14
paulyb
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-11-22
得分:0 
原帖由 [bold][underline]madpbpl[/underline][/bold] 于 2007-11-27 14:53 发表 [url=http://bbs.][/url]
",Content='"&rqtContent&"' Where id="&CInt(id)&"
改成
",Content='"&rqtContent&"' Where id="&CInt(id)&""

",Content='"&rqtContent&"' Where id="&CInt(id)

谢谢LS的帮助,但改完后又出现新错误
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]第 1 行: ',' 附近有语法错误。
/caiguang/admin/GoodsSave.asp, 第 57 行
2007-11-27 14:59
paulyb
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-11-22
得分:0 
57行代码:
    Conn.Execute(sql)
是这条
2007-11-27 15:34



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-188492-1-1.html




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

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