用VB写一个ASP程序 帮忙

大家帮我写一个ASP代码
需要 通过一个字段：电话号码=***********
通过这个电话号码写出这个电话号码所属的会员
以及其他信息(即其他字段的信息)
谢谢了

答案：<%
dim conn,db
dim connstr
db="Data/Test.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
set rs=server.createobject("adodb.recordset")
sqltext="select * from 用户信息表名"
sqltext=sqltext&" where 电话号码='***********'"
rs.open sqltext,conn,1,3
if rs.eof and rs.bof then
response.write ("暂时没有记录")
else
 
如果电话号码表里有重复则

do while not rs.eof
Response.write rs("需要知道信息字段名1")&"-"&rs("需要知道信息字段名3")&"-"&rs("需要知道信息字段名3")&"</br>" 
rs.movenext
loop
 
如果电话号码是唯一的，可以直接
 
Response.write rs("需要知道信息字段名1")&"-"&rs("需要知道信息字段名3")&"-"&rs("需要知道信息字段名3")&"</br>" 

end if
rs.close
set rs = nothing
call CloseConn()
%>
 
这样够详细了吧？
<%
          strsql ="select * from usertable where 电话号码=‘"& request.form("form内的文本空间名") &“’”
           conn = “数据库连接字符串” ‘双引号内是内的数据库链接根据你数据库的不同，会有不同。
          set rs= ADODB.Recordset
          rs.open strsql,conn,1,3
          if not rs.EOF then
          do while not rs.EOF
                Response.write rs("Name")&","&rs("易做图y")&","&rs("Age")     '这里是你数据表中的字段名，根据实际需要修改，这里我只是将它们连接打印出来
                   rs.MoveNext        
           loop
          end if
%>

上一个：asp.net 进度条问题！
下一个：ASP.NET2.0的问题