dim userid
  '将单引号改为双引号
   function sqlstr(data)
     sqlstr="'" & Replace(data,"'","''") & "'"
   end function




ssql="update users set name=" & sqlstr(name) & ",address=" & sqlstr(address)
   ssql=ssql & ",idnumber=" & sqlstr(idnumber) & ",age=" & sqlstr(age)
   ssql=ssql & ",zipcode=" & sqlstr(zipcode) & ",phone=" & sqlstr(phone)
   ssql=ssql & ",email=" & sqlstr(email)
   ssql=ssql & " where userid=" & sqlstr(userid)这里为什么没有"
一般sql语句ssql="update users set name='  ' where xxxxx "
为什么它没有"

sqlstr是在ASP里定义的函数，而且处于那句话的最后所以可以不用双引号。

yms123:
多谢，但我还不明白，sqlstr是在ASP里定义的把data中的单引号变成双引号的自定义函数，它与SQL语句有什么关系？请详细指教。多谢了。

在ASP里你要把SQL语句看成是字符串就明白了，楼主对ASP里的字符串操作应该会吧？

而且在SQL语句里数字类型的字段做查询时不需要双引号。

yms123:
 我书中的数据库userid是文本型的，SQL当然是字符串的，它把4个ssql相加形成一个ssql的字符串既然是字符串后面应加".
我试了一下不加双引号程序能运行，若加了就不行了 ：where userid=" & sqlstr &"，如果要加怎样加。

"update ****** where userid=" & sqlstr &"" 成双成对

where userid="&sqlstr&""
最后的可以省略写成
where userid="&sqlstr