高校问答吟飞双排键rs1000:请ASP的大虾们帮忙指正一下哈！！！！
来源：百度文库 编辑：高校问答 时间：2024/05/04 08:02:46
我想在用户登陆以后可以修改个人信息，但总调试不过，望高手指教！谢谢！错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
/my site/xiugai_form.asp, 第 77 行
源代码如下：
<% option explicit%>
<html><head><title></title></head>
<body bgcolor="#FFFFFF" >
<table width="662" height="519" border="0" >
<tr><td width="1" height="519" img src="image/spacer.gif" width="1" height="1"></td>
<td width="660" valign="top" bgcolor="#FFFFFF">
<table width="660" border="0"><tr><td><img src="image/obj_head_01.gif" width="660" height="6"></td></tr>
<tr><td background="image/obj_bt_back.gif"></td></tr></table>
<table width="660" border="0" align="center">
<tr><td width="180" height="434">
<table width="170" border="1" bordercolor="#FF99CC" >
<tr><td> <img src="image/p_icon1.gif" width="19" height="19">您好，欢迎来到"美容大王BBS"站点！</td></tr>
<tr><td><p><img src="image/p_icon3.gif" width="19" height="19">相关操作</p><p align="center"><a href="xianshi.asp">显示注册用户</a></p>
<p > <a href="chakan.asp">查看个人资料</a></p>
<p ><a href="xiugai_form.asp">修改个人资料</a></p>
<p ><a href="chazhaoyonghu.asp">查找用户</a></p></td></tr>
<tr><td height="80"><p>搜索聊天记录</p>
<form method="post" action="search.asp">
<font color="#ff6699" >聊天记录标题:
<input type="text" name="title" size="20" >**<font><center>
<input type="submit" value="搜索"></center></form> </td></tr></table> </td>
<td width="480" background="image/flower2.jpg"><p><font color="#FF6699" size="2">美容大王BBS—修改个人资料</font></p>
<font size="2">请修改您的资料：(带**的内容必须输入)</font>
<% Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("link.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
Dim rs,strSql
'根据denglu.asp存放到Session里的username值，显示相应成员的信息
strSql ="Select * From user Where username=" & Session("username")
Set rs=db.Execute(strSql) '第77行
%>
<center><form method="post" action="xiugai.asp">
<table ><tr><td>用户名：</td><td><input type="text"name="username" size="20" value="<%=rs("username")%>">**</td></tr>
<tr><td>密码：</td><td><input type="password" name="pass" size="20"value="<%=rs("pass")%>">**</td></tr>
<tr><td>email：</td><td><input type="text" name="qq" size="40" value="<%=rs("qq")%>"></td></tr><tr>
<td>Email：</td><td><input type="text" name="email" size="10"
value="<%=rs("email")%>"></td></tr>
<tr><td><input type="submit" value="确定">
<input type="reset" value="重填"> </td></tr></table></form> </center>
<%
rs.Close
Set rs=nothing
db.Close
Set db=nothing
%>
</p></td></tr></table>
<td><img src="image/spacer.gif"></td></tr></table>
</body>
</html>
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
/my site/xiugai_form.asp, 第 77 行
源代码如下：
<% option explicit%>
<html><head><title></title></head>
<body bgcolor="#FFFFFF" >
<table width="662" height="519" border="0" >
<tr><td width="1" height="519" img src="image/spacer.gif" width="1" height="1"></td>
<td width="660" valign="top" bgcolor="#FFFFFF">
<table width="660" border="0"><tr><td><img src="image/obj_head_01.gif" width="660" height="6"></td></tr>
<tr><td background="image/obj_bt_back.gif"></td></tr></table>
<table width="660" border="0" align="center">
<tr><td width="180" height="434">
<table width="170" border="1" bordercolor="#FF99CC" >
<tr><td> <img src="image/p_icon1.gif" width="19" height="19">您好，欢迎来到"美容大王BBS"站点！</td></tr>
<tr><td><p><img src="image/p_icon3.gif" width="19" height="19">相关操作</p><p align="center"><a href="xianshi.asp">显示注册用户</a></p>
<p > <a href="chakan.asp">查看个人资料</a></p>
<p ><a href="xiugai_form.asp">修改个人资料</a></p>
<p ><a href="chazhaoyonghu.asp">查找用户</a></p></td></tr>
<tr><td height="80"><p>搜索聊天记录</p>
<form method="post" action="search.asp">
<font color="#ff6699" >聊天记录标题:
<input type="text" name="title" size="20" >**<font><center>
<input type="submit" value="搜索"></center></form> </td></tr></table> </td>
<td width="480" background="image/flower2.jpg"><p><font color="#FF6699" size="2">美容大王BBS—修改个人资料</font></p>
<font size="2">请修改您的资料：(带**的内容必须输入)</font>
<% Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("link.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
Dim rs,strSql
'根据denglu.asp存放到Session里的username值，显示相应成员的信息
strSql ="Select * From user Where username=" & Session("username")
Set rs=db.Execute(strSql) '第77行
%>
<center><form method="post" action="xiugai.asp">
<table ><tr><td>用户名：</td><td><input type="text"name="username" size="20" value="<%=rs("username")%>">**</td></tr>
<tr><td>密码：</td><td><input type="password" name="pass" size="20"value="<%=rs("pass")%>">**</td></tr>
<tr><td>email：</td><td><input type="text" name="qq" size="40" value="<%=rs("qq")%>"></td></tr><tr>
<td>Email：</td><td><input type="text" name="email" size="10"
value="<%=rs("email")%>"></td></tr>
<tr><td><input type="submit" value="确定">
<input type="reset" value="重填"> </td></tr></table></form> </center>
<%
rs.Close
Set rs=nothing
db.Close
Set db=nothing
%>
</p></td></tr></table>
<td><img src="image/spacer.gif"></td></tr></table>
</body>
</html>
strSql ="Select * From user Where username=" & Session("username")
把这句改成...
strSql ="Select * From user Where username='" & Session("username") &"'"
因为username应该是字符形的所以要加单引号...