天津塘沽公司:Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
来源:百度文库 编辑:查人人中国名人网 时间:2024/10/05 22:03:48
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]第 1 行: '=' 附近有语法错误。
Modify_User.asp, 第 37 行
源码:
<!-- #include file="../conn/conn.asp"-->
<%
'================================================================================
'名 称:保存用户
'功 能:保存修改了的用户信息。
'创建日期:2001年03月16日
'作 者:kitty
'最后更新:2003年04月17日
'更新作者:kitty
'版 权:kitty
'================================================================================
'Set obj = Server.CreateObject("LyfUpload.UploadFile")
'obj.extname="gif,jpg,bmp"
set myfileobject=server.CreateObject("scripting.filesystemobject")
mypath=server.MapPath("../")
mypathnew=mypath+"/Sysmana_02022005/photos"
if myfileobject.FolderExists(mypathnew) then
'id= Obj.request("id")
'SurName=obj.Request ("surname")
Name=" "
userName=SurName
'yxbh=obj.Request("yxbh")
'UserMemo=obj.request("usermemo")
'ZhZt = Obj.Request("ZhZt")
Set Rs = createobject("ADODB.RecordSet")
strQ="select SurName,Jysbh,UserName,Name,Password,yxbh,UserMemo,UserPicture,ZhZt from UserTable where [DAV:id]="& id
Rs.Open strQ, conn,3,2
rs.fields("SurName")=trim(Surname)
rs.fields("UserName")=trim(UserName)
rs.fields("Name")=trim(Name)
rs.fields("Password")=(obj.Request("password"))
rs.Fields("yxbh") =yxbh
rs.fields("Jysbh")=(obj.Request("Jysbh"))
Rs.Fields ("UserMemo") = Trim(UserMemo)
Rs.Fields("ZhZt") = ZhZt
if instr(obj.request("userpicture"),"\") < 1 then
else
aa=obj.SaveFile("userpicture",""&mypathnew&"",false)
FileNames=split(obj.request("userpicture"),vbcrlf)
UserPicture=myfileobject.GetFileName( replace(FileNames(0),"""",""))
rs("UserPicture")=UserPicture
end if
'on error resume next
Rs.Update
'response.write err.description
'response.end
set rs=nothing
Response.Write "<script>alert('用户信息保存成功!')</script>"
Response.Write "<script>javascript:opener.location.reload()</script>"
Response.Write "<script>window.close()</script>"
else
myfileobject.CreateFolder mypathnew
end if
%>
请给出具体解决的方法,谢谢
[Microsoft][ODBC SQL Server Driver][SQL Server]第 1 行: '=' 附近有语法错误。
Modify_User.asp, 第 37 行
源码:
<!-- #include file="../conn/conn.asp"-->
<%
'================================================================================
'名 称:保存用户
'功 能:保存修改了的用户信息。
'创建日期:2001年03月16日
'作 者:kitty
'最后更新:2003年04月17日
'更新作者:kitty
'版 权:kitty
'================================================================================
'Set obj = Server.CreateObject("LyfUpload.UploadFile")
'obj.extname="gif,jpg,bmp"
set myfileobject=server.CreateObject("scripting.filesystemobject")
mypath=server.MapPath("../")
mypathnew=mypath+"/Sysmana_02022005/photos"
if myfileobject.FolderExists(mypathnew) then
'id= Obj.request("id")
'SurName=obj.Request ("surname")
Name=" "
userName=SurName
'yxbh=obj.Request("yxbh")
'UserMemo=obj.request("usermemo")
'ZhZt = Obj.Request("ZhZt")
Set Rs = createobject("ADODB.RecordSet")
strQ="select SurName,Jysbh,UserName,Name,Password,yxbh,UserMemo,UserPicture,ZhZt from UserTable where [DAV:id]="& id
Rs.Open strQ, conn,3,2
rs.fields("SurName")=trim(Surname)
rs.fields("UserName")=trim(UserName)
rs.fields("Name")=trim(Name)
rs.fields("Password")=(obj.Request("password"))
rs.Fields("yxbh") =yxbh
rs.fields("Jysbh")=(obj.Request("Jysbh"))
Rs.Fields ("UserMemo") = Trim(UserMemo)
Rs.Fields("ZhZt") = ZhZt
if instr(obj.request("userpicture"),"\") < 1 then
else
aa=obj.SaveFile("userpicture",""&mypathnew&"",false)
FileNames=split(obj.request("userpicture"),vbcrlf)
UserPicture=myfileobject.GetFileName( replace(FileNames(0),"""",""))
rs("UserPicture")=UserPicture
end if
'on error resume next
Rs.Update
'response.write err.description
'response.end
set rs=nothing
Response.Write "<script>alert('用户信息保存成功!')</script>"
Response.Write "<script>javascript:opener.location.reload()</script>"
Response.Write "<script>window.close()</script>"
else
myfileobject.CreateFolder mypathnew
end if
%>
请给出具体解决的方法,谢谢
MicrosoftOLEDBProviderforODBCDrivers(0x80040E14)-->sql语句出错(字段名错误,或数据类型不匹配)
Microsoft OLE DB Provider for ODBC Drivers (0x80040E4E)
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
Microsoft OLE DB Provider for SQL Server 求救~~
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
Microsoft OLE DB Service Components 错误 '8000ffff'
Microsoft OLE DB Service Components 错误 '8000ffff'
Microsoft OLE DB Provider for ODBC Drivers (0x80040E2F)
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)