'先取得表单的值,比如 A 是表单传来的
a = Trim(request.Form("A"))
'连接数据库, 语句需要你自己写了
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open "连接字串"
Set rs = Server.CreateObject("Adodb.Recordset")
rs.Open "Select * from TableName Where [FieldName] = '"& a &"'",Conn,1,1
'下面就可以遍列rs记录集了,就是你从表中查到的信息
连接数据库,执行查询然后显示到页面。