<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" <!--#include virtual="/Templates/top.dwt"--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>修改管理员信息</title> </head> <body> <% dim ID ID =trim(request("ID")) set cnnDB = Server.CreateObject("ADODB.Connection") strCon ="Provider = Microsoft.Jet.OLEDB.4.0;"&_ "Data Source = "& Server.MapPath("data/student.mdb") cnnDB.open strCon set rstobj = Server.CreateObject("ADODB.Recordset") strsql = "select* from admin_info where ID = '"& ID &"'" 'rstobj.open strsql,cnnDB rstobj.open strsql,cnnDB,1,1 //这里提示Microsoft JET Database Engine 错 误 '80040e07' 标准表达式中数据类型不匹配。 %>
<form action="mod_admin_info.asp" method="post"> <input type="hidden" name="ID1" value="<% = ID %>"> <table border="1"> <TR align="center" bordercolor="#99FF99" bgcolor="#99FF99"> <TD><span class="style1">用户名</span></TD><TD width="166"><input type="text" name="admin_name" value="<% = rstobj("admin_name")%>"></TD> </TR> <TR align="center" bordercolor="#99FF99" bgcolor="#99FF99"> <TD width="62"><span class="style1">密码</span></TD><TD><input type="text" name="admin_name" value="<% = rstobj("admin_password")%>"></TD> </TR> <TR align="center" bordercolor="#99FF99" bgcolor="#99FF99"> <TD width="62"><span class="style1">用户说明</span></TD> <TD><input type="text" name="admin_name" value="<% =rstobj("admin_info")%>"></TD> </TR> <TR><TD><input type="submit" name="submit1" value="提交"></TD></TR> </table> </form> <% rstobj.Close set rstobj = Nothing cnnDB.Close set cnnDB = Nothing %> </body> </html>
