[bo]<%
session.abandon
function opendb(DBPath,sessionname,dbsort)
dim conn
if not isobject(session(sessionname)) then
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.MapPath("/") & "/oa/office/database/oa-qzjd.mdb"
'conn.Open "dsn=oa-qzjd;pwd=051882;"
Dim Provider
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & DBPath1
conn.open ( Provider & DBPath & ";Jet OLEDB:database Password=051882;")
set session(sessionname)=conn
end if
set opendb=session(sessionname)
end function
%>
  
  *************************************
然后出现错误提示如下所示:
Microsoft JET Database Engine 错误 '80040e14'
UPDATE 语句的语法错误。
/oa/office/asp/userinf.asp，行 17


********************************************************************  


如果用ODBC直接连接是正确的,正确的代码如下
  
<%
session.abandon
'Server.ScriptTimeOut=500
function opendb(DBPath,sessionname,dbsort)
dim conn
if not isobject(session(sessionname)) then
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.MapPath("office/database/myoffice.mdb")
conn.Open "dsn=oa-qzjd;pwd=051882;"
set session(sessionname)=conn
end if
set opendb=session(sessionname)
end function
%>
  
  
这些都是正确的,请问要怎么弄才能直接不通过ODBC可以正常呢!!希望高手指导一下..谢谢.当然了前提是数据库路径决对是没有问题的.[/bo]

[[it] 本帖最后由 canyuhuxi 于 2008-9-22 05:10 编辑 [/it]]

UPDATE 语句的语法错误。
这个报错提示应该是说的SQL语句的错误，并不是数据库连接代码的错误

<!--#include file="sqlstr.asp"-->
<!--#include file="opendb.asp"-->
<%
sub userinf(href)
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")

if request("submit")="更改" then
password=request("password")
name=request("name")
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql = "update userinf set "
sql = sql & "password=" & SqlStr(password) & ", "
sql = sql & "name=" & SqlStr(name) & " where username=" & sqlstr(oabusyusername)
conn.Execute sql
%>
<br><br>
<font color=red>用户资料维护成功！</font>
<%
else
%>

<script Language="JavaScript">
 function maxlength(str,minl,maxl) {
    if(str.length <= maxl && str.length >= minl){return true;}else{return false;}
                                    }

 function form_check(){

   var l2=maxlength(document.form2.password.value,1,20);
   if(!l2){window.alert("密码的长度大于1位小于20位");document.form2.password.focus();return (false);}

   var a1=document.form2.password.value;
   var a2=document.form2.repassword.value;
   if(a1!=a2){window.alert("两次输入的密码应相同");document.form2.repassword.focus();return (false);}

   var l3=maxlength(document.form2.name.value,1,20);
   if(!l3){window.alert("姓名的长度大于1位小于20位");document.form2.name.focus();return (false);}

                    }

</script>


<%
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select * from userinf where username=" & sqlstr(oabusyusername)
rs.open sql,conn,1
%>
<br><br>
<form action="<%=href%>" method=post name="form2" onsubmit="return form_check();">
<table border=2>
<tr>
<td>
用&nbsp;户&nbsp;名：<%=oabusyusername%>
</td>
</tr>
<tr>
<td>
密&nbsp;&nbsp;&nbsp;&nbsp;码：<input type="password" name="password" size=20 value="<%=rs("password")%>">
</td>
</tr>
<tr>
<td>
密码确认：<input type="password" name="repassword" size=20 value="<%=rs("password")%>">
</td>
</tr>
<tr>
<td>
姓&nbsp;&nbsp;&nbsp;&nbsp;名：<input type="text" name="name" size=20 value="<%=rs("name")%>">
</td>
</tr>
<tr>
<td>
部&nbsp;&nbsp;&nbsp;&nbsp;门：<%=oabusyuserdept%>
</td>
</tr>
<tr>
<td>
职&nbsp;&nbsp;&nbsp;&nbsp;位：<%=oabusyuserlevel%>
</td>
</tr>
<tr>
<td align=center>
<input type="submit" name="submit" value="更改">
</td>
</tr>
</table>
</form>
<%
end if
end sub
%>

不知道错在哪里,请看一下好吗?  update 数据库 set  这样也会有错吗?

'conn.Execute sql
把这句话注释掉显示一下SQL语句
Response.Write sql