readpass.asp 假设db.mdb和 readpass.asp在同一目录下
<%
name = Request.QueryString("name")
name = Replace(name,"'","''")
sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath("db.mdb")
Set conn = CreateObject("ADODB.Connection")
conn.Open sConn
Set rs = CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
sql = "SELECT pass FROM aaa WHERE [name]='" & name & "'"
rs.Open sql, conn, 1, 1
If Not(rs.BOF And rs.EOF) Then
Response.Write "password : " & rs(0)
Else
Response.Write "无记录"
End If
If rs.State<>0 Then rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>