一段菜鳥代碼。。提示錯誤。請高手指點
<%
a=request( "id ")
response.Write a
'response.end
dim conn,rs,cmd
Set conn=Server.CreateObject( "ADODB.Connection ")
dsn= "provider=sqloledb.1;data source=172.24.17.103;initial catalog=dlyh;User ID=sa;password=123456 "
conn.Open dsn
set rs=server.CreateObject( "ADODB.Recordset ")
sql= "select * from [ygzl] where user_name like ' "&a& " ' "
'rs.open sql,conn,1,1
set rs=conn.Execute(sql,asCmdText)
if rs.EOF then
Response.Write " <script> alert( '無此員工數據！ ');history.back() </script> "
else
'sql= "update ygzl set user_dept= 'user_dept ',user_address= 'user_address ',user_tel= 'user_tel ',user_Email= 'user_Email ' where user_name= ' "&user_name& " ' "
user_name=rs( "user_name ")
user_dept=rs( "user_dept ")
user_address=rs( "user_address ")
user_tel=rs( "user_tel ")
user_Email=rs( "user_Email ")
rs.Update
Response.Write " <script> alert( '修改成功！ ');history.back() </script> "
end if
%>
<html>
<head> <title> 更改記錄 </title>
<meta name= "GENERATOR " Content= "Microsoft Visual Studio .NET 7.1 ">
</head>
<body>
<div align= "center ">
<form name= "form1 " method= "post " action= "Update2.asp ">
<table align= "center " border= "1 ">
<tr> <td colspan= "2 " align= "center "> 員工基本情況表 </td> </tr>
<tr> <td align= "right "> 員工姓名: </td>
<td> <input type= "text " name= "txtName " value= <%=rs( "user_name ")%> readonly> </td> </tr>
<tr> <td align= "right "> 所在部門: </td>
<td> <input type= "text " name= "txtDepartment " value= <%=rs( "user_dept ")%> > </td> </tr>
<tr> <td align= "right "> 家庭住址: </td>
<td> <input type= "text " name= "txtAddr " value= <%=rs( "user_address ")%> > </td> </tr>
<tr> <td align= "right "> 家庭電話: </td>
<td> <input type= "text " name= "txtmail " value= <%=rs( "user_tel ")%> > </td> </tr>
<tr> <td align= "right "> Email: </td>
<td> <input type= "text " name= "txtemail " value= <%rs(user_Email)%> > </td> </tr>
<tr> <td align= "center "> <input type= "submit " value= "提交 "> </td>
<td align= "center "> <input type= "reset " value= "全部重寫 "> </td> </tr>
</table>
</form>
</div>
</body>
</html>
提示錯誤:
錯誤類型：
ADODB.Field (0x80020009)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/testasp/Update.asp
[解决办法]
'rs.open sql,conn,1,1
这句注释了？
不注释也有问题 要update ，怎么能用1，1 ，后面的1表示只读 ，用3，2吧
[解决办法]
conn.Open dsn
sql= "select * from [ygzl] where user_name like ' "&a& " ' "
set rs=conn.Execute(sql)
if not rs.EOF then
Response.Write " <script> alert( '無此員工數據！ ');history.back() </script> "
else
sql= "update ygzl set user_dept= ' "&request.form( "user_dept ")& " ',user_address= ' "&request.form( "user_address ")& " ',user_tel= ' "&request.form( "user_tel ")& " ',user_Email= ' "&request.form( "user_Email ")& " ' where user_name= ' "&user_name& " ' "
response.write sql
conn.execute(sql)
Response.Write " <script> alert( '修改成功！ ');history.back() </script> "
end if
rs.close
set rs = nothing
[解决办法]
关于数据库操作的问题：
我说LZ你先把SQL语句在SQL调试环境下运行看看有没有结果，有结果就说明是代码的问题；
没有结果再看看SQL语句的问题。
[解决办法]
update.asp修改为
<%
a=request( "id ")
dim conn,rs,cmd
Set conn=Server.CreateObject( "ADODB.Connection ")
dsn= "provider=sqloledb.1;data source=172.24.17.103;initial catalog=dlyh;User ID=sa;password=123456 "
conn.Open dsn
conn.execute( "select * from [ygzl] where user_name= ' "& a & " ' ")
if rs.EOF then
Response.Write " <script> alert( '無此員工數據！ ');history.back() </script> "
else
user_name=rs( "user_name ")
user_dept=rs( "user_dept ")
user_address=rs( "user_address ")
user_tel=rs( "user_tel ")
user_Email=rs( "user_Email ")
end if
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head> <title> 更改記錄 </title>
<meta name= "GENERATOR " Content= "Microsoft Visual Studio .NET 7.1 ">
</head>
<body>
<div align= "center ">
<form name= "form1 " method= "post " action= "Update2.asp ">
<table align= "center " border= "1 ">
<tr> <td colspan= "2 " align= "center "> 員工基本情況表 </td> </tr>
<tr> <td align= "right "> 員工姓名: </td>
<td> <input type= "text " name= "txtName " value= " <%=user_name%> " readonly> </td> </tr>
<tr> <td align= "right "> 所在部門: </td>
<td> <input type= "text " name= "txtDepartment " value= " <%=user_dept%> "> </td> </tr>
<tr> <td align= "right "> 家庭住址: </td>
<td> <input type= "text " name= "txtAddr " value= " <%=user_address%> "> </td> </tr>
<tr> <td align= "right "> 家庭電話: </td>
<td> <input type= "text " name= "txtmail " value= " <%=user_tel%> "> </td> </tr>
<tr> <td align= "right "> Email: </td>
<td> <input type= "text " name= "txtemail " value= " <%=user_Email%> "> </td> </tr>
<tr> <td align= "center "> <input type= "submit " value= "提交 "> </td>
<td align= "center "> <input type= "reset " value= "全部重寫 "> </td> </tr>
</table>
</form>
</div>
</body>
</html>
update2.asp 改
<%
Dim Name,Department,Addr,Tel,Email
userName=Trim(Request.Form( "txtName "))
Department=Trim(Request.Form( "txtDepartment "))
Addr=Trim(Request.Form( "txtAddr "))
Tel=Trim(Request.Form( "txtTel "))
Email=Trim(Request.Form( "txtEmail "))
%>
<html>
<head>
<title> 更改記錄 </title>
<meta name= "GENERATOR " Content= "Microsoft Visual Studio .NET 7.1 ">
</head>
<body>
<%
Set conn=Server.CreateObject( "ADODB.Connection ")
dsn= "provider=sqloledb.1;data source=172.24.17.103;initial catalog=dlyh;User ID=sa;password=123456 "
conn.Open dsn
sql= "update [ygzl] set user_dept= ' "&Department& " ',user_address= ' "&Addr& " ',user_tel= ' "&Tel& " ',user_Email= ' "&Email& " ' where user_name = ' "& username & " ' "
conn.execute(sql)
conn.close
set conn=nothing
s%>
<table align= "center " border= "2 " bgcolor= "#ffffcc " bordercolor= "#00ff66 ">
<tr>
<td colspan= "2 " align= "center "> <b> 員工基本情況表 </b> </td>
</tr>
<tr>
<td align= "right " width= "130 "> 員工姓名: </td>
<td width= "200 "> <%=userName%> </td>
</tr>
<tr>
<td align= "right "> 所在部門: </td>
<td> <%=Department%> </td>
</tr>
<tr>
<td align= "right "> 家庭住址: </td>
<td> <%=Addr%> </td>
</tr>
<tr>
<td align= "right "> 家庭電話: </td>
<td> <%=Tel%> </td>
</tr>
<tr>
<td align= "right "> Email: </td>
<td> <%=Emai%> </td>
</tr>
</table>
<center>
<p> <hr width= "505 " color= "#0033ff ">
<font color= "#ff66ff ">
<h3 align= "center "> 記錄更新成功!! </h3>
</font>
<p> <a href= "index.asp "> 返回首業 </a>
</center>
</body>
</html>
