upp.asp

来自「学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设」· ASP 代码 · 共 35 行

<%
Dim Conn,Driver,DBPath,Rs 
' 建立Connection对象 
Set Conn = Server.CreateObject("ADODB.Connection") 
Driver = "Driver={Microsoft Excel Driver (*.xls)};" 
DBPath = "DBQ=" & Server.MapPath("Book1.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("a") 
Response.write "-" 
Response.write Rs("b") 
Response.write "-" 
Response.write Rs("c") 
Response.write "-" 
Response.write Rs("d") 
Response.write "<br>" 
Rs.MoveNext 
Loop 
End IF 
Rs.Close 
Set Rs=nothing 
Conn.Close 
Set Conn=Nothing 
%>