<%
Dim pid,DBPath,conn,rs,SQLcmd,databaseName,tableName
Dim abOpenStatic,abLockPessimistic,mywords
abOpenStatic=1
abLockPessimistic=3
pID=Request("id")
databaseName ="数据库文件名" '///1、Access数据库文件,2,包含相对路径
tableName = "数据表名"
set conn = Server.CreateObject("ADODB.connection")
DBPath=Server.MapPath(databaseName)
conn.Open="provider=Microsoft.JET.OLEDB.4.0;data source=" & DBPath
Set rs= Server.CreateObject("ADODB.Recordset")
SQLcmd="Select * From "&tableName&" Where id="&pID
rs.Open SQLcmd,conn,abOpenStatic,abLockPessimistic
if not rs.EOF then
mywords = rs("yp")
end if
Response.Write mywords
%>