<%
   dim conn   
   dim connstr

   on error resume next
   connstr="DBQ="+server.mappath("mdb1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   set conn=server.createobject("ADODB.CONNECTION")
   conn.open connstr 
   Set rs = Server.CreateObject("ADODB.Recordset")
   SQL="Select * From kehu"
   rs.Open sql,conn,1,3
   Response.write ""
   Do while NOT rs.eof
   Response.write "
名称
姓名
城市
电话
编号
时间
"
   Loop
%>

解决～　随手写的，没debug，希望能用吧～

                                

                                    
                                    

                                
                            
" & Rs("name") & "
" & Rs("xingming") & "
" & Rs("city") & "
" & Rs("tel") & "
" & Rs("no1") & "
" & Rs("time1") & "
                                
                                
                                
                            
                            
                            
                        
                    
                
                        
                

                    

                        
icerain

                        职务：普通成员

                        等级：1

                        金币：1.0

                        发贴：249

                        注册：2003/6/13 3:09:56

                    
                    

                        

                            

                                


                                    
引用
                                    

                                    

                                
                            
                            
#32003/6/23 12:43:01
                            

                                行者大哥（我82年的你应该比我大吧？）非常感谢你
你上面给的代码我有二点不明白 麻烦再帮我一下吧！
on error resume next 这句是什么意思啊？
rs.Open sql,conn,1,3  这句中的1，3是什么意思呀？

                                
                                
                                
                            
                            

                                

                                    
                                    

                                
                            
                            

                        
                    
                
                        
                

                    

                        
沉默是金

                        职务：普通成员

                        等级：6

                        金币：11.2

                        发贴：4357

                        注册：2004/2/18 11:17:25

                    
                    

                        

                            

                                


                                    
引用
                                    

                                    

                                
                            
                            
#42003/6/23 15:29:27
                            

                                on error resume next 是指如果网页中存在有错误的时候，它可以把错误代码显示出来，以方便排除错误，一般把这段代码加在程序的开始部分。
描述
含有关于运行时错误的信息。接受用于生成和清除运行时错误的 Raise 和 Clear 方法。
说明
Err 对象是一个具有全局范围 —的固有对象：不必在您的代码中创建它的示例。Err的属性被一个错误 —的生成器设置：Visual Basic,自动对象，或 VBScript 程序。
Err 对象的默认属性是 number。Err.Number 含有一个整数，且可由 Automation 对象使用以返回 SCODE。

当发生运行时错误时，Err 的属性由标识错误的唯一信息以及可用于处理它的信息填充。要在代码中生成运行时错误，请用 Raise 方法。

Err 对象属性被重新设置为零或零长度字符串 ("")。Clear 方法可被用于显式地重新设置 Err。

下面的示例说明了 Err 对象的用法： 

On Error Resume Next
Err.Raise 6  '产生溢出错误。
MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)
Err.Clear    '清除错误。

另一个问题看看行者兄弟的这个贴子吧： www.5d.cn/bbs/newsdetail.asp?id=705708
                                
                                
                                
                            
                            

                                

                                    
                                    

                                
                            
                            
难人一个……
                        
                    
                
                        
                

                    

                        
icerain

                        职务：普通成员

                        等级：1

                        金币：1.0

                        发贴：249

                        注册：2003/6/13 3:09:56

                    
                    

                        

                            

                                


                                    
引用
                                    

                                    

                                
                            
                            
#52003/6/23 19:28:46
                            

                                谢谢楼上的朋友
虽然对于我来说没有100%的明白
但给我很大帮助。
                                
                                
                                
                            
                            

                                

                                    
                                    

                                
                            
                            

                        
                    
                
                        
                

                    

                        
{ 在指尖上绽放的花朵 }

                        职务：普通成员

                        等级：5

                        金币：14.0

                        发贴：3209

                        注册：2002/7/25 21:24:11

                    
                    

                        

                            

                                


                                    
引用
                                    

                                    

                                
                            
                            
#62003/6/23 20:09:04
                            

                                完了……　这下现眼了……　那个程序没结尾的说……

在它的ＰＰ后面应该加这个……

Rs.close
Set Rs = nothing
Response.write "
"
Connstr.close
Set Connstr = nothing