function sql(v)
 sql=replace(v,"'","''")
end function

StrSQL = "INSERT INTO [AInfo_GD] (SNo,AName,ANo) VALUES ('"&sql(No)&"','"&sql(UPstr)&"','"&sql(myGuid)&"')"
response.write StrSQL

------解决方案--------------------
探讨

解决了；
  Set objTypeLib = CreateObject("Scriptlet.TypeLib")
  myGuid = objTypeLib.Guid
  Set objTypeLib = Nothing
  myGuid = Replace(Replace(myGuid, "{", ""), "}", "")
此段代码来自网上，现将第四句，字符串处理方式改为
……


------解决方案--------------------
vbs的GUID都是用{}括起的，多'是不是其他内容造成的。一定要替换掉'或者替换为对应的实体''，要不你就等呗注入了

------解决方案--------------------
语句写着，单引号不配对。