|
#2
kombel2011-06-29 09:49
|
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。
/admin/adminyes.asp, 第 20 行
程序代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body><%dim id,mlevel
mlevel=0
if (Request.QueryString("id") <> "") then id=Request.QueryString("id")
set rs = server.createobject("adodb.recordset")
set conn=server.createobject("adodb.connection")'
conn.open "DBQ=" & server.mappath("/Data/shop.mdb") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select * from manage where id='"&id&"'"
rs.open sql,conn,1,3
rs("working")=mlevel
rs.update
rs.close
set rs=nothing
response.Redirect("adminlist.asp")
%>
</body>
</html>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body><%dim id,mlevel
mlevel=0
if (Request.QueryString("id") <> "") then id=Request.QueryString("id")
set rs = server.createobject("adodb.recordset")
set conn=server.createobject("adodb.connection")'
conn.open "DBQ=" & server.mappath("/Data/shop.mdb") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select * from manage where id='"&id&"'"
rs.open sql,conn,1,3
rs("working")=mlevel
rs.update
rs.close
set rs=nothing
response.Redirect("adminlist.asp")
%>
</body>
</html>
