a.asp

这是去年开发的中移鼎讯手机进销存系统 大家

<% 
Dim Conn,Driver,DBPath,Rs 
Set Conn = Server.CreateObject("ADODB.Connection") 
Driver = "Driver={Microsoft Excel Driver (*.xls)};" 
DBPath = "DBQ=" & Server.MapPath("book.mdb") 
Conn.Open Driver & DBPath 
%> 
其中Driver = "Driver={Microsoft Excel Driver (*.xls)};" 
这一行代码是关键，主要是驱动的选择问题。我们同使用Access做数据库的连接方法比较下便知。 
<% 
Dim Conn,Driver,DBPath,Rs 
Set Conn = Server.CreateObject("ADODB.Connection") 
Driver = "Driver={Microsoft Access Driver (*.mdb)};" 
DBPath = "DBQ=" & Server.MapPath("book.mdb") 
Conn.Open Driver & DBPath 
%> 
三、 程序清单 
查询并显示表Sheet1字段为书名的代码： 
<% 
Dim Conn,Driver,DBPath,Rs 
' 建立Connection对象 
Set Conn = Server.CreateObject("ADODB.Connection") 
Driver = "Driver={Microsoft Excel Driver (*.xls)};" 
DBPath = "DBQ=" & Server.MapPath("book.xls") 
'调用Open 方法打开数据库 
Conn.Open Driver & DBPath 
'DSN连接方式 
'Conn.Open "Dsn=book" 
'注意 表名一定要以下边这种格试 "[表名$]" 书写 
Sql="Select * From [Sheet1$]" 
Set Rs=Conn.Execute(Sql) 
IF Rs.Eof And Rs.Bof Then 
Response.write "没有找到您需要的数据!!" 
Else 
Do While Not Rs.EOF 
Response.write Rs("书名") 
Response.write "<br>" 
Rs.MoveNext 
Loop 
End IF 
Rs.Close 
Set Rs=nothing 
Conn.Close 
Set Conn=Nothing 
%> 
查询并显示表Sheet1全部内容的代码： 
<% 
Dim Conn,Driver,DBPath,Rs 
Set Conn = Server.CreateObject("ADODB.Connection") 
Driver = "Driver={Microsoft Excel Driver (*.xls)};" 
DBPath = "DBQ=" & Server.MapPath( "book.xls" ) 
Conn.Open Driver & DBPath 
Set Rs = Server.CreateObject("ADODB.Recordset") 
Sql="select * from [Sheet1$]" 
Rs.Open Sql,conn,2,2 
%> 
<table border="1"> 
<tr> 
<% 
for i=0 to Rs.Fields.Count-1 
%> 
<td bgcolor="#0099FF"><%=Rs(i).Name%></td> 
<% 
next 
%> 
</tr> 
<% 
do while Not Rs.EOF 
%> 
<tr> 
<% 
for i=0 to Rs.Fields.Count-1 
%> 
<td><%=Rs(i)%></td> 
<% 
next 
%> 
</tr> 
<% 
Rs.MoveNext 
Loop 
Rs.close 
set Rs=nothing 
Conn.close 
set Conn=nothing 
%> 
</table>