zongshu.asp

这是一个通讯录

<%
dim List9
dim i9
dim strSQL9
dim conntmp9,DB_name9
DB_name9="DBQ="+server.mappath("sfsf.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 
set conntmp9=server.createobject("ADODB.CONNECTION")
conntmp9.open DB_name9

strSQL9="SELECT * FROM List"   
set list9=server.createobject("adodb.recordset")
list9.open strSQL9,conntmp9,1,1
         if list9.eof and list9.bof then _
            Response.End
do while not (list9.eof or err)
i9=i9+1
list9.movenext
loop
list9.close
response.write i9
%>