ASP连接oracle数据库

语句和连接ACCESS,SQL Server的一样的,稍微改一下就可以了:

Dim objConn,myDSN
If Not IsObject(objConn) Then
Set objConn = Server.CreateObject("ADODB.Connection")
myDSN = "Provider=OraOLEDB.Oracle;Data Source=Oracle_Shanghai;User ID=scott;PASSWORD=tiger;Persist Security Info=True"
objConn.Open myDSN
End If 

＝＝＝＝＝＝＝＝＝＝

 ''连接字符串初始化
 Select Case dataType
 Case 0  ''Access
  ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
 Case 1  ''Sql
  ConnStr = "Provider = Sqloledb; User ID = " & dbUsername & "; Password = " & dbPassword & "; Initial Catalog = " & dbDataBase & "; Data Source = " & dbLocalName & ";"
 End Select

====excel

ASP连接EXCEL
    
    有些客户因为种种原因不需要使用数据库，而使用EXCEL！
    所以在此列举2个连接excel的例题，简单的说就是把EXCEL当作数据库
    方法一:
    Asp读取Excel文件实例
    <% &apos;以下实例中excel文件名为：list.xls，工作表名为：sheet1
    Dim conn
    Dim StrConn
    Dim rs
    Dim Sql
    Set conn=Server.CreateObject("ADODB.Connection")
    StrConn="Driver={Microsoft Excel Driver (*.xls)};DBQ="& Server.MapPath("list.xls")
    conn.Open StrConn
    Set rs = Server.CreateObject("ADODB.Recordset")
    Sql="select * from [Sheet1$]"
    rs.Open Sql,conn,2,2
    %>
    <center>
    <table border="0" cellpadding="0" cellspacing="0">
    <tr>
    <%
    for i=0 to rs.Fields.Count-1
    %>
    <td width="1" bgcolor="#CCCCCC"></td>
    <td height="28" bgcolor="#0099FF"><div align="center"><%=rs(i).Name%></div></td>
    <%
    next
    %>
    <td width="1" bgcolor="#CCCCCC"></td>
    </tr>
    <%
    do while Not rs.EOF
    %>
    <tr>
    <%
    for i=0 to rs.Fields.Count-1
    %>
    <td width="1" bgcolor="#CCCCCC"></td>
    <td height="28" valign="bottom"><%=rs(i)%></td>
    <%
    next
    %>
    <td width="1" bgcolor="#CCCCCC"></td>
    </tr>
    <tr>
    <% &apos;生成高度为1的空行（横线）
    for i=0 to rs.Fields.Count-1
    %>
    <td height="1" bgcolor="#CCCCCC"></td>
    <td height="1" bgcolor="#CCCCCC"></td>
    <%
    next
    %>
    <td width="1" bgcolor="#CCCCCC"></td>
    </tr>
    <%
    rs.MoveNext
    Loop
    rs.close
    set rs=nothing
    Conn.close
    set StrConn=nothing
    %>
    </table>
    </center>
    
    
    
    
    
    方法二:
    
    
    <%
    &apos;=====================ASP读取EXCEL注事项===========================
    &apos;i)将Excel97或Excel2000生成的XLS文件（book）看成一个数据库，其中的每一个工作表(sheet)看成数据库表
    &apos;ii)ADO假设Excel中的第一行为字段名.所以你定义的范围中必须要包括第一行的内容
    &apos;iii)Excel中的行标题（即字段名）不能够包含数字. Excel的驱动在遇到这种问题时就会出错的。例如你的行标题名为“F1”
    &apos;iiii)如果你的Excel电子表格中某一列同时包含了文本和数字的话,那么Excel的ODBC驱动将不能够正常, 处理这一行的数据类型，你必须要保证该列的数据类型一致
    &apos;E-MAIL:Kaxue@Hotmail.com QQ:484110 HOMEPAGE:www.Flyday.net
    &apos;整理时间：Thursday, May 23, 2002 5:54 PM WIN2000SERVER+IIS5 测式通过
    &apos;===================================================================
    
    Dim Conn,Driver,DBPath,Rs
    &apos; 建立Connection对象
    Set Conn = Server.CreateObject("ADODB.Connection"
    Driver = "Driver={Microsoft Excel Driver (*.xls)};"
    DBPath = "DBQ=" & Server.MapPath( "test.xls" )
    &apos;调用Open 方法打开数据库
    Conn.Open Driver & DBPath
    
    &apos;DSN连接方式
    &apos;Conn.Open "Dsn=test"
    &apos;注意 表名一定要以下边这种格试 "[表名$]" 书写
    Sql="Select * From [Sheet1$] where 序号=0"
    Set Rs=Conn.Execute(Sql)
    
    IF Rs.Eof And Rs.Bof Then
    Response.write "没有找到您需要的数据!!"
    Else
    
    Do While Not Rs.EOF
    
    Response.write Rs("姓名"
    
    Rs.MoveNext
    Loop
    End IF
    
    Rs.Close
    Set Rs=nothing
    Conn.Close
    Set Conn=Nothing
    &apos;Response.Write "成功！"
    %>
    
    
    
    ---wangle　作于　2006-8-4 20:46:47---