Dim conn As New ADODB.Connection
Dim xsxx As New ADODB.Recordset
xsxx.CursorLocation = ADODB.CursorLocationEnum.adUseClient
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "\app_data\kczb.mdb")
xsxx.Open("select password from user where name='张三'"), conn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockBatchOptimistic)
response.write(xsxx.fields("password")
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024