28,391
社区成员
发帖
与我相关
我的任务
分享
<%
db="hookee.mdb"
Set Conn=Server.CreateObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.mappath(db)
Conn.Open ConnStr
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>update</title>
</head>
<body>
<%
sql="select * from [biao] where ID=1"
Set myrs=Server.CreateObject("adodb.recordset")
myrs.cursorLocation = 3
myrs.open sql,conn,1,3
If Not (myrs.bof and myrs.eof) Then
myrs("myname") = "xxxx" '用英文试试看, 国外的服务器最好用英文版本的.mdb文件
myrs.update
End If
myrs.close
Set myrs=Nothing
Conn.close
Set Conn=Nothing
%>
执行完毕!
</body>
</html>
<%
sql = "select * from biao where id=1"
set rs = createobject("adodb.recordset")
rs.cursorLocation = 3
rs.open sql,conn,1,3
If Not (rs.bof and rs.eof) Then
rs("txt") = "xxxx" '用英文试试看, 国外的服务器最好用英文版本的.mdb文件
rs.update
End If
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<%
sql = "select * from biao where id=1"
set rs = createobject("adodb.recordset")
rs.cursorLocation = 3
rs.open sql,conn,1,3
If Not (rs.bof and rs.eof) Then
rs("txt") = "xxxx" '用英文试试看, 国外的服务器最好用英文版本的.mdb文件
End If
rs.update
rs.close
%>